VB操作Excel的问题
在VB中,可以打开指定的EXCEL工作簿,不知道可不可以调用该EXCEL工作簿中存在的VBA模块或者表单吗?还请高手们指点。
程序代码:Sub TestVB()
With Sheet1
.Cells(1, 1) = "中文国际"
.Cells(2, 1) = "VB论坛"
End With
End Sub
程序代码:'工程里得引用EXCEL对象,至于对EXCEL对象调用后的关闭及销毁代码就没写了
Private Sub Command1_Click()
Dim MyExcel As Excel.Application
Set MyExcel = CreateObject("Excel.Application")
MyExcel.Run ("'d:\Tmp.xls'!Sheet1.testVB") '注意里面有两个单引号
'到这里,VB就完成了对EXCEL中宏的调用,如果要显示结果,加上下面这一句
MyExcel.Visible = True '这里让XLS文件显示
End Sub
