将csv文件导入工作簿

我希望能够点击一个button，并select我想要导入的文件。 我已经这样做了，但之后说我的文件已被导入没有任何反应。

我错过了什么？

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