在 Mac 上打开 CSV 文件时出现错误 53

Question

当我尝试打开 CSV 文件时，我得到：

错误 53：找不到文件

我在第 4 行得到错误，Open FilePath For Input As #1 我究竟做错了什么？

这是我第一次打开 CSV，请放纵我的代码。

Sub opentextfile()
Dim FilePath As String
FilePath = "/Users/christinekelly/Desktop/authors.csv"
file1 = FreeFile
Open FilePath For Input As #file1
row_number = 0
Do Until EOF(1)
Line Input #file1, LineFromFile
LineItems = Split(LineFromFile, ",")
ActiveCell.Offset(row_number, 0).Value = LineItems(2)
ActiveCell.Offset(row_number, 1).Value = LineItems(1)
ActiveCell.Offset(row_number, 2).Value = LineItems(0)
Number = row_number + 1
Loop
Close #file1
End Sub

Answer 1

所以从@Rebekare 对question 的回答来看，这对我有用。

我转到有问题的文件test.csv 并打开即时窗口并输入?ThisWorkbook.Path 并得到HDD:Users:USER:Desktop。

然后我将此路径与Application.PathSeparator 和文件名一起使用了建议的连接，即

FilePath = "HDD:Users:USER:Desktop" & Application.PathSeparator & "test.csv" 

这是一种有用的方法，因为您可以获取实际的文件路径语法，然后将路径分隔符决策交给Application。

根据@Mat'sMug 的建议，我找到了this，它打开了文件对话框，你选择了你想要的文件的完整路径，它会通过消息框返回。

Sub PathofFile()
    OpenFile = Application.GetOpenFilename()
    MsgBox OpenFile
End Sub

在同一个链接中，建议使用Dir 函数来测试文件路径是否有效。如果有效，您将获得文件名，否则您会收到一个错误，您可以使用它来确定您的下一步操作，例如如果它存在于该文件路径中，则以下返回“test.csv”。

MsgBox Dir("HDD:Users:USER:Desktop:test.csv")

如果您正在对文件执行其他操作，您可能需要添加一个测试以查看文件是否首先打开，使用 Microsoft 的 IsFileOpen 函数。示例如下：

Sub Test

    If Not IsFileOpen(FilePath) Then
        Set wb = Workbooks.Open(FilePath)
    End If

End Sub


Function IsFileOpen(filename As String)
    Dim filenum As Integer, errnum As Integer

    On Error Resume Next   ' Turn error checking off.
    filenum = FreeFile()   ' Get a free file number.
    ' Attempt to open the file and lock it.
    Open filename For Input Lock Read As #filenum
    Close filenum          ' Close the file.
    errnum = Err           ' Save the error number that occurred.
    On Error GoTo 0        ' Turn error checking back on.

    ' Check to see which error occurred.
    Select Case errnum

        ' No error occurred.
        ' File is NOT already open by another user.
        Case 0
         IsFileOpen = False

        ' Error number for "Permission Denied."
        ' File is already opened by another user.
        Case 70
            IsFileOpen = True

        ' Another error occurred.
        Case Else
            Error errnum
    End Select

End Function