title image


Smiley Re: Makrofrage für Datenimport
Hallo,

hm na ja:













Sub Import01()  

Dim Spalte As Long  

' Import01 Makro

' Makro am 17.05.2006 aufgezeichnet



Spalte = IIf(IsEmpty([iv1]), [iv1].End(xlToLeft).Column, 256)    



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

Destination:=Range("B" & Spalte))



.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  







Gruß

alfons

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: