_ | 覦覈襦 | 豕蠏手 | 殊螳 | 譯殊碁
FrontPage › 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
蠍 蠍郁鍵..
企: : るジ讓曙 襦螻豺 企Ν 譯殊語. 襦螻豺
EditText : Print : Mobile : FindPage : DeletePage : LikePages : Powered by MoniWiki : Last modified 2018-04-13 23:12:53

蟆 螳 蠍一 谿場.