내가 VB6에서 파일을 엑셀 표시하려고 VB6

Question

에 목록 상자에서 파일을 엑셀, 나는 그것을 표시에 다음 코드를 시도 : 그것은

때문에 449 오류를 반환,

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 

을하지만, , 나는 그것이 매력처럼 작동하도록하기 위해 무엇을해야합니까. 감사합니다.

Answer 1

Workbook object을 목록에 추가 할 수 없습니다. 일관성이 없습니다. 통합 문서 객체의 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 

:

당신은 String 그래서 뭔가를하려고 추가 할 수 있습니다.

Btw은

, 당신은 자신을 Excel에서 도움을 포함하여이 문제를 발견 할 수 :

• 선택 AddItem
• 눌러
• 당신이 제공해야 인수를 이십 기가 바이트 이야기 도움말 파일을 읽을 F1, 특히 유형 (이 경우 은 Text 인수의 경우 String입니다.