Ãö©ó °ÆÀɦW xlsm (§t¥¨¶°) ¥t¦s xlsx (µL¥¨¶°)
- ©«¤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 |
|
|
|
|
|
|