with块变量未设置

Question

Public miRNAerPath as String
Public miRNAerSpe as StringPrivate Sub AA()
for m=1 to 10
miRNAerPath="E:\" & m
miRNAerSpe="aaa" & m
Call GenomeIn
next
End SubPrivate Sub GenomeIn()
'===================建立文件夹===============================
Dim VBExcel As Excel.Application
'创建excel book
Set VBExcel = CreateObject("Excel.Application")
VBExcel.Visible = True
With VBExcel
    .Workbooks.Add
        ActiveWorkbook.SaveAs miRNAerPath & "\" & miRNAerSpe & "\" & miRNAerSpe & ".xls"
        Call GenomeInput
        ActiveWorkbook.Close
    .Quit
End With
End Sub请问一下，运行中当m大于2时总是出现“with块变量未设置”，调试时在上面红色那一句。我不清楚什么东西没有加载，请大家帮我修改一下。

Answer 1

With   VBExcel 
        .Workbooks.Add
这里的.add就创建了呀

Answer 2

试一下这样
dim xlsDestBook As Excel.Workbook
set xlsDestBook =VBExcel.Workbooks.Add()
xlsDestBook.SaveAs "e:\1.xls"

Answer 3

smalle,试了，还是一样的问题。

Answer 4

End   With Set   VBExcel= Nothing           增加一句End   Sub 

Answer 5

55~~试了myhongye 的方法还是不行，我甚至在Set   VBExcel   =   CreateObject("Excel.Application") 之前也加了那一句，也没用。

Answer 6

问题已经解决了，把其中的ActiveWorkbook改成Workbooks(1)就行了。