Attribute VB_Name = "toExcel"
'****************************************************************************
'人人為我，我為人人
'枕善居收藏整理
'發布日期：2007/12/17
'描    述：企事業單位人事管理系統 Ver 2007
'網    站：http://www.Mndsoft.com/  (VB6源碼博客)
'網    站：http://www.VbDnet.com/   (VB.NET源碼博客,主要基于.NET2005)
'e-mail  ：Mndsoft@163.com
'e-mail  ：Mndsoft@126.com
'OICQ    ：88382850
'          如果您有新的好的代碼別忘記給枕善居哦!
'****************************************************************************
Public xlApp As Excel.Application '定義EXCEL類
Public xlBook As Excel.Workbook '定義工件簿類
Public xlsheet As Excel.Worksheet '定義工作表類


Public Sub openXLT(ByVal xltName As String) '打開EXCEL過程
    Set xlApp = CreateObject("Excel.Application") '創建EXCEL應用類
    Set xlBook = xlApp.Workbooks.Open(App.Path & "\xlt\" & xltName) '打開EXCEL工作簿
    Set xlsheet = xlBook.Worksheets(1) '打開EXCEL工作表

End Sub

Public Sub closeXLT()
  xlApp.Visible = True '設置EXCEL可見
  Set xlApp = Nothing '釋放EXCEL對象
End Sub