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
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