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

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 对象 添加到列表中，这是不一致的。

您可以添加一个 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 期望 Text 参数为 String