如何向现有Excel文件写入新数据？VBA代码创建新文件问题

问题根源 #

原代码里的oApp_Excel.Workbooks.Add是新建空白工作簿的指令，后续执行SaveAs自然会生成新文件，而非操作已存在的E:\g1.xlsx。

修改后的代码 #

Function wirteToExcelFile(path, sheetName)
    Dim oApp_Excel As Excel.Application
    Dim oBook As Excel.Workbook
    Dim oSheet As Excel.Worksheet
    
    ' 创建Excel应用实例，设置后台执行（可选）
    Set oApp_Excel = CreateObject("EXCEL.APPLICATION")
    oApp_Excel.Visible = False
    
    ' 尝试打开目标文件，捕获不存在的错误
    On Error Resume Next
    Set oBook = oApp_Excel.Workbooks.Open(path)
    On Error GoTo 0
    
    ' 检查文件是否成功打开
    If oBook Is Nothing Then
        MsgBox "文件不存在或无法打开：" & path, vbCritical
        oApp_Excel.Quit
        Set oApp_Excel = Nothing
        Exit Function
    End If
    
    ' 定位到指定工作表
    On Error Resume Next
    Set oSheet = oBook.Sheets(sheetName)
    On Error GoTo 0
    
    ' 检查工作表是否存在
    If oSheet Is Nothing Then
        MsgBox "工作簿中无此工作表：" & sheetName, vbCritical
        oBook.Close SaveChanges:=False
        oApp_Excel.Quit
        Set oSheet = Nothing
        Set oBook = Nothing
        Set oApp_Excel = Nothing
        Exit Function
    End If
    
    ' 写入数据到指定单元格
    oSheet.Cells(5, 3).Value = "masouud1"
    
    ' 保存原文件修改（用Save而非SaveAs，避免生成新文件）
    oBook.Save
    oBook.Close SaveChanges:=False
    
    ' 释放对象资源
    oApp_Excel.Quit
    Set oSheet = Nothing
    Set oBook = Nothing
    Set oApp_Excel = Nothing
End Function

核心修改点 #

• 用Workbooks.Open(path)替换Workbooks.Add：直接打开目标现有文件
• 用oBook.Save替代oBook.SaveAs(path)：保存对原文件的修改，不生成新文件
• 增加错误处理：校验文件、工作表是否存在，避免运行时崩溃
• 可选设置oApp_Excel.Visible = False：让Excel在后台执行，不弹出窗口

使用示例 #

调用函数时传入文件路径和目标工作表名即可：

wirteToExcelFile "E:\g1.xlsx", "Sheet1"

内容的提问来源于stack exchange，提问作者S.M_Emamian