将经理Excel文件导入combined.xlsx后，如何修改内容同步回源文件？

方法1：VBA宏手动同步 #

Power Query默认是单向导入，要反向写回源文件，可通过VBA宏实现：

1. 打开combined.xlsx，定位到你修改过的目标工作表。
2. 按Alt + F11打开VBA编辑器，右键点击项目窗口里的combined.xlsx → 插入 → 模块。
3. 粘贴以下代码，替换源文件路径和工作表名称为你的实际信息：

Sub SyncChangesToSource()
    Dim sourcePath As String
    Dim targetWs As Worksheet
    Dim sourceWb As Workbook
    Dim sourceWs As Worksheet
    
    ' 替换为OneDrive中对应经理文件的本地同步路径
    sourcePath = "C:\Users\你的用户名\OneDrive\经理张三的报表.xlsx"
    ' 替换为combined中你修改的工作表名称
    Set targetWs = ThisWorkbook.Worksheets("张三的报表")
    
    ' 打开源文件并清空原有内容
    Set sourceWb = Workbooks.Open(sourcePath)
    Set sourceWs = sourceWb.Worksheets(1)
    sourceWs.Cells.Clear
    
    ' 复制修改后的内容到源文件
    targetWs.UsedRange.Copy Destination:=sourceWs.Range("A1")
    
    ' 保存关闭源文件
    sourceWb.Save
    sourceWb.Close
    Set sourceWb = Nothing
    MsgBox "同步完成"
End Sub

4. 按F5运行宏，或通过【开发工具 → 宏】选择该宏执行。

方法2：Power Automate自动同步（适合批量/定时场景） #

如果需要自动化同步，可通过Power Automate创建流程：

• 触发条件：combined.xlsx指定工作表内容被修改
• 核心操作：
  • 获取修改后工作表的全部数据
  • 定位到OneDrive中的对应源文件
  • 清空源文件工作表内容并写入新数据
  • 保存源文件

关键注意事项 #

• 确保你对OneDrive源文件拥有编辑权限，否则无法写入。
• VBA中使用的是OneDrive的本地同步路径，而非网页端URL。
• 若需保留源文件格式/公式，可将复制步骤改为仅粘贴值：

  targetWs.UsedRange.Copy
  sourceWs.Range("A1").PasteSpecial xlPasteValues
  Application.CutCopyMode = False
  

• VBA需手动触发，Power Automate可设置自动触发规则。

内容的提问来源于stack exchange，提问作者Mansi Dixit