Question

VB中出现实时错误 '1004' 对象 'Range' 的方法 '_Global' 失败

Dim XlApp As New Excel.Application
Dim xlBook As New Excel.Workbook
Dim xlSheet As New Excel.Worksheet
Set xlBook = XlApp.Workbooks.Open("W:\表\表111.xls") '后台进程运行excel程序，并得到该工作簿
XlApp.Visible = False
Set xlSheet = xlBook.Sheets("sheet1") '获得该工作簿的“sheet1”表
xlSheet.Select

xlSheet.Range("c4") = Text1.Text '抽取text1.text格子的数据并赋值给c4
xlSheet.Range("c7") = Text2.Text
xlSheet.Range("c5") = Text3.Text
xlSheet.Range("i10") = Text5.Text
xlSheet.Range("i4") = Text9.Text
xlSheet.Range("i5") = Text10.Text
xlSheet.Range("i7") = Text11.Text
xlSheet.Range("c43") = Text12.Text
xlSheet.Range("c11") = Text13.Text
xlSheet.Range("i11") = Text14.Text
xlSheet.Range("a14") = Text6.Text
xlSheet.Range("a17") = Text7.Text
xlSheet.Range("a19") = Text8.Text
xlBook.SaveAs FileName:="D:\地\" & Range("c4") & "_" & Range("c5") & "_" & Range("c7") & ".xls" 第一次运行时一切正常，但打开另存的表时,原表也会被打开,第二次运行时出现：实时错误 '1004' 对象 'Range' 的方法 '_Global' 失败

Set Sheet = Nothing
Set xlBook = Nothing
XlApp.Quit
Set XlApp = Nothing

End Sub

Answer 1

xlBook.SaveAs FileName:="D:\地\" & Range("c4") & "_" & Range("c5") & "_" & Range("c7") & ".xls"

这个改成：
xlBook.SaveAs FileName:="D:\地\" & xlBook.xlSheet.Range("c4") & "_" & xlBook.xlSheet.Range("c5") & "_" & xlBook.xlSheet.Range("c7") & ".xls"

具体为什么，我也不太清楚，我上次也是遇到这样类似的情况，第一次运行正常，第二次就不行。修改完就好了。