2009年4月16日 星期四

如何將 Excel 的內容丟到 DataGradView 裡?

此篇示範將Excel上第E3格的內容丟到DataGradView第一格上
code如下


Dim xlApp As New Excel.Application
Dim xlBooks As Excel.Workbooks = xlApp.Workbooks
Dim xlBook As Excel.Workbook = xlBooks.Open("\\db-machine\db-file\test.xls")
Dim xlSheet As Excel.Worksheet = xlApp.ActiveSheet

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

沒有留言:

##EasyReadMore##