コピペで使えるVBAのコード置き場

xlsmの自ブックをxlsxで保存する

筆箱にVBAのカンニングペーパーを入れる係のみすくです。こんにちは。

拡張子xlsmは不可って言われたから、
処理が終わったらxlsxで保存するか…と思って書いたんだけど、
アドインを使えば良いだけの話だった。

せっかく書いたから一応公開。

'---------------------------------------------------------------------------------------------------
'【処 理 名】自ブックデフォルト保存
'【処理概要】自ブックをデフォルトの形式で保存する
'【引    数】なし
'【返 却 値】なし
'---------------------------------------------------------------------------------------------------
Public Sub saveExcelDefault()
    'ツール > 参照設定 > Microsoft Scripting Runtime
    Dim oFso As New FileSystemObject
    Dim newFile As String
    
    ThisWorkbook.Save
    
    newFile = ThisWorkbook.path & "\" & oFso.GetBaseName(ThisWorkbook.FullName)
    Application.DisplayAlerts = False
    
    ThisWorkbook.SaveAs fileName:=newFile, FileFormat:=xlOpenXMLWorkbook
    
    Set oFso = Nothing
End Sub

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です