ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

Ãö©ó °ÆÀɦW xlsm (§t¥¨¶°) ¥t¦s xlsx (µL¥¨¶°)

Ãö©ó °ÆÀɦW xlsm (§t¥¨¶°) ¥t¦s xlsx (µL¥¨¶°)

¦U¦ì¤j¤j¦n, ¦pÃD

§Úªº°ÝÃD¦pÃD, A.xlsm ­n¥t¦s¦¨ A.xlsx

¥Î¤@¯ëªº SavaAs ¼g¤@ª½¦³°ÝÃD, ¤W¨Ó½Ð¯q¦U¦ì¤j¤j, ·P®¦.

·PÁÂ¥H¤W¨â¦ì¤j¤jªº¦^ÂлP¸Ñµª, ·P®¦.

TOP

sub test()
     Application.DisplayAlerts = False
    ThisWorkbook.CheckCompatibility = False
    ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\test.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Application.DisplayAlerts = True
end sub

TOP

¥i¥H¸Õ¸Õ¤U¦C¤èªk

Public Sub ¥t¦s·sÀÉ()
Dim myPath, myName, MyStr As String
Dim s As Integer
myPath = ActiveWorkbook.Path & "\"
myName = ActiveWorkbook.Name
s = Len(myName) - InStr(1, myName, ".") - 1
MyStr = VBA.Mid(myName, 1, s) '¥h±¼ªþÀɦW
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:=myPath & MyStr & ".xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:=myPath & MyStr & ".xls", FileFormat:= _
        xlExcel8, CreateBackup:=False
End Sub

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD