statt .xls ein textfile
22.08.2003 12:35:03
manu
habe folgendes makro, was an sich bereits gut läuft. wenn ich aber nun anstelle der exceldatei ein textformat (.txt) benutzen möchte, ist mein leider bereits latein am ende ..
hier das makro (die aktuelle excel datei ruft ein externes dokument auf und vergleicht eindeutige ID-einträge --> z.B. MD123456. sofern vorhanden, wird diese ins aktuelle excel-dokument eingetragen. der vorgang "öffnen, prüfen & schliessen" der externen datei passiert für den nutzer im hintergrund ):
Private Sub CommandButton1_Click()
Dim Tab1 As Worksheet, Tab2 As Worksheet, Zeile As Long, Zelle As Range
Set Tab1 = ThisWorkbook.Worksheets(2) 'hier Nummer der Tabelle anpassen
Application.ScreenUpdating = False
Application.ShowWindowsInTaskbar = False
Set Tab2 = Workbooks.Open("c:\test\treeprofile.xls").Worksheets(1) 'hier Mappenname und Tabellennummer anpassen
For Zeile = 2 To Tab1.Cells(65536, 1).End(xlUp).Row
If Trim(Tab1.Cells(Zeile, 1)) <> "" Then
Set Zelle = Tab2.Cells.Find(What:=Trim(Tab1.Cells(Zeile, 1)), LookIn:=xlValues, LookAt:=xlPart)
If Not Zelle Is Nothing Then Tab1.Cells(Zeile, 2) = Tab1.Cells(Zeile, 1)
End If
Next
For Zeile = 2 To Tab1.Cells(65536, 1).End(xlUp).Row
If Trim(Tab1.Cells(Zeile, 1)) <> "" Then
Set Zelle = Tab2.Cells.Find(What:=Trim(Tab1.Cells(Zeile, 1)), LookIn:=xlValues, LookAt:=xlPart)
If Zelle Is Nothing Then Tab1.Cells(Zeile, 3) = Tab1.Cells(Zeile, 1)
End If
Next
ActiveWorkbook.Close (True)
End Sub
.. mit dem makrorecorder erhalte ich für die textdatei die folgenden prozedur- nach dem einbau funktioniert es aber leider nicht:
ChDir "C:\test"
Workbooks.OpenText Filename:="C:\test\treeprofile.txt", Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1) _
, Array(16, 1), Array(32, 1), Array(39, 1)), TrailingMinusNumbers:=True
weiss jemand weiter?
danke
manu