AW: Dateien automatisch nacheinander öffnen
15.06.2005 14:04:50
ozmo
Ich habe mir das mit meinem Macro so vorgestellt:
Sub Makro1()
Dim strVerzeichnis As String
Dim StrDatei As String
Dim StrTyp As String
Dim Dateiname As String
strVerzeichnis = "c:\temp"
StrTyp = "*.dat"
Dateiname = Dir(strVerzeichnis & StrTyp)
Do While Dateiname <> ""
' Workbooks.Open Filename:=strVerzeichnis & Dateiname
' Dein Makro
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;strVerzeichnis & Dateiname", Destination:=Range("A1"))
.Name = ""
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With
ActiveWorkbook.Close True
Dateiname = Dir
Loop
End Sub
Ich habe vor die Daten die als Textdatei vorliegen in excel zu öffnen.
Bis ich das Macro in die Schleife eingebunden habe hat es noch funktioniert.
Leider tut sich bei der Ausführung des Macros jetzt nichts mehr.
Was mache ich noch falsch?
Grüße, ozmo.