Question

我已录制宏 - 下载 - 导入csv文件

如果我尝试修改文件的名称以导入另一个文件（例如2017-05-01），则会给出错误：运行时错误1004 - Excel无法找到文本文件来刷新此外部数据范围。

如果我修改了它的工作范围，但是当我修改文件名时却没有。我的Excel正在Mac上运行。我能想到的唯一一项是我的光盘是加密的......任何想法？

    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;/Users/dl/Documents/Annual_renewal/262_3297_2017_04_30.csv", _
        Destination:=Range("A411"))
        .Name = "262_3297_2017_04_30"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = xlMacintosh
        .TextFileStartRow = 2
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 5, 1, 1)
        .Refresh BackgroundQuery:=False
        .UseListObject = False
    End With

End Sub

Answer 1

您是否正在运行Excel 2016？它是一个沙盒应用程序，需要用户批准才能打开文件。此网站似乎针对您的具体问题提供了建议：https://www2.warwick.ac.uk/fac/sci/systemsbiology/staff/dyer/software/excelvbafileopen/

Answer 2

我有同样的问题。我试图从导致“运行时错误1004-Excel无法找到文本文件刷新此外部数据范围”的桌面文件夹中导入工作表。

然后，我将同一文件复制到Excel主目录“ /Users/userName/Library/Containers/com.microsoft.Excel/Data/Library/Application Support / yourFolder / YourFile ”中，此操作将错误。

With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;/Users/userName/Library/Containers/com.microsoft.Excel/Data/Library/Application Support/yourFolder/YourFile/Annual_renewal/262_3297_2017_04_30.csv", _
    Destination:=Range("A411"))

运行时错误1004 - Excel无法找到要刷新此外部数据范围的文本文件

2 个答案: