toxls.bas

来自「客户关系管理」· BAS 代码 · 共 18 行

Attribute VB_Name = "TOXLS"



Public myexcel As New Excel.Application
Public mybook As New Excel.Workbook
Public mysheet As New Excel.Worksheet

Public Sub OpenExcel()
  Set myexcel = CreateObject("Excel.Application")
  Set mybook = myexcel.Workbooks.Add
  Set mysheet = mybook.Worksheets(1)
End Sub

Public Sub CloseExcel()
Set myexcel = Nothing
End Sub