[已解决]帮忙看下这个导入数据代码，为什么会出错

Crystalm

我写了个代码将.csv 文件中的数据导入到excel 中，这个csv文件在当前文件夹中，但是运行时这个代码会报错，请教这是为什么？

sub test()
Sheets("data").Columns("A:AO").ClearContents
With Sheets("data").QueryTables.Add(Connection:= _
        "TEXT;ThisWorkbook.Path &\Rawdata.csv", Destination:=Sheets("data").Range("$A$1"))
        .TextFileCommaDelimiter = True
        .Refresh BackgroundQuery:=False
    End With
end sub

最佳答案

月排行榜 / 总排行榜

adders

2012-3-17 01:59

'See below minor changes (in red):

Sub test()
Sheets("data").Columns("A:AO").ClearContents
With Sheets("data").QueryTables.Add(Connection:= _
        "TEXT;" & ThisWorkbook.Path & "\Rawdata.csv", Destination:=Sheets("data").Range("$A$1"))
        .TextFileCommaDelimiter = True
        .Refresh BackgroundQuery:=False
    End With
End sub

跳转到最佳答案楼层

adders

'See below minor changes (in red):

Sub test()
Sheets("data").Columns("A:AO").ClearContents
With Sheets("data").QueryTables.Add(Connection:= _
        "TEXT;" & ThisWorkbook.Path & "\Rawdata.csv", Destination:=Sheets("data").Range("$A$1"))
        .TextFileCommaDelimiter = True
        .Refresh BackgroundQuery:=False
    End With
End sub