Daten importieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub txt_öffnen() datei = Application.GetOpenFilename("Textdateien (*.txt), *.txt,Alle Dateien (*.*), *.*", , _ "Choose file to open") If datei = False Then Exit Sub End If Workbooks.OpenText Filename:=datei _ , Origin:=437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(20 _ , 1), Array(29, 1), Array(42, 1), Array(55, 1), Array(68, 1)), _ DecimalSeparator:=".", ThousandsSeparator:=" ", TrailingMinusNumbers:=False End Sub

Hallo,
vielen Dank erstmal für eure Antworten. Ich habe mich jetzt für folgende Variante entschieden:


Sub Import()
' Import Makro
Dim DName    As String
DName = Application.GetOpenFilename            ' Auswahl der zu öffnenden Textdatei
If DName = "Falsch" Then                       ' Abbrechen gedrückt ?
ActiveWindow.SelectedSheets.Delete          ' aktives Blatt löschen
Exit 

Sub                                    ' 

Sub verlassen
End If
Open DName For Input As #1                     ' ausgewählte Eingabedatei öffnen
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\HP-Downloads\artiwin.364", Destination:=Range("A1"))
.Name = "artiwin"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub


Er springt zwar immer nur in den in Excel hinterlegten Standardspeicherort, aber das ist nicht so schlimm. Das einzig "unschöne" ist die Tatsache, dass man das Makro nur einmal ausführen kann. Schliesst man danach die Mappe und versucht dies bei einer neuen (Mappe 2), so gibt dies den Laufzeitfehler 55 und dem Hinweis Datei bereits geöffnet. Hier muss man Excel erst einmal schliessen und wieder öffnen, dann geht es.

Bis hierhin aber erst nochmal vielen Dank.

Sascha

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread