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