VB Problem in verbindung mit Excel
Onkel
ich hoffe das ich hier mein Problem gelöst bekomme. Habe es schon in verdammt vielen Foren angesprochen, aber leider haben mir die Tipps nicht geholfen.
Ich öffne per VB eine *.dat-datei in Excel, Füge eine Spalte hinzu, und lasse das gesamte Tabellenblatt markieren. Und genau jetzt kommt mein Problem :
Jetzt nämlich soll in allen felder nach zb.: "Hallo" gesucht werden, und durch "Juhu" ersetzt werden.
Mit dem unten stehendem Code klappt das nicht. Ich bekomme ständig eine Fehlermeldung von VB zurück.
Schaut Euch mal den Code an. Bin ziemlich am Ende wegen der Funktion :-(
Ich danke Euch.
Private Sub Command1_Click()
Dim XLAPP As Object
Dim CurrentPrint As Integer
Set XLAPP = CreateObject("Excel.Application")
XLAPP.Visible = True
XLAPP.workbooks.Open ("C:\tonline_11032004_1339.dat")
XLAPP.activeworkbook.sheets(1).Columns(1).Insert shift:=xltoright
XLAPP.cells(1, 1).Formula = "KEY"
XLAPP.cells.Select
Ersetzen "Hallo", "Juhu"
End Sub
'Und hier die Sub zum "Suchen und Ersetzen"
Sub Ersetzen(strOld As String, strNew As String)
XLAPP.Selection.Replace What:=strOld, Replacement:=strNew, LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False
End Sub
PS:
Ich nutze VB 6 und Office XP