如何顯示excel文件在列表框在VB6

Question

我試圖顯示擅長在VB6的文件，我想下面的代碼，以顯示它：

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所以嘗試這樣的：使用Workbook對象的Name財產

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 

。

順便說一句，你可以有自己使用的Excel包括幫助發現這一點：

• 選擇AddItem
• 按F1
• 閱讀幫助文件告訴你至極的參數，你應該給，特別是其類型（在這種情況下，AddItem預計爲String爲Text自變量