Attribute VB_Name = "ExcelTemplete"
'______________________________Excel for Templete____________________________________
'band excel
Function BandExcel(templete As String, tempShow As String, Obj As Excel.Application, Book As Workbook, Sheet As Worksheet) As Boolean
    
    Set Sheet = Nothing
    If Len(templete) = 0 Then
        Set Obj = Nothing
        Set Book = Nothing
        BandExcel = False
        Exit Function
    End If
    '创建excel工程
    Set Obj = CreateObject("Excel.Application")
    Set Book = Obj.Workbooks.Open(templete)
    'Set Sheet = Book.Worksheets(Sheet)
    '设置excel可见或不可见
    If (Len(tempShow) = 0 Or UCase(tempShow) = "TRUE") Then
        Obj.Visible = True
    Else
        Obj.Visible = False
    End If
    BandExcel = True
    
End Function
'退出Excel
Sub QuitExcel(Obj As Excel.Application, Book As Workbook, Sheet As Worksheet)

    On Error Resume Next
    Obj.DisplayAlerts = False
    '对Excel一定要做错误处理，且模板是只读文件，不能保存
    Book.Close savechanges:=False
    Obj.Quit  '退出excel程序
    Obj.DisplayAlerts = True
    
    Set Obj = Nothing
    Set Book = Nothing
    Set Sheet = Nothing

End Sub
Function ReadSingleStrExcel(Sheet As String, cell As String, Optional BookIndex As Integer = 1) As String
    
    ReadSingleStrExcel = Temp_Book.Worksheets(Sheet).Range(cell)

End Function
'Templet band
Sub TempleteBand()
    
    Call BandExcel(Excel_Templete, Excel_TempleteShow, Excel_Object, Excel_Book, Excel_Sheet)
    
End Sub
Sub TempleteActive(Sheet As String)

    Set Excel_Sheet = Excel_Book.Sheets(Sheet)
    Excel_Sheet.Select
    
End Sub
Sub TempleteWrite(Cells As Variant, Value As Variant)

    Excel_Sheet.Range(Cells).Value = Value
    
End Sub
Function TempleteRead(Cells As Variant) As Variant

    TempleteRead = Excel_Sheet.Range(Cells).Value
    
End Function
Function TempletRead(Cells As Variant) As Variant

    TempletRead = Excel_Sheet.Range(Cells).Value

End Function