需要从 SSIS 包中为 excel 中的标题着色

Question

要求：我需要使用 SSIS 将查询中的数据导出到格式化的 Excel 工作表。目前正在使用 .xls

我尝试了什么：我使用带有预先格式化的标题行（第一行）的 Excel 表作为模板，我复制并重命名为一个新文件以导出数据。当我运行包时，所有数据行都将具有与标题相同的格式。我试着用谷歌搜索发现很多人有同样的问题。

现在我正在写入非标题格式的 Excel 工作表并使用脚本任务，我正在尝试单独格式化标题。下面是代码

Dim appexcel As Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application()
        Dim newbook As Workbook
        Dim sheet As Object

        Dim Connection As String = "..My path\\All_Current.xls" '
        newbook = appexcel.Workbooks.Open(Connection)
        sheet = newbook.Worksheets("REPORT")
        Dim selectedSheet As Worksheet = DirectCast(sheet, Worksheet)
        'Dim style As Style = selectedSheet.Application.ActiveWorkbook.Styles.Add("ColorStyle")
        
        selectedSheet.Cells.Range("A1", "I1").Interior.Color = System.Drawing.Color.LightBlue
        'selectedSheet.Cells.Range("A1", "I1").Font.Color = System.Drawing.Color.White
        'selectedSheet.Cells.Range("A1", "I1").Font.FontStyle = "Bold"
        'selectedSheet.Cells.Range("A1", "I1").Font.Name = "Verdana"
        'selectedSheet.Cells.Range("A1", "I1").Font.Size = 10

        newbook.Save() ' This line the compiler runs forever
        newbook.Close(False)
        appexcel.Quit()
        Dts.TaskResult = ScriptResults.Success

我无法检查我的代码是否正常工作。如果我调试，它会继续在“.save()”行运行。任何帮助将不胜感激。

Answer 1

我让它与下面的代码一起工作

'newbook.Save()
appexcel.ActiveWorkbook.CheckCompatibility = False ' to prevent compatibility check dialog showing
appexcel.ActiveWorkbook.Save() ' saves only this workbook
newbook.Close(False)
appexcel.Quit()