在VB中编写代码时:要注意以下声名 Dim XLAPP As Object Set XLAPP = GetObject(, "Excel.Application") 代码中引用对象,如SHEET,Cell等,前面要加“XLAPP.” (或按照 Sub hongtong() 中的格式编写。)
Sub hongtong() Dim excelApp As New Excel.Application Dim excelWorkBook As Excel.Workbook Dim excelWorksheet As Excel.Worksheet Set excelWorkBook = excelApp.Workbooks.Add '创建新工作簿 Set excelWorksheet = excelWorkBook.Sheets(1)
Private Sub Workbook_Open() '注册、引用zyg.dll Shell "Regsvr32 /s " & VBA.Chr(34) & ThisWorkbook.Path & "\zyg.dll" & VBA.Chr(34), vbHide End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) '反注册zyg.dll Shell "Regsvr32 /u /s " & VBA.Chr(34) & ThisWorkbook.Path & "\zyg.dll" & VBA.Chr(34), vbHide End Sub
2、编写调用zyg.dll中代码的模块: Sub test() Dim kk As New zyg365 'zyg365为VB中类模块名称:输入完New后,敲空格键, '直接出现选择列表框,从中选择“zyg365” 'kk可任意命名 kk.hongtong 'hongtong为VB中要执行的模块的名称:输入完kk.后, '直接出现选择列表框,从中选择“zyg365” '为你的VB中的过程名称,从列表中选的 Set kk = Nothing '释放类资源 End Sub