Ãö©ó °ÆÀɦW xlsm (§t¥¨¶°) ¥t¦s xlsx (µL¥¨¶°)
- ©«¤l
- 127
- ¥DÃD
- 38
- ºëµØ
- 0
- ¿n¤À
- 166
- ÂI¦W
- 0
- §@·~¨t²Î
- Microsoft
- ³nÅ骩¥»
- Windows 7
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-7-31
- ³Ì«áµn¿ý
- 2018-8-3
|
Ãö©ó °ÆÀɦ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®¦. |
|
|
|
|
|
|
- ©«¤l
- 1
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 51
- ÂI¦W
- 0
- §@·~¨t²Î
- windows10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2016-12-31
- ³Ì«áµn¿ý
- 2019-3-5
|
¥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 |
|
|
|
|
|
|
- ©«¤l
- 154
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 200
- ÂI¦W
- 28
- §@·~¨t²Î
- windwos 7
- ³nÅ骩¥»
- 64bit
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2017-5-29
- ³Ì«áµn¿ý
- 2024-10-22
|
sub test()
Application.DisplayAlerts = False
ThisWorkbook.CheckCompatibility = False
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\test.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = True
end sub |
|
|
|
|
|
|
- ©«¤l
- 127
- ¥DÃD
- 38
- ºëµØ
- 0
- ¿n¤À
- 166
- ÂI¦W
- 0
- §@·~¨t²Î
- Microsoft
- ³nÅ骩¥»
- Windows 7
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-7-31
- ³Ì«áµn¿ý
- 2018-8-3
|
·PÁÂ¥H¤W¨â¦ì¤j¤jªº¦^ÂлP¸Ñµª, ·P®¦. |
|
|
|
|
|
|