在我的 VB6.0 项目中提示运行时错误“91”[关闭]

Question

让我知道我的代码的错误在哪里：

Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object



**Set oBook = oExcel.Application.Workbooks.Open(App.Path & "\Data" & "\" & Label4.Caption & "" & "\" & Label4.Caption & ".xls")**
'opens the filename workbook but this is where the ERROR pointing me at.

Set oSheet = oExcel.Application.ActiveSheet 'activate the first worksheet


oSheet.Range("A1").Value = Label1.Caption
oSheet.Range("B1").Value = Label2.Caption

oExcel.Save
oExcel.Quit

Answer 1

您的代码存在多个问题。

您从不设置您的应用程序对象。如果 Excel 没有打开，则需要添加：

Set oExcel = CreateObject("Excel.Application")

以Set ... = oExcel.Application 开头的行可以简化为

Set ... = oExcel ' (no .Application)

因为oExcel 是您的应用程序级对象

Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object

Set oExcel = CreateObject("Excel.Application")

Set oBook = oExcel.Workbooks.Open(App.Path & "\Data" & "\" & _
    Label4.Caption & "" & "\" & Label4.Caption & ".xls")

Set oSheet = oExcel.ActiveSheet 'activate the first worksheet

oSheet.Range("A1").Value = Label1.Caption
oSheet.Range("B1").Value = Label2.Caption

oExcel.Save
oExcel.Quit

那么，Label4 是什么就不清楚了。在您使用Label4.Caption 之前，我在您的代码中没有看到您将对象分配给Label4 的任何地方。这也适用于Label1 和Label2。