求助，导入csv数据

卧枝惠中天 2019-03-17 11:33:20

第一步是打开导入数据的对话框，选择我要导入的对象文件。第二步是读取并写入数据。感觉我选中的这个filepath写法有问题，每次获得的数据都是空，请大神指教！！感谢感谢！

...全文

102 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

milaoshu1020 2019-03-18

打赏
举报

这样是可以导入的,只不过格式不对:

Sub test()

    Dim filePath



    With Application.FileDialog(msoFileDialogFilePicker)

        If .Show <> -1 Then

            Exit Sub

        End If

        filePath = .SelectedItems(1)

    End With

    

    Dim qt

    Set qt = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & filePath, Destination:=Range("$A$1"))

    qt.Refresh

End Sub

这样导入对,格式也对:

Sub Macro1()

'

' Macro1 Macro

'



'

    Dim filePath As String

    With Application.FileDialog(msoFileDialogFilePicker)

        If .Show <> -1 Then

            Exit Sub

        End If

        filePath = .SelectedItems(1)

    End With

    

    With ActiveSheet.QueryTables.Add(Connection:= _

        "TEXT;" & filePath, Destination:=Range("$A$1"))

        .Name = "test_import_1"

        .FieldNames = True

        .RowNumbers = False

        .FillAdjacentFormulas = False

        .PreserveFormatting = True

        .RefreshOnFileOpen = False

        .RefreshStyle = xlInsertDeleteCells

        .SavePassword = False

        .SaveData = True

        .AdjustColumnWidth = True

        .RefreshPeriod = 0

        .TextFilePromptOnRefresh = False

        .TextFilePlatform = 936

        .TextFileStartRow = 1

        .TextFileParseType = xlDelimited

        .TextFileTextQualifier = xlTextQualifierDoubleQuote

        .TextFileConsecutiveDelimiter = False

        .TextFileTabDelimiter = False

        .TextFileSemicolonDelimiter = False

        .TextFileCommaDelimiter = True

        .TextFileSpaceDelimiter = False

        .TextFileColumnDataTypes = Array(1)

        .TextFileTrailingMinusNumbers = True

        .Refresh BackgroundQuery:=False

    End With

End Sub