Vba 将数据从CSV导入XLSM

下面是我的应用程序将数据从CSV文件获取到Excel文件的宏代码。它位于同一位置。但我无法导入数据

它给出了一个错误：

运行时错误1004方法“对象范围”\u Global“失败

基于Excel VBA的应用程序代码：

Sub LoadFromFile()
Dim fileName As String
Dim folder As String
Dim lastRow As Long
Dim dest As String


If IsEmpty(Range("A1").Value) = True Then
    lastRow = 1
Else: If IsEmpty(Range("A1").Value) = False Then GoTo Line1x
Line1x:
With ActiveSheet
        lastRow = ActiveSheet.Cells.Find("*", SearchOrder:=xlByRows, LookIn:=xlValues, SearchDirection:=xlPrevious).Row
    End With
        End If
ActiveSheet.UsedRange.Clear

dest = "$A$" & lastRow
folder = "C:\xampp\htdocs\sites\repairrequest\database.csv"

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

End Sub

---

答案已在评论中解决

.Add(Connection:="TEXT;" & folder, Destination:=Range("$A$" & lastRow))

---

答案已在评论中解决

.Add(Connection:="TEXT;" & folder, Destination:=Range("$A$" & lastRow))

---

在哪一行？第22行或.Add（连接：=“TEXT；”文件夹，目的地：=范围（“dest”））您只需要

Range（dest）

，因为

dest

是字符串变量而不是命名范围。新的err:438对象不支持此属性或方法。范围总是用（“”）引号括起来，变量是不允许的；您还需要将最后一行保存为字符串的一部分，以便在dest中包含一个引号。您也可以这样做：.Add（Connection:=“TEXT；”文件夹，Destination:=Range（$A$”&lastRow））在哪一行？第22行或.Add（Connection:=“TEXT；”文件夹，Destination:=Range（“dest”））您只需要

Range（dest）

，因为

dest

是字符串变量而不是命名范围。新的err:438对象不支持此属性或方法。范围总是用（“”）引号括起来，变量是不允许的；您还需要将最后一行保存为字符串的一部分，以便在dest中包含一个引号。您也可以这样做：.Add（连接：=“TEXT；”&文件夹，目的地：=范围（“$A$”&lastRow）），我很好奇为什么这样做有效，但变量方法没有。对我来说没有意义？@SJR我试着在评论中解释。。。我以前也有过这种事。将dest设置为字符串，dest=”“&“$A$”&lastRow&“”，这样它就适合范围（“”）模型。最好将dest设置为Range，Set dest=…谢谢Cyril，是的，我同意了。我很好奇为什么这样做有效，但变量方法没有。对我来说没有意义？@SJR我试着在评论中解释。。。我以前也有过这种事。将dest设置为字符串，dest=”“&“$A$”&lastRow&“”，这样它就适合范围（“”）模型。最好将dest调暗为范围，设置dest=…谢谢Cyril，同意。