Question

我试图在vb6中显示excel文件，我尝试使用以下代码来显示它：

Private Sub Command1_Click()
       Dim xlsApp As Excel.Application 
       Set xlsTemp = New Excel.Application
       wbk = xlsTemp.Workbooks.Open = "C:\MANGO\Test.xls" 'xls file path
       List1.AddItem (wbk) 'add data wbk
End Sub

但是，它返回了449错误

所以，我该怎么做才能使它像魅力一样工作。感谢

Answer 1

您无法将Workbook object添加到列表中，这是不一致的。

您可以添加String，请尝试以下内容：

Private Sub Command1_Click()
       Dim xlsApp As Excel.Application 
       Set xlsTemp = New Excel.Application
       wbk = xlsTemp.Workbooks.Open = "C:\MANGO\Test.xls" 'xls file path
       List1.AddItem (wbk.Name) 'add data wbk
End Sub

使用Workbook对象的Name属性。

顺便说一句，您可以使用Excel附带的帮助自己找到这个：

选择AddItem
按 F1
阅读帮助文件，告诉您应该给出的参数，尤其是类型（在这种情况下，AddItem期望String参数为Text

如何在vb6中的listBox中显示excel文件

1 个答案: