toxls.bas

客 户 信 息 管 理 系 统

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