如果你往Excel中写入值可用函数调用，不写入值可用OLE控件调用。下面的VB连接Excel程序你可以参照。
Dim OBJEXCEL As Excel.Application '定义Excel应用程序变量
Dim OBJXLS As Excel.Workbook '定义工作薄变量
Private Sub Command1_Click()
Dim I, J As Integer '定义循环变量
Set OBJEXCEL = New Excel.Application '应用程序变量赋值
OBJEXCEL.Visible = True '工作薄可见
Set OBJXLS = OBJEXCEL.Workbooks.Add '增加工作薄
OBJXLS.Activate '激活工作薄
For I = 1 To 9
For J = 1 To 9
OBJEXCEL.ActiveCell.Cells(J, I).Value = I * J '单元格赋值
Next J
Next I
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024