Excel VBA Öffnen 1 CSV-Datei

Question

Mit Excel 2010 versuche ich einen Code hinzuzufügen, der das Dateiauswahlfenster öffnet, in dem der Benutzer die CSV-Datei auswählen kann, die er öffnen möchte.

Mein Code ist unten:

Dim OpenThisFile 
OpenThisFile = Application.GetOpenFilename 

Dies wurde gerade von einem meiner alten VBA-Dateien genommen, das gearbeitet hat. Zur Zeit aber, wenn der VBA die 2. Zeile liest öffnet sie die Datei Auswahlfenster, aber sobald ich eine CSV-Datei auswählen und öffnen traf es gibt dem Fehler Application-Defined or Object-Defined Error

Answer 1

GetOpenFilename wird wieder die volle Filespec als String Variable. Sie können analysieren, es mag:

Sub qwerty() 
    Dim f As String, Path As String, _ 
     FileName As String, FileType As String 

    f = Application.GetOpenFilename() 
    MsgBox f 

    ary = Split(f, "\") 
    bry = Split(ary(UBound(ary)), ".") 
    ary(UBound(ary)) = "" 
    Path = Join(ary, "\") 
    FileName = bry(0) 
    FileType = bry(1) 

    Range("A1") = Path 
    Range("A2") = FileName 
    Range("A3") = FileType 
End Sub 

und wenn Sie wollen pre-select den Pfad und den Dateityp dann:

Sub qwerty2() 
    Dim f As String, Path As String, _ 
     FileName As String, FileType As String 

    ChDir "C:\TestFolder" 
    f = Application.GetOpenFilename(FileFilter:="Text Files (*.csv), *.csv") 
    MsgBox f 

    ary = Split(f, "\") 
    bry = Split(ary(UBound(ary)), ".") 
    ary(UBound(ary)) = "" 
    Path = Join(ary, "\") 
    FileName = bry(0) 
    FileType = bry(1) 

    Range("A1") = Path 
    Range("A2") = FileName 
    Range("A3") = FileType 
End Sub