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

我试图在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属性。

顺便说一句，你可以find这个自己使用Excel包括帮助：

• selectAddItem
• 按F1
• 阅读帮助文件告诉你至less应该给的参数，尤其是哪种types （在这种情况下， AddItem需要Text参数的String