VB.NET操作Excel指定Sheet写入数据却写入上次编辑Sheet求助

问题原因 #

你代码中虽然定义了目标工作表wt，但后续通过app.Range(...)和ActiveCell操作的是Excel应用程序的活动工作表（即上次编辑时打开的Sheet），并未关联到你指定的Sheet2，因此出现单元格定位正确但Sheet不对的情况。

修正后的代码 #

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click  
    Dim app As New Excel.Application
    Dim wk As Excel.Workbook = app.Workbooks.Open("file directory", [ReadOnly]:=False)
    ' 明确转换为Worksheet类型，避免类型歧义
    Dim wt As Excel.Worksheet = CType(wk.Worksheets("Sheet2"), Excel.Worksheet)
    
    ' 直接基于指定工作表操作单元格，无需依赖活动状态
    wt.Range(TextBox2.Text).Value = TextBox1.Text
    
    ' 保存修改并释放Excel资源，防止进程残留
    wk.Save()
    wk.Close()
    app.Quit()
    ' 手动释放COM对象
    System.Runtime.InteropServices.Marshal.ReleaseComObject(wt)
    System.Runtime.InteropServices.Marshal.ReleaseComObject(wk)
    System.Runtime.InteropServices.Marshal.ReleaseComObject(app)
End Sub

关键修改说明 #

• 绑定目标工作表操作：将app.Range(...)替换为wt.Range(...)，直接通过你指定的Sheet2对象定位单元格，彻底摆脱活动工作表的影响
• 移除活动状态依赖：删除Activate()和ActiveCell相关代码，这类依赖Excel上下文的操作稳定性差，直接操作目标单元格是更可靠的方式
• 添加资源释放逻辑：原代码未关闭Excel进程，会导致后台残留Excel实例，必须手动释放COM对象并退出应用程序

额外注意事项 #

• 确保"file directory"是完整的Excel文件路径（如"D:\data.xlsx"）
• 使用索引指定Sheet时，wk.Worksheets(2)是正确的，Excel的Sheet索引从1开始
• 操作完成后必须调用wk.Save()，否则修改不会写入文件

内容的提问来源于stack exchange，提问作者Ahmed Elbarbry