with块变量未设置

[weasteam]

Public miRNAerPath as String
Public miRNAerSpe as String

Private Sub AA()
for m=1 to 10
miRNAerPath="E:\" & m
miRNAerSpe="aaa" & m
Call GenomeIn
next
End Sub

Private 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块变量未设置”，调试时在上面红色那一句。我不清楚什么东西没有加载，请大家帮我修改一下。

[zzyong00]

ActiveWorkbook在哪创建的？

[weasteam]

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

[weasteam]

同时出现错误‘462’
远程服务器不存在或不能使用

[smalle]

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

[weasteam]

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

[红叶哥]

End With

Set VBExcel= Nothing 增加一句

End Sub

[weasteam]

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

[weasteam]

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