Unterdrückung Warnfenster
07.05.2004 11:15:16
Ulrike
folgendes Problem:
ich lese in meinen Excel-Programm mittels VBA zahlreiche Textdateien ein und muß diese daher vorher öffnen. Aber: Bei dem öffnen jeder Textdatei erscheint das Fenster: "Die Datei hat ein nicht erkennbares Format..." Dies muß ich dann mit "ok" bestätigen und dann wird auch alles wie gewünscht ausgeführt.
Nun will ich aber über 300 dieser Dateien öffnen und nicht während des Ausführung des Makros über 300x die ok-Taste drücken. Kann man diesen Hinweis irgendwie unterdrücken?
Für Hilfe wäre ich seeeeeher dankbar,
Ulrike
Mein Code lautet im Moment verkürzt:
ChDir "C:\Daten"
For tag = 1 To 6
dateiname_txt = "C:\Daten\0" & tag & "0102.txt"
Workbooks.OpenText Filename:=dateiname_txt, _
Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
Array(Array(0, 1), Array(129, 1)), TrailingMinusNumbers:=True
Range("A1").Select
dateiname_ergebnis = "Einlesen Daten.xls"
dateiname_xls = "0" & tag & "0102.txt"
Windows(dateiname_xls).Activate
Range("B4").Select
Selection.Copy
Windows("Einlesen Daten.xls").Activate
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveSheet.Paste
Windows(dateiname_xls).Activate
ActiveWorkbook.Close
next tag