Public
Sub
Main()
Dim
xlApp
As
Excel.Application =
New
Excel.ApplicationClass()
xlWorkBook
Excel.Workbook
xlWorkSheet
Excel.Worksheet
xlWorkBook = xlApp.Workbooks.Add(Dts.Variables(
"FileName"
).Value)
xlWorkSheet =
CType
(xlWorkBook.Sheets(1), Excel.Worksheet)
Dts.Variables(
"SheetName"
).Value = xlWorkSheet.Name
Dts.TaskResult = ScriptResults.Success
End
"Select * from ["
+ @[
User
::SheetName]+
"$A1:CJ]"