XProfan

Deutsch

Detlef
Jagolski

Hallo!!!
ich habe folgendes Problem:

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

Mit VB6 geht es so:
Kompilieren Markieren Separieren

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

Hat jemand eine Idee wie es mit Profan geht?

mfg

Detlef

XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11

02.11.2010 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

« Dieser Beitrag wurde als Lösung gekennzeichnet. »

Detlef
Jagolski

Danke IF
Kompilieren Markieren Separieren

 $H WINDOWS.PH
 $H OCX3A.PH
 $I OCX3A.INC
Declare x%, Sheets&, TabellenName$

Proc Tabellen_Namen

    ocxInit()
    VAR Datei1$   ="Test.xls"
    VAR Excel&    =ocxCreate("Excel.Application")
    VAR Workbooks&=ocxGet(Excel&,"Workbooks")
    VAR ExcelBook1&=ocxMethod(Workbooks&,"Open",Datei1$)
    VAR Application&=ocxGet(ExcelBook1&,"Application")
    VAR Worksheets&=ocxGet(Application&,"Worksheets")
    VAR AnzahlTabellen&=ocxGet(Worksheets&,"Count")
    x% = 1
    VAR ActiveWorkbook&=ocxGet(Application&,"ActiveWorkbook")

    WhileLoop AnzahlTabellen&

        Sheets&=ocxGet(ActiveWorkbook&,"Sheets",x%)
        TabellenName$=ocxGet(Sheets&,"Name")
        Print TabellenName$
        x% = x% + 1

    EndWhile

    ocxMethod(Excel&,"Quit")
    ocxRelease(WorkBooks&,Excel&)
    ocxDeInit()

EndProc

cls
Tabellen_Namen
waitinput
end

Gruß

Detlef

XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11

04.11.2010 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Such mal nach Excel, ich meine dort wirst fündig.

03.11.2010 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Detlef
Jagolski

Danke IF
Kompilieren Markieren Separieren

 $H WINDOWS.PH
 $H OCX3A.PH
 $I OCX3A.INC
Declare x%, Sheets&, TabellenName$

Proc Tabellen_Namen

    ocxInit()
    VAR Datei1$   ="Test.xls"
    VAR Excel&    =ocxCreate("Excel.Application")
    VAR Workbooks&=ocxGet(Excel&,"Workbooks")
    VAR ExcelBook1&=ocxMethod(Workbooks&,"Open",Datei1$)
    VAR Application&=ocxGet(ExcelBook1&,"Application")
    VAR Worksheets&=ocxGet(Application&,"Worksheets")
    VAR AnzahlTabellen&=ocxGet(Worksheets&,"Count")
    x% = 1
    VAR ActiveWorkbook&=ocxGet(Application&,"ActiveWorkbook")

    WhileLoop AnzahlTabellen&

        Sheets&=ocxGet(ActiveWorkbook&,"Sheets",x%)
        TabellenName$=ocxGet(Sheets&,"Name")
        Print TabellenName$
        x% = x% + 1

    EndWhile

    ocxMethod(Excel&,"Quit")
    ocxRelease(WorkBooks&,Excel&)
    ocxDeInit()

EndProc

cls
Tabellen_Namen
waitinput
end