VBA导出文件损坏问题求助：新建文件无法打开且内容为空

核心错误点 #

• 错误1：错误的文件创建方式导致Excel文件损坏
  Open ExportFileName For Output As #1 是VBA用于操作纯文本文件的语句，用它生成.xlsx后缀的文件，本质是无内容的空白文本文件，完全不符合Excel的二进制格式规范，所以打开时会提示文件损坏。

• 错误2：未向目标文件写入内容（TXT为空的原因）
  即便改为TXT文件，你仅执行了打开文件的操作，却没有用Print #1或Write #1语句将内容写入文件，也未关闭文件，导致文件为空。另外，Cells(1,1).Value = "Hello world"只是修改当前Excel窗口中工作表的单元格，和你要导出的目标文件没有任何关联。

• 额外隐患：工作表引用不一致
  代码中先定义了ws = ThisWorkbook.Sheets("Systems")，但获取项目编号时却用Blad1.Cells(8,4).Value，若Blad1不是当前工作簿的有效工作表，会直接报错；即使有效，也建议统一工作表引用，避免逻辑混淆。

修正后的代码 #

方案1：导出为合法的Excel文件

Option Explicit

Sub Acto_Export()
        
    Dim sFolder As String
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Systems")
  
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = -1 Then
            sFolder = .SelectedItems(1)
        End If
    End With
    If sFolder = "" Then
        MsgBox "没有选择文件夹"
        Exit Sub
    End If

    Dim ProjectNumber As String
    ' 统一使用ws引用，若项目编号在Blad1工作表，替换为ThisWorkbook.Sheets("Blad1")
    ProjectNumber = ws.Cells(8, 4).Value
    ' 校验项目编号非空，避免文件名格式错误
    If ProjectNumber = "" Then
        MsgBox "项目编号不能为空"
        Exit Sub
    End If

    Dim ExportFileName As String
    ExportFileName = sFolder & "\" & Format(Now, "yyyy-MM-dd_HHmmss_") & ProjectNumber & "_importfileActo.xlsx"

    ' 创建新工作簿写入内容并保存
    Dim newWB As Workbook
    Set newWB = Workbooks.Add
    ' 在新工作簿的首个工作表写入内容
    newWB.Sheets(1).Cells(1, 1).Value = "Hello world"
    ' 保存为标准Excel格式并关闭
    newWB.SaveAs Filename:=ExportFileName, FileFormat:=xlOpenXMLWorkbook
    newWB.Close SaveChanges:=False

End Sub

方案2：导出为TXT文件（如果需要）

Option Explicit

Sub Acto_Export_TXT()
        
    Dim sFolder As String
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Systems")
  
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = -1 Then
            sFolder = .SelectedItems(1)
        End If
    End With
    If sFolder = "" Then
        MsgBox "没有选择文件夹"
        Exit Sub
    End If

    Dim ProjectNumber As String
    ProjectNumber = ws.Cells(8, 4).Value
    If ProjectNumber = "" Then
        MsgBox "项目编号不能为空"
        Exit Sub
    End If

    Dim ExportFileName As String
    ExportFileName = sFolder & "\" & Format(Now, "yyyy-MM-dd_HHmmss_") & ProjectNumber & "_importfileActo.txt"

    ' 打开文本文件、写入内容并关闭
    Open ExportFileName For Output As #1
    Print #1, "Hello world" ' 将内容写入文件
    Close #1 ' 必须关闭文件，确保内容写入磁盘

End Sub

内容的提问来源于stack exchange，提问作者anton kruizinga