使用数据连接时，超链接不会从 Excel 复制到 Excel答案

【问题标题】：Hyperlinks don't copy from Excel to Excel when using Data Connection使用数据连接时，超链接不会从 Excel 复制到 Excel
【发布时间】：2015-09-12 19:17:36
【问题描述】：

我是一个最终用户，他拥有一个公共 Excel 2010 工作簿（没有宏，因此其他用户可以感到安全），其中包含 EA Sports 的 Madden NFL 手机游戏的所有个人玩家统计数据。

我还创建了一个非公开的 Macro-Enabled 2010 工作簿，我用它来自动从第 3 方网站提取所有相关数据，并将所有这些数据重新解析为我想要的电子表格布局。

我的启用宏的工作簿的第一列包含玩家的姓名以及该玩家在该第 3 方网站上的网页的超链接，并且宏可以为我创建该超链接。

当我使用数据连接自动将数据从 Macro Book 同步到 Non-Macro Book 时，所有内容都可以正常复制，除了播放器的名称仅为纯文本（无超链接）。

我还尝试将第一列设为 excel 超链接公式（而不是 VBA 的超链接函数），但该公式也不会通过数据连接传输。

我是否可以在数据连接文件 (.odc) 中编辑某些内容以实现我的目标？

到目前为止，我唯一的其他解决方法是添加 2 个额外的隐藏列，其中包含文本链接和玩家姓名，然后在目标表中乱七八糟，使第一列成为预定义的 excel HYPERLINK 公式，以将两列转换回来变成一个超链接。

有什么想法吗？

【问题讨论】：

标签： excel hyperlink connection

【解决方案1】：

没关系，我决定只使用一个 powershell 脚本和批处理文件来完成我所有的复制/粘贴，并一起跳过整个数据连接。

我的“TransferMaddenData.ps1”PowerShell 代码：

    $path = "C:\Users\Grego\Desktop\MaddenData.xlsm" 
    $Excel = New-Object -ComObject excel.application 
    $Excel.visible = $false 
    $Workbook = $Excel.Workbooks.open($path) 
    $Worksheet = $Workbook.WorkSheets.item("DataOutput") 
    $Rows = $Worksheet.UsedRange.Rows.Count
    $Rows += 1
    $Cells = "A3:BD" + $Rows
    $Worksheet.activate()  
    $range = $WorkSheet.Range($Cells) 
    $range.Copy() | out-null 

    $path = "C:\Users\Grego\Desktop\Madden1.xlsm" 
    $Workbook2 = $Excel.Workbooks.open($path) 
    $Worksheet = $Workbook2.Worksheets.item("Raw Data") 
    $range = $Worksheet.Range("A3") 
    $Worksheet.Paste($range)  

    $Workbook2.Save()  
    $Workbook.Close()  
    $Excel.Quit() 
    Remove-Variable -Name excel 
    [gc]::collect() 
    [gc]::WaitForPendingFinalizers()

这是我的“FixMadden.bat”批处理文件：

    @echo off
    color 1F
    echo.

    C:\Windows\system32\WindowsPowerShell\v1.0\powershell.exe -ExecutionPolicy Bypass -File "C:\Users\Grego\Desktop\TransferMaddenData.ps1"

    :EOF
    echo Waiting seconds
    timeout /t 10 /nobreak > NUL

希望有一天这可能对其他人有所帮助！

【讨论】：