Exel Tabelle mit VB6 Modifizieren

[symax]

Hallo,
habe folgendes Problem und bin leider totaler einsteiger in VB

Ich will 1.) eine Exeltabelle (input.xls) ÖFFNE
2.) z.B. Zeile A1 in die Variable X schreiben (in A1 steht text und zahl)
3.) diese zeile bearbeite ich nun
4.) die bearbeiten informationen drüberschreiben

Einfacherhalber
z.B. in A1 steht "Hallo"
ich les aus und mach HELLO WORLD draus
und Überschreib des (A1)

Geht das in VB6?

Bitte verzeiht mir wenn irgendwo was ähnliches steht, ich hab nix passendes gefunden was funktioniert hat (NEUEINSTEIGER)

Vielen Dank für eure Mühen,
MFG
Symax

P.S.: Kontrolle auf Fehler is nicht nötig

 

[symax]

Ich bin inzwischen weiter gekommen. Nur wartet Visual Basic nicht bis Exel offen ist um was auszulesen und liest so gar nichts aus, da exel noch nicht fertig mit laden ist und schliest exel auch sofort wieder. Wenn ich nun die Anwendung nicht mehr schliesen lasse ist die Exel datei korrekt aufgegangen. Wenn ich aber nun eine MSGBOX (laden fertig) so schalte, das ich eine wartezeit habe, ist in exel ein Fenster offen mit "Objekt", wo nix dringsteht, im Hintergrund ist das richtige offen.

1.) Wie mache ich einen Timer (anstatt MSGBOX)
2.) Warum erstellt er mit eine neue Tabelle mit dem Namen Object und wie kann ich das Verhindern bzw. automatisch auf die Richtige Tabelle umswitchen?
3.) gibt es einen code anstatt timer (so nach dem motto wait until exel open) ?

Ich bedanke mich für eure Hilfe ^^
MFG Symax

-----------------------------------------------bisheriger Code--------------------------------------------
ivate Sub open_Click()



Dim calc1 As Integer


Dim objExcel As Object
Set objExcel = CreateObject("Excel.Application")
objExcel.Workbooks.open FileName:="d:\2.xls"


Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
' Excel mit Hilfe des Application-Objekts
' bereitstellen.
ExcelSheet.application.Visible = True
'Sichtbarkeit, true=an, false=aus





MsgBox "All right, Database loaded"

Text6.Text = ExcelSheet.application.cells(1, 1).Value


'ExcelSheet.application.cells(2, 2).Value = calc1 ## DEAKTIVIERT
ExcelSheet.application.cells(1, 1).Value = "hab was gemacht"

' Speichern der Tabelle unter Y:\Eigene Dateien\Datenbanken Test\Neu\TEST.XLS
'ExcelSheet.SaveAs "d:\3.xls" #DEAKTIVIERT

'ExcelSheet.application.Quit #BEENDEN DEAKTIVIERT





End Sub