Office: Textimportassistent per Makro öffnen

Hallo Zusammen

Ich habe ein Makro das mir eine Textdatei importiert. Dabei erscheint der TextImport-Assistent nicht mehr, er macht es so wie aufgezeichnet. Nun kann ich aber nicht sicher sein, dass die Textdateien immer die selbe Form haben.

Code:

Option Explicit

Sub ImportText()
'
' ImportText Makro
'
Dim fName As String
Dim Quelle As Object, Ziel As Object
'
    ChDir "C:\"
    fName = Application.GetOpenFilename()

'wenn keine Datei ausgewählt:

    If fName = "Falsch" Then
  MsgBox "keine Datei ausgewählt", , "Abbruch"
  Exit Sub
End If
    
    
  'startet textimportassistenten
    Workbooks.OpenText Filename:= _
        fName, Origin:=xlMSDOS, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
        Array(3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers:=True
    
    
    Set Quelle = ActiveWorkbook.Worksheets(1)
    Set Ziel = ThisWorkbook.Worksheets("Datenimport")
 
'kopieren und einfügen
Quelle.UsedRange.Copy Ziel.Cells(1, 1)
 
ActiveWorkbook.Close
 
'Speicher freigeben
Set Quelle = Nothing
Set Ziel = Nothing
 
Exit Sub
 
Fehler:
Set Quelle = Nothing
Set Ziel = Nothing
 
    MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
    & "Beschreibung: " & Err.Description _
    , vbCritical, "Fehler"
    
   
    ActiveWorkbook.Save
End Sub

Kann ich den Textimportassistenten zuerst öffnen, dann die Auswahlen treffen, und dann geht es im Makro mit import weiter?

Johannes

 

Hallo Johannes,

mir ist überhaupt nicht klar, warum Du unter den vorhin genannten Voraussetzungen ein Makro für den Import der Textdatei benötigst? Das Makro (von der vorhin gezeigten Art) bringt dann überhaupt keinen Zusatznutzen!
Da Du keine Excel-Version angegeben hast, nehme ich an, dass Du mindestens Excel2007 (oder Excel2010 oder Excel2013) besitzt und hier geht der Import von Textdateien ganz einfach:
Im Menüband Tabulator "Daten" > Gruppe "Externe Daten abrufen" > Button "Aus Text"

 

Hallo Anton

Mein Fehler: Excel 2010 !

Zu meinem Problem:
Die Form der Daten ist immer gleich: eine bis zu 4stellige Punkt Nr, zwei Landeskoordinaten der Form 600000.000 und eventuell noch eine Höhenangabe ( 400.000 bis 1300.000). Nun werden diese Daten aber aus unterschiedlichen CAD Programmen ausgelesen, von unterschiedlichen Nutzern. Und die will ich einlesen. Aber der eine trennt mit Tab, der andere mit Komma,immerhin ist das Dezimalzeichen meist ein Punkt.
Nun würde ich eben gerne diese Einstellungen im TIAssistenten zulassen, aber das anschliessende in die richtige Datenbank kopieren und die Spalten richtig benennen ( Y-Koordinaten und X-Koordinaten, das würde ich gerne per Makro gesteuert haben. Falls das halt nicht geht, muss ich halt die Vorgabe machen, in welcher Form die Daten eingelesen werden können. Wäre auch okay, habe mich nur gefragt ob man das anders machen kann.
Bspweise auch Tabs UND Komma als Trennzeichen zulassen.

Besten Dank und freunliche Grüsse
Johannes

 

Hallo Johannes,

nichts einfacher als das:
1) Im Menüband Tabulator "Daten" > Gruppe "Externe Daten abrufen" > Button "Aus Text" den Textkonvertierungsassistenten aufrufen
2) Im Schritt 1 Radiobutton "Getrennt" auswählen
3) Im Schritt 2 die beiden Checkboxen "TabStopp" und "Komma" anhaken
4) Im Schritt 3 die Datentypen der Spalten festlegen
5) Abschließend des Importziel im Arbeitsblatt festlegen.

Das war's.