Hi there! 针对你需要在Excel 2013和2016中从FTP服务器同步支持文件数据到中央文件的需求，我整理了几个完全兼容两个版本的可行方案，你可以根据团队的技术能力和部署场景选择：

方案1：VBA脚本（最通用，全版本支持） #

这是兼容性最好的方案，因为VBA在Excel 2013和2016中功能一致，能直接处理FTP交互、文件操作和数据复制逻辑。

核心思路 #

用VBA实现三个关键步骤：

1. 连接FTP服务器，将支持文件下载到本地临时目录
2. 打开下载后的支持文件，把指定工作表的表格数据复制到中央文件的对应工作表
3. 清理临时文件，关闭支持文件

示例代码 #

你可以把这段代码放到中央文件的VBA模块中，记得替换注释里的参数：

Sub SyncFTPData()
    ' 配置参数
    Dim ftpServer As String: ftpServer = "ftp://your-ftp-server.com"
    Dim ftpUser As String: ftpUser = "your-username"
    Dim ftpPass As String: ftpPass = "your-password"
    Dim supportFiles As Variant: supportFiles = Array("support1.xlsx", "support2.xlsx") ' 支持文件名列表
    Dim tempPath As String: tempPath = Environ("TEMP") & "\" ' 系统临时目录
    Dim wbCentral As Workbook: Set wbCentral = ThisWorkbook
    Dim wbSupport As Workbook
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    
    On Error GoTo Cleanup ' 错误处理
    
    ' 遍历每个支持文件
    For Each fileName In supportFiles
        ' 1. 下载FTP文件到临时目录
        Dim ftpUrl As String: ftpUrl = ftpServer & "/" & fileName
        Dim tempFile As String: tempFile = tempPath & fileName
        
        ' 创建FTP脚本文件
        Dim scriptFile As String: scriptFile = tempPath & "ftpScript.txt"
        Open scriptFile For Output As #1
        Print #1, "user " & ftpUser & " " & ftpPass
        Print #1, "binary"
        Print #1, "get " & fileName & " " & tempFile
        Print #1, "quit"
        Close #1
        
        ' 执行FTP下载
        Shell "ftp -s:" & scriptFile, vbHide
        Do While Dir(tempFile) = "" ' 等待下载完成
            DoEvents
        Loop
        Kill scriptFile ' 删除临时脚本
        
        ' 2. 复制数据到中央文件
        Set wbSupport = Workbooks.Open(tempFile, ReadOnly:=True)
        Set wsSource = wbSupport.Worksheets(1) ' 假设支持文件只有1个工作表
        ' 根据文件名匹配中央文件的目标工作表，比如support1对应Sheet1
        Set wsTarget = wbCentral.Worksheets(Replace(fileName, ".xlsx", ""))
        
        ' 清空目标工作表现有数据（可选）
        wsTarget.Cells.Clear
        
        ' 复制源表格数据到目标工作表A1开始的位置
        wsSource.UsedRange.Copy wsTarget.Range("A1")
        
        ' 关闭支持文件
        wbSupport.Close SaveChanges:=False
        Kill tempFile ' 删除临时支持文件
    Next fileName
    
    MsgBox "数据同步完成！", vbInformation
    Exit Sub
    
Cleanup:
    MsgBox "同步出错：" & Err.Description, vbCritical
    ' 清理临时文件
    If Dir(tempFile) <> "" Then Kill tempFile
    If Dir(scriptFile) <> "" Then Kill scriptFile
    If Not wbSupport Is Nothing Then wbSupport.Close SaveChanges:=False
End Sub

使用步骤 #

1. 打开中央文件，按Alt+F11打开VBA编辑器
2. 右键点击项目列表中的中央文件，选择「插入」→「模块」，粘贴上述代码
3. 修改代码中的FTP服务器地址、用户名密码、支持文件名列表等参数
4. 可以设置工作簿打开时自动执行：双击ThisWorkbook，选择Workbook_Open事件，调用SyncFTPData
5. 或者在中央文件中添加一个按钮（开发工具→插入→表单控件→按钮），关联这个宏，让用户手动触发同步

优缺点 #

✅ 完全兼容Excel 2013和2016
✅ 可自定义逻辑（比如增量更新、错误提示、日志记录）
❌ 需要用户启用宏，建议给文件添加数字签名或放在Excel信任位置
❌ FTP凭据硬编码在代码里不安全，可以改用Windows凭据管理器读取（需要额外VBA代码）

方案2：Power Query（可视化操作，需注意2013插件） #

Power Query在Excel 2016中是内置功能，2013需要单独安装插件，但只要用兼容的M语言，就能实现跨版本的FTP数据导入。

核心步骤 #

1. Excel 2013准备：先安装「Microsoft Power Query for Excel 2013」插件（微软官网可下载）
2. 打开中央文件，进入Power Query编辑器：
   • 2013：点击「Power Query」选项卡→「从其他来源」→「从FTP」
   • 2016：点击「数据」选项卡→「从其他来源」→「从FTP」
3. 输入FTP服务器地址，设置登录凭据，选择要导入的支持文件
4. 在编辑器中调整数据格式（比如移除多余行、设置列类型），确保M语法兼容两个版本（避免使用2016新增的函数）
5. 将查询加载到中央文件的指定工作表，设置「刷新时覆盖现有数据」，并勾选「打开文件时刷新数据」

优缺点 #

✅ 可视化操作，无需编写复杂VBA
✅ 数据刷新更灵活，支持手动/自动刷新
❌ Excel 2013用户需要额外安装插件，部署成本较高
❌ FTP凭据存储在查询中，需要注意安全性（可以设置为使用Windows凭据）

方案3：映射FTP为网络驱动器（最简操作，适合小团队） #

把FTP服务器映射成Windows本地网络驱动器，这样中央文件就能像访问本地文件一样引用支持文件的数据，完全不需要代码。

核心步骤 #

1. 打开「此电脑」，点击「映射网络驱动器」
2. 选择一个空闲盘符，输入FTP地址（格式：ftp://your-ftp-server.com），勾选「登录时重新连接」
3. 输入FTP用户名和密码，完成映射
4. 在中央文件中，点击「数据」选项卡→「自文件」→「自工作簿」，选择映射驱动器中的支持文件，导入数据到指定工作表
5. 设置数据刷新选项，比如「打开文件时刷新」

优缺点 #

✅ 完全无需代码，用户操作简单
✅ 支持Excel所有版本的文件导入功能
❌ 每个用户都要手动映射驱动器，适合小范围用户
❌ 依赖Windows FTP映射功能，稳定性不如脚本；FTP地址/凭据变化时，所有用户都要重新设置

版本兼容注意事项 #

• 不管用哪个方案，一定要在Excel 2013和2016上分别测试，确保没有兼容性问题
• 如果用VBA，避免使用2016新增的函数（比如TextJoin，可以用自定义函数替代）
• 宏安全设置：建议将中央文件放在Excel的「信任位置」，避免每次打开都弹出安全警告

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