csv Datei einfügen......
13.08.2007 01:02:00
Uwe
hab was mit dem Macrorekorder aufgezeichnet und hätte gern das mir vorab ein Ordner geöffnet wird...die entsprechende .csv Datei ausgewählt wird....und dann entsprechend eingefügt wird.
Mit dem Recorder hab ich nur folgendes hin bekommen....
Option Explicit
Sub konto1()
' konto1 Makro
' Makro am 13.08.2007 von Uwe Hladik aufgezeichnet
Application.DisplayAlerts = False
Range("A5:M2000").Clear
Application.DisplayAlerts = True
' Dim fn
' ChDir "C:"
' ChDir "C:\Sicherung_W\Gesamtzahlen KSH_GZR"
' fn = Application.GetOpenFilename(FileFilter:="Alle .csv,*.csv", Title:="Bitte Datei auswä _
hlen")
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Sicherung_W\Gesamtzahlen KSH_GZR\umsatz-xxxxxxxx-12082007.csv", _
Destination:=Range("A5"))
.Name = "umsatz-xxxxxxxx-12082007"
.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 = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With
End Sub
..... wie man sieht sind die weiteren Eigenversuche gescheitert.
Wer kann mir helfen und das richtig zusammen setzen?
Vorab schon mal vielen Dank!!!!
Gruß Uwe