Attribute VB_Name = "ThisWorkbook"
Private Sub Workbook_Open()
' ¦Û°Ê°õ¦æ
    Call XLS_init
    Application.Caption = PYEAR & Worksheets("°â»ù").Cells(3, 1)
End Sub