將csv文件導入工作簿

Question

我希望能夠點擊按鈕並選擇要導入的文件。我已經這樣做了，但在之後，它說我的文件已經導入沒有任何反應。

我在想什麼？

Sub GetImportFileName() 
    Dim Filt As String 
    Dim Title As String 
    Dim FileName As Variant 
    Dim FilterIndex As Integer 

    Filt = "Comma Separated Files (*.csv),*.csv," 
    FilterIndex = 5 
    Title = "Select a File to Import" 

    FileName = Application.GetOpenFilename _ 
    (FileFilter:=Filt, _ 
    Title:=Title) 

    If FileName = False Then 
     MsgBox "No file was selected." 
     Exit Sub 
    End If 

    MsgBox "You selected " & FileName  
End Sub 

Answer 1

我看不到任何會導入CSV的代碼。您只能獲取FileName。你缺少這樣的東西（Comma (,)作爲分隔符）

With ActiveSheet.QueryTables.Add(Connection:= _ 
    "TEXT;" & fileName & "", Destination:=Range("$A$1" _ 
    )) 
    .CommandType = 0 
    .FieldNames = True 
    .RowNumbers = False 
    .FillAdjacentFormulas = False 
    .PreserveFormatting = True 
    .RefreshOnFileOpen = False 
    .RefreshStyle = xlInsertDeleteCells 
    .SaveData = True 
    .AdjustColumnWidth = True 
    .RefreshPeriod = 0 
    .TextFilePromptOnRefresh = False 
    .TextFilePlatform = 852 
    .TextFileStartRow = 1 
    .TextFileParseType = xlDelimited 
    .TextFileTextQualifier = xlTextQualifierDoubleQuote 
    .TextFileConsecutiveDelimiter = False 
    .TextFileTabDelimiter = False 
    .TextFileSemicolonDelimiter = False 
    .TextFileCommaDelimiter = True 
    .TextFileSpaceDelimiter = False 
    .TextFileColumnDataTypes = Array(1, 1) 
    .TextFileTrailingMinusNumbers = True 
    .Refresh BackgroundQuery:=False 
End With