Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Textimport aus Text-Datei mit Smikoli als Feldtrenner

Gruppe

TextImport

Problem

Wenn ich eine Text-Datei manuell importiere, wird das Semikolon als Feldseparator erkannt, steuere ich diese Vorgang über ein englischsprachiges Makro, ist dies nicht der Fall. Wie kann ich das ändern?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub Import()
   Dim sFile As String
   sFile = Range("B1").Value
   If Dir(sFile) = "" Then
      MsgBox "Datei wurde nicht gefunden!"
      Exit Sub
   End If
   Workbooks.OpenText sFile, _
      DataType:=xlDelimited, Semicolon:=True
End Sub