运行时错误 1004 - Excel 找不到用于刷新此外部数据范围的文本文件

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"))

Answer 3

这是对 Brendan Shanks 帖子的详细说明。 他发现了 Mac OS X 古怪的文件权限问题。 我只是想通过从冗长的文章中发布确切的答案（对我来说）来节省沮丧的人们的时间。

本质上，每个文件在首次打开时都需要明确授予 Excel 对每个文件的文件权限。 这是通过调用以下函数来完成的：

Function grantFileAccess(filePermissionCandidates)
    grantFileAccess = GrantAccessToMultipleFiles(filePermissionCandidates) 
End Function

如何使用这个功能？ 为您要使用的所有文件调用此函数。 如果是第一次打开文件（即 Excel 还没有权限），它会提示用户授予权限。

grantFileAccess (Array("PATH_TO_FILE/file.csv", "PATH_TO_FILE/file2.csv"))