Private Sub Command3_Click()
'VB 6 / Excel 2002 Beispiel
Dim myXL As Excel.Application
Dim myXLS As Excel.Workbooks
Dim i As Integer
Dim LetzteZelle As Integer
 
Set myXL = Excel.Application
Set myXLS = myXL.Workbooks
 
myXLS.Open ("D:\Mappe1.xls")
 
For i = 1 To Columns.Count 'oder halt 256
If Cells(1, i).Value <> "" Then
LetzteZelle = Cells(1, i).Column
End If
Next i
 
'Spalten durchlaufen (nur bis zur letzten Zelle) und Zelleninhalt in 
' List1 eintragen
For i = 1 To LetzteZelle
List1.AddItem myXL.ActiveSheet.Cells(1, i).Text
Next i
 
myXLS.Close
 
Set myXLS = Nothing
Set myXL = Nothing
 
End Sub