with块变量未设置

weasteam 2008-02-21 04:37:39
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块变量未设置”,调试时在上面红色那一句。我不清楚什么东西没有加载,请大家帮我修改一下。
...全文
71 点赞 收藏 8
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
weasteam 2008-02-24
问题已经解决了,把其中的ActiveWorkbook改成Workbooks(1)就行了。
回复
weasteam 2008-02-21
55~~试了myhongye 的方法还是不行,我甚至在Set VBExcel = CreateObject("Excel.Application") 之前也加了那一句,也没用。
回复
红叶哥 2008-02-21
End With

Set VBExcel= Nothing 增加一句

End Sub
回复
weasteam 2008-02-21
smalle,试了,还是一样的问题。
回复
smalle 2008-02-21
试一下这样
dim xlsDestBook As Excel.Workbook
set xlsDestBook =VBExcel.Workbooks.Add()
xlsDestBook.SaveAs "e:\1.xls"
回复
weasteam 2008-02-21
同时出现错误‘462’
远程服务器不存在或不能使用
回复
weasteam 2008-02-21
With VBExcel
.Workbooks.Add
这里的.add就创建了呀
回复
zzyong00 2008-02-21
ActiveWorkbook在哪创建的?
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7489

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-02-21 04:37
社区公告
暂无公告