在VB中可以创建Excel（2007），请教要怎样将数据的数据填入到Excel表中？（创建一个Ex

Question

在VB中可以创建Excel（2007），请教要怎样将数据的数据填入到Excel表中？（创建一个Excel，名为book，里面的表名称为sheet1），
with 登陆（窗体名）.book.sheets("sheet1")
.cells(x，3)=rs("材料名称")
end with
这样这样哪里错了？该怎么改？
以前学VBA，现在学VB了，求教！！！

Answer 1

filename1 = book.xlsx ‘取得表名
filename1_Dir=D: '取得路径
Dim ExcelFile As String = filename1_Dir & "\" & filename1 ’取得表的路径
Dim xlApp, xlBook, xlSheet As Object
xlBook = xlApp.Workbooks.Open(ExcelFile) '打开EXCEL文件
Start_Sheet = “sheet1” 取得sheet1 的名称
xlSheet = xlApp.Worksheets(Start_Sheet) '打开sheet1那页

xlApp.worksheets(Start_Sheet).range("A1").Resize(DGV.Rows.Count, Column_Zize).Value = rs("材料名称")