Tipp 0030 Textdatei öffnen
Autor/Einsender:
Datum:
  Angie
24.10.2004
Entwicklungsumgebung:   Excel 2000
Mit der in Excel integrierten OpenText-Methode können Textdateien in Excel geöffnet werden, dabei wird die Textdatei als neue Arbeitsmappe mit einem einzelnen Blatt geladen und wird automatisch zur aktiven Arbeitsmappe. Mit der SaveAs-Methode können Arbeitsmappen im gewünschten Format gespeichert werden. Diese beiden Methoden funktionieren recht gut und sind auch in der Excel-VB-Hilfe sehr ausführlich beschrieben.
 
Option Explicit

Sub OpenTextFile()
  Dim varRetVal     As Variant
  Dim strFileName   As String

  ChDrive ThisWorkbook.Path
  ChDir ThisWorkbook.Path

  varRetVal = Application.GetOpenFilename( _
        FileFilter:="Text-Dateien (*.txt), *.txt", _
        Title:="Daten aus Text-Datei importieren")

  If varRetVal = False Then Exit Sub

  strFileName = varRetVal

  Workbooks.OpenText Filename:=strFileName, StartRow:=1, _
      DataType:=xlDelimited, TextQualifier:=xlNone, _
      ConsecutiveDelimiter:=True, Space:=True

  Dim wkb As Workbook
  Dim wks As Worksheet

  Set wkb = ActiveWorkbook

  strFileName = ThisWorkbook.Path & "\NeueXLDatei.xls"
  wkb.SaveAs Filename:=strFileName, FileFormat:=xlWorkbookNormal

  Set wks = wkb.Worksheets(1)
  wks.Name = "VB-fun-Demo"
  wks.UsedRange.Columns.AutoFit

  Set wks = Nothing
  Set wkb = Nothing
End Sub
 
Weitere Links zum Thema
Daten speichern/lesen (Binär-Datei)
Daten speichern/lesen (Text-Datei)
Datenfeld (Variant) in Binär-Datei speichern
Hinweis
Die im Download befindliche *.bas-Datei kann in Excel im VB-Editor importiert werden.

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
Excel-Version
95
97
2000
2002 (XP)
2003
2007
2010


Download  (1,5 kB) Downloads bisher: [ 1624 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 31. Juli 2011