softsadwind

¤À­¶¥t¦sÀɮסAª½±µ¦b¶}±ÒÀɮשҦb¦ì¸m¥t¦s·sÀÉ


Sub SaveSheet()
'¥H¤Uµ{¦¡½X¸Õ¥Î Excel 200~2010ª©
Dim wks As Worksheet
    Set wks = ActiveSheet
    With wks
        If Val(Application.Version) < 12 Then
            'Excel ª©¥» 97-2003
            'xlWorkbookNormal -4143 ¤@¯ë¬¡­¶Ã¯
            FileExtStr = ".xls": FileFormatNum = -4143
        Else
            Select Case .Parent.FileFormat
                'xlOpenXMLWorkbook 51 ¶}±Ò XML ¬¡­¶Ã¯
            Case 51: FileExtStr = ".xlsx": FileFormatNum = 51
            Case 52:
                If .Parent.HasVBProject Then
                    'xlOpenXMLWorkbookMacroEnabled 52 ¶}±Ò XML ¬¡­¶Ã¯¥¨¶°±Ò¥Î
                    FileExtStr = ".xlsm": FileFormatNum = 52
                Else
                    FileExtStr = ".xlsx": FileFormatNum = 51
                End If
            End Select
        End If
        .Copy
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs .Parent.Path & "\" & .Name & FileExtStr, FileFormatNum
        Application.DisplayAlerts = True
        ActiveWorkbook.Close SaveChanges:=False
    End With
End Sub