将多个.xls文件转换为ssis中的.xlsx

Question

我有一个文件夹可以接收到.xls format中的多个excel文件。我需要将格式类型更改为.xlsx以便将Excel数据加载到SQLvia SSIS中。我知道如何使用“文件系统任务”重命名该文件，但适用于特定文件。但我的文件包含一个文件＃和日期以及需要保持与源文件相同，我只想要更改文件类型和文件移动到处理文件夹。谁能帮我？

Source Path: C:\Documents\TestFolder 
Source File: TestSegRpt_0001_2017_02_22.xls 

Destination Path: C:\Documents\TestFolderProcessed 
Destination File: TestSegRpt_0001_2017_02_22.xlsx 

Answer 1

希望我能正确理解你的问题。

我想下面的链接将有所帮助。

https://answers.microsoft.com/en-us/msoffice/forum/msoffice_excel-mso_other/batch-convert-xls-to-xlsx/1d9b3d78-daf0-4014-8fb2-930aca6493b0

Answer 2

您必须添加一个Script Task，遍历文件，并使用功能类似下面创建进动目录和转换文件（在Vb.net代码）：

Public Sub ConvertXlsToXlsx(ByVal strpath as string) 

    Dim strDirectory as string = System.IO.Path.GetDirectoryName(strpath) & "Processed" 

    If Not System.IO.Directory.Exists(strDirectory) Then System.IO.Directory.CreateDirectory(strDirectory) 

    Dim xl As New Microsoft.Office.Interop.Excel.Application 
    Dim xlBook As Microsoft.Office.Interop.Excel.Workbook 

    xlWorkBook = xl.Workbooks.Open(strpath) 
    xlBook.SaveAs(strDirectory & "\" & System.IO.Path.GetFilename(strpath) & "x") 
    xl.Application.Workbooks.Close() 
    xl.Application.Quit() 

End Sub 

你的代码如下：

Public Sub Main 

    Dim strFolder as string = Dts.Variables.Item("FolderPath").Value 

    Dim strXlsFiles() as string = IO.Directory.GetFiles(strFolder,"*.xlsx",SearchOption.TopDirectoryOnly) 

    For each strFile as String in strXlsFiles 

     If strFile.EndsWith("xlsx") The Continue For 

     ConvertXlsToXlsx(strFile) 

    Next 


End Sub 

参考：

• https://social.msdn.microsoft.com/Forums/office/en-US/a73f846c-91ee-4dad-bd7b-c04d418d0561/convert-xls-into-xlsx?forum=exceldev