当然可以做到！同一设备上同时打开的不同Excel文件之间完全能实现跨文件写入内容，我给你分享两种最实用的方案，根据你的场景选就行：

一、用Excel外部引用（适合简单手动/批量写入） #

如果只是需要把当前文件的数据同步到另一个打开的文件里，直接用外部引用公式就够了：

• 打开两个目标Excel文件
• 切换到你要写入内容的目标文件的对应单元格，输入格式：=[源文件名.xlsx]源工作表名!$单元格地址$
• 举个例子：你要把FileA.xlsx的Sheet1!B3内容写入到FileB.xlsx的Sheet2!D5，就在FileB的D5单元格输入：=[FileA.xlsx]Sheet1!$B$3
• 回车后，目标单元格就会同步源文件的内容，后续源文件数据更新时，目标文件也会自动刷新（要是没自动刷新，按F9手动刷新就行）

注意：这个方法是被动同步，如果需要主动触发写入操作（比如点击按钮就写入指定内容），那VBA宏会更灵活。

二、用VBA宏（适合自动化/复杂写入场景） #

如果需要自定义写入逻辑（比如批量写入、按条件写入、触发特定事件时写入），VBA是最优解。我给你一段简单的示例代码，你可以直接修改用：

步骤： #

1. 打开你的源Excel文件，按Alt + F11打开VBA编辑器
2. 右键点击左侧的项目列表，选择「插入」→「模块」
3. 粘贴以下代码，修改里面的文件名、工作表名和写入内容：

Sub WriteToAnotherOpenWorkbook()
    ' 定义目标工作簿对象
    Dim targetWorkbook As Workbook
    Dim targetSheet As Worksheet
    
    ' 检查目标文件是否已打开
    On Error Resume Next
    Set targetWorkbook = Workbooks("FileB.xlsx") ' 替换成你的目标文件名
    On Error GoTo 0
    
    ' 如果目标文件没打开，提示用户
    If targetWorkbook Is Nothing Then
        MsgBox "目标文件未打开，请先打开它！", vbExclamation
        Exit Sub
    End If
    
    ' 指定目标工作表
    Set targetSheet = targetWorkbook.Sheets("Sheet2") ' 替换成你的目标工作表名
    
    ' 执行写入操作
    targetSheet.Range("D5").Value = "从FileA写入的内容" ' 替换成要写入的内容/单元格引用
    ' 要是批量写入，可以加循环，比如：
    ' For i = 1 To 10
    '     targetSheet.Range("A" & i).Value = ThisWorkbook.Sheets("Sheet1").Range("B" & i).Value
    ' Next i
    
    ' 可选：保存目标文件的修改
    targetWorkbook.Save
    
    ' 释放对象
    Set targetSheet = Nothing
    Set targetWorkbook = Nothing
    
    MsgBox "内容成功写入目标文件！", vbInformation
End Sub

4. 按F5运行代码，或者回到Excel界面，添加一个按钮绑定这个宏，点击就能触发写入

额外提示： #

• 如果目标文件没打开，你也可以在代码里添加打开文件的逻辑，比如用Set targetWorkbook = Workbooks.Open("C:\Users\XXX\Desktop\FileB.xlsx")（替换成你的文件路径）
• 注意Excel的宏安全设置：如果是Excel 365，需要在「文件」→「选项」→「信任中心」→「信任中心设置」里启用宏，不然代码没法运行
• 要是需要更复杂的逻辑（比如根据单元格值判断是否写入、写入格式设置），可以随时调整代码里的逻辑

如果还有具体的场景细节（比如需要定时写入、批量处理大量数据），可以补充说明，我再给你优化方案！

内容的提问来源于stack exchange，提问作者Jorge Ribeiro