vb怎么写入EXCEL

怎么把VB里读取的数据写到EXcel的单元格中

一个很简单的程序实例
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\msdb.mdb"
Text1.Text = Data1.DatabaseName
End Sub
'按钮，把数据传到Excel中
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim newxls As Excel.Application
Dim newbook As Excel.Workbook
Dim newsheet As Excel.Worksheet
Set newxls = CreateObject("Excel.Application") '创建excel应用程序,打开excel2000
newxls.Visible = True
Set newbook = newxls.Workbooks.Add '创建工作簿
Set newsheet = newbook.Worksheets(1) '创建工作表
'If Not Data1.Recordset.EOF Then Data1.Recordset.MoveFirst
For i = 0 To Data1.Recordset.RecordCount - 1
For j = 0 To Data1.Recordset.Fields.Count - 1
DBGrid1.Row = i
DBGrid1.Col = j
newsheet.Cells(i + 1, j + 1) = DBGrid1.Text
Next j
Next i
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/m7f7s84s7qpfq4sp2m.html