Excel 文件保存读取正确，但抛出的错误没有给出说明

我正试图编写一个程序，从一个文件中获取数据，对其进行解析，然后将其打印到第二个文件中。首先，我用文件对话框对象打开第一个文件，但当我试图选择一个文件保存为我的程序崩溃时

    Set fd = Application.FileDialog(msoFileDialogFilePicker)
lblContinue:
    With fd
        .AllowMultiSelect = False
        .Title = "Select a file to edit."
        .InitialFileName = "C:\Program Files (x86)\AceCooler32\aceuser\"
    End With

    If fd.Show <> 0 Then
        sFileName = fd.SelectedItems(1)
    End If

    If sFileName = "" Then Exit Sub

    sFileName2 = Application.GetSaveAsFilename(, , , "Save File As: ")

    Open sFileName For Input As #1

    Debug.Print sFileName
    Debug.Print sFileName2

    On Error GoTo lblError:


    Open sFileName2 For Output As #2

---

Err.description给出的描述为空

不确定它是否能解决您的问题，但您应该使用而不是硬编码的数字。要使用它，我只需添加变量fileNum1和fileNum2，并在打开之前将它们设置为FreeFile？例如filenum1=FreeFile？是的，正如文档中的代码片段所示。实现了更改后，问题仍然存在。谢谢你的提示。

    ' Resume

    On Error GoTo -1

    On Error GoTo lblError2:

    Debug.Print Err.Description
    Debug.Print Err.HelpContext

    MsgBox ("You must save using a different filename." & Err.Description)
    Close #1
    Close #2
    GoTo lblContinue: