#title SSIS - Excel 데이터읽기

{{{
Public Overrides Sub CreateNewOutputRows()
Dim oExcel As Object = CreateObject("Excel.Application")
Dim FileName As String
FileName = Variables.FileName

Dim oBook As Object = oExcel.Workbooks.Open(FileName)
Dim oSheet As Object = oBook.Worksheets(1)

Output0Buffer.AddRow()

Output0Buffer.Address = oSheet.Range("B4").Value
Output0Buffer.CustomerName = oSheet.Range("B3").Value
Output0Buffer.OrderDate = oSheet.Range("E4").Value
Output0Buffer.OrderNumber = oSheet.Range("E3").Value
Output0Buffer.RepName = oSheet.Range("B5").Value

End Sub
}}}