close

Dim xlApp As New Excel.Application
Dim xlBooks As Excel.Workbooks = xlApp.Workbooks
Dim xlBook As Excel.Workbook = xlBooks.Open("C:\Documents and Settings\Administrator\桌面\訂單.xls")
Dim xlSheet As Excel.Worksheet = xlApp.ActiveSheet

DataGridView1.Columns.Add("Test", "Test")
DataGridView1.Item(0, 0).Value = xlSheet.Cells(3, 5).value


arrow
arrow
    全站熱搜
    創作者介紹
    創作者 Roger 的頭像
    Roger

    歡迎~ 程式設計 學生 作業 專題製作 程式外包 家教...

    Roger 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄