Excel Datei erstellen->bearbeiten->speichern

  • VB6

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von roddy.

    Excel Datei erstellen->bearbeiten->speichern

    Hi,
    mein Problem ist folgendes. Ich möchte eine Exceldatei erstellen, diese dann aufrufen(öffnen) und dort etwas hineinschreiben und dann speichern. Diese soll dann später von Matlab nämlich eingelesen werden...
    Ich bin VB-Anfänger und kenne mich mit den Objekten/methoden nicht genau aus.
    Brauch ich zwei unterschiedliche Objekte (Application bzw. Sheet?).
    Das muss irgendwie einfach gehen. Durch googlen habe ich mir folgenden Code zusammengebastelt. Wirklich funktionieren will er aber trotzdem nicht. Alles soll aus einer VB6-Umgebung heraus passieren.
    Vielen Dank!


    Mein Code ist folgender:



    Sub Main()
    Dim test As Object
    Dim g As Double
    Dim xls As Object
    Dim matlab As Object

    Set xls = CreateObject("Excel.sheet")
    xls.saveas App.Path & "\tt.xls"

    Set test = CreateObject("Excel.application")
    test.Visible = False
    xls.open App.Path & "\tt.xls"


    For g = 1 To 200
    test.activeworkbook.worksheets(1).cells(1, g) = g
    Next g

    test.saveas Filneame:=App.Path & "\tt.xls"

    xls.application.[Quit]
    Set xls = Nothing
    ExcelCreateWorkbook = True



    Set matlab = CreateObject("Matlab.Application")
    'CALLING M-FILE FROM VB
    matlab.Execute ("cd 'U:\3 Programme'") ' Ändern des Verzeichnisses
    matlab.Execute ("vb6")

    End Sub
    Also ich würde erst eine neue Excel-Instanz aufrufen und danach eine neue Mappe innerhalb dieser Instanz erstellen:

    Visual Basic-Quellcode

    1. Set test = CreateObject("Excel.Application")
    2. test.Visible = False
    3. Set xls = test.Workbooks.Add
    4. xls.SaveAs App.Path & "\tt.xls"
    5. For g = 1 To 200
    6. xls.Worksheets(1).Cells(1, g) = g
    7. Next g
    8. xls.Save
    9. test.Quit