Excel Tabellen-Namen auslesen

[maico777]

Hallo!!!
ich habe folgendes Problem:

Ich möchte im VB6 aus einer Excel-Datei die Namen der Tabellen auslesen und in einem Kombinationsfeld einfügen!

HELP!!!!!

 

[werkam]

Via VBA kann man nicht auf geschlossene Arbeitsmappen zugreifen. Die Mappe
muß temporär geöffnet werden, sinnvollerweise ausgeblendet. Im nachfolgenden
Beispiel befinden sich in einem Dialogsheet eine ListBox und ein
CommandButton, dem das nachfolgende Makro zugeordnet ist:

Sub CommandButton1_Click()
Dim WB As Workbook
Dim TB As Worksheet
Dim DL As DialogSheet
Set WB = Workbooks.Open("test.xls")
ActiveWindow.Visible = False
For Each TB In WB.Worksheets
ActiveDialog.ListBoxes(1).AddItem TB.Name
Next TB
WB.Close savechanges:=False
End Sub

Du kannst es ja Deinen Bedürfnissen anpassen. Ist schon etwas her als ich mich damit beschäftigt habe, bei VB 6 kann es auch andere Möglichkeiten geben. Versuch macht klug.

 

[maico777]

vielen dank!

ich habe es jetzt so gelöst:

Dim myExcel As New Excel.Application
Dim AnzahlTabellen As Long
Dim i As Long
Dim NameTabelle As String


ComboBox1.Clear

myExcel.Workbooks.Open (Excel Datei)
AnzahlTabellen = myExcel.Application.Worksheets.Count

For i = 1 To AnzahlTabellen
NameTabelle = myExcel.ActiveWorkbook.Sheets(i).Name
ComboBox1.AddItem NameTabelle

Next