Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
und noch einmal: Datei einlesen
14.11.2005 08:44:33
F
Hallo,
ich komme nicht weiter.
ich würde gerne in Excel durch betätigen eines Buttons,
eine Datei einlesen, die die endung .dat hat.
Eine Datei liegt auf dem Server
https://www.herber.de/bbs/user/28365.dat
Der Dialog zum öffnen der der Datei funktioniert.

Private Sub CommandButton1_Click()
Dim var As Variant
Dim sFiles As String
sFiles = "dat-Files (*.dat), *.dat,"
var = Application.GetOpenFilename(sFiles)
End Sub

Es geht ein Fenster auf, in dem ich die Datei anwählen kann,
mehr passiert aber nicht.
Was fehlt da?
Das zweite Problem: wenn ich in Excel auf Datei/öffnen/ gehe,
und dann die .dat Datei auswähle, geht der Textkonvertierungs-Assistent
auf, und ich wähle:Dateityp - getrennt und Leerzeichen als Trennzeichen
aus.
Kann man das auch mit dem CommandButton verknüpfen?
Gruß
Frank

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: und noch einmal: Datei einlesen
14.11.2005 09:05:12
Worti
Hallo Frank,
dein Code muß´so aussehen:


Private Sub CommandButton1_Click()
    Dim var As Variant
    Dim sFiles As String
    sFiles = "dat-Files (*.dat), *.dat,"
    var = Application.GetOpenFilename(sFiles)
    If var = False Then
        Exit Sub
    End If
    Workbooks.OpenText FileName:=var, Origin:= _
        xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, Space:=True, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1))
End Sub


Gruß Worti
Anzeige
AW: und noch einmal: Datei einlesen
14.11.2005 09:22:41
F_Zap
Hallo Worti,
VIELEN DANK für Deine schnelle Hilfe
Es funktioniert.
Gruß
Frank

245 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige