title image


Smiley Re: Makrofrage für Datenimport
Hallo Alfons



Hat SUPI geklappt. Genauso wollt ich es haben :o))).

Vielleicht noch eine Frage:

Ich bin icht gerade der Obermakrospezialist. Eigentlich benutz ich nur den Makrorecorder - hat bisher gereicht. So sieht das bei mir aus:



Sub Import01()

'

' Import01 Makro

' Makro am 17.05.2006 aufgezeichnet

'



'

With ActiveSheet.QueryTables.Add(Connection:="TEXT;D:\Test\datenquelle.txt", _

Destination:=Range("B1"))

.Name = "datenquelle_36"

.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 = False

.TextFileSemicolonDelimiter = False

.TextFileCommaDelimiter = False

.TextFileSpaceDelimiter = False

.TextFileColumnDataTypes = Array(1)

.Refresh BackgroundQuery:=False

End With

End Sub





Kann man das damit ( also mit "Bordmitteln" ) auch realisieren ?



Vielen Dank nochmal

Greetings Steve

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: