Import .txt - Datei über Drag&Drop

Hallo liebe Excel-Experten,
ich tüftle momentan an einem kleinen Excel-Tool, das die Arbeit mir und einigen Kollegen erleichtern soll. Hierzu werden Datenmengen aus einer Textdatei eingelesen. Alle Voreinstellungen beim Import werden beibehalten, lediglich der Austausch von allen Punkten durch Kommas muss stattfinden.
Ich fände es genial, wenn das ganze durch ein Drag&Drop System funktionieren könnte. Man klickt auf den Makro-Button, ein Fenster geht auf, man lässt die zu importierende Textdatei rein fallen, diese wird eingespielt, Punkte mit Kommas ersetzt und an die Stelle A1 reinkopiert.
Leider bin ich in dem Umgang mit Visual Basic noch nicht so geübt, um das eigenständig hinzukriegen.
Hat einer von euch eine Idee?
Vielen Dank im Voraus
Gruß
Max

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\Desktop\BeispielTextdatei.txt", _ Destination:=Range("$A$1")) .Name = "BeispielTextdatei" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 437 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1) .TextFileDecimalSeparator = "." .TextFileThousandsSeparator = "," .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub

Hallo Max,
das mit Drag&Drop lassen wir mal sein, ein Datei-Auswahldialog sollte es wohl auch tun!
In ein allgemeines Modul der Importdatei, importiert wird in das aktive Tabellenblatt!

' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit


Sub TXT_Einlesen()
Dim strFile As String
Dim objQT As Object

With Application.FileDialog(msoFileDialogFilePicker)
  .InitialFileName = "E:\Forum" 'Startverzeichnis - Anpassen
  .Title = "TXT-Datei auswählen"
  .ButtonName = "Import Starten"
  .Filters.Clear
  .Filters.Add "Text Dateien", "*.txt; *.csv", 1
  .Filters.Add "Alle Dateien", "*.*", 2
  .FilterIndex = 1
  .InitialView = msoFileDialogViewList
  If .Show = -1 Then strFile = .SelectedItems(1)
End With

If Len(strFile) Then
  With ActiveSheet
    .UsedRange.Clear
    For Each objQT In .QueryTables
      objQT.Delete
    Next
    With .QueryTables.Add(Connection:= _
        "TEXT;" & strFile, Destination:=Range("$A$1"))
      .Name = "BeispielTextdatei"
      .FieldNames = True
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = True
      .RefreshOnFileOpen = False
      .RefreshStyle = xlInsertDeleteCells
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .TextFilePromptOnRefresh = False
      .TextFilePlatform = 437
      .TextFileStartRow = 1
      .TextFileParseType = xlDelimited
      .TextFileTextQualifier = xlTextQualifierDoubleQuote
      .TextFileConsecutiveDelimiter = False
      .TextFileTabDelimiter = True
      .TextFileSemicolonDelimiter = False
      .TextFileCommaDelimiter = False
      .TextFileSpaceDelimiter = False
      .TextFileColumnDataTypes = Array(1)
      .TextFileDecimalSeparator = "."
      .TextFileThousandsSeparator = ","
      .TextFileTrailingMinusNumbers = True
      .Refresh BackgroundQuery:=False
    End With
  End With
End If
End Sub

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

Import .txt - Datei über Drag&Drop

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

258 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Import .txt - Datei über Drag&Drop

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

258 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread