在SSIS中使用C#脚本任务使Excel超链接可点击

Question

我有一个 SSIS 包，它通过数据流任务用数据填充现有的 Excel（模板）。我遇到的问题是，我正在动态创建工作表，并希望添加从主页到该工作簿中相应工作表的超链接。

我将 =Hyperlink 引用添加到数据流任务中的相应工作表中，它执行得很好，但链接（尽管列类型为“常规”）实际上并未显示为超链接，直到我实际单击单元格，然后看起来不错。

我想我可以使用 C# 脚本任务将列翻转为“文本”，然后返回“常规”，也许这会使其正确读取，但没有运气。有什么想法可以模拟我列中每个单元格的双击吗？

这是我到目前为止所拥有的，它可以将列转换为常规并将文本包装在另一列中，但我不知道如何使该公式正确显示为超链接。

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Text.RegularExpressions;
using System.Data;
using Microsoft.SqlServer.Dts.Runtime;
using System.Windows.Forms;
using System.Runtime.InteropServices;
using Excel = Microsoft.Office.Interop.Excel;

#endregion

namespace ST_2bdf93d5542441248076f053703d32c9
{

[Microsoft.SqlServer.Dts.Tasks.ScriptTask.SSISScriptTaskEntryPointAttribute]
public partial class ScriptMain : Microsoft.SqlServer.Dts.Tasks.ScriptTask.VSTARTScriptObjectModelBase
{
    public void Main()
    {
        string inputFile = (string)Dts.Variables["RecommendationFileName"].Value;
        Excel.Application ExcelApp = new Excel.Application();
        Excel.Workbook ExcelWorkbook = ExcelApp.Workbooks.Open(inputFile);
        ExcelApp.Visible = true;

        Excel.Worksheet xlWorkSheetFocus = (Excel.Worksheet)ExcelWorkbook.Worksheets.get_Item(2);
        xlWorkSheetFocus.Activate();
        xlWorkSheetFocus.Select(Type.Missing);
        Excel.Range usedRange = xlWorkSheetFocus.UsedRange;


        xlWorkSheetFocus.Columns[5].NumberFormat = ""; //Make column 5 type General
        xlWorkSheetFocus.Columns[4].WrapText = true; //Wrap text in column 4


        ExcelWorkbook.Save();

        GC.Collect();
        GC.WaitForPendingFinalizers();

        ExcelWorkbook.Close(Type.Missing, Type.Missing, Type.Missing);
        Marshal.FinalReleaseComObject(ExcelWorkbook);

        ExcelApp.Quit();
        Marshal.FinalReleaseComObject(ExcelApp);
    }
    enum ScriptResults
    {
        Success = Microsoft.SqlServer.Dts.Runtime.DTSExecResult.Success,
        Failure = Microsoft.SqlServer.Dts.Runtime.DTSExecResult.Failure
    };
}
}

Answer 1

看起来我找到了一个可行的解决方案，使用文本到列，选择不存在的分隔符“@”，并将结果写入同一列/单元格。猜测可能有更好的方法，但它给了我一个可点击的链接。

xlWorkSheetFocus.get_Range("E6", ("E6" +
  xlWorkSheetFocus.UsedRange.Rows.Count)).TextToColumns(Type.Missing,
  Microsoft.Office.Interop.Excel.XlTextParsingType.xlDelimited,
  Microsoft.Office.Interop.Excel.XlTextQualifier.xlTextQualifierNone, true,
  Type.Missing, Type.Missing, false, true, Type.Missing,
  "@", Type.Missing, Type.Missing, Type.Missing, Type.Missing);