個人用マクロブックで保存する方法

Question

ActiveWorkbookを個人用マクロブックとして保存するために次のコードを組みました。

Sub UserName()

    Dim Path As String
    Dim WSH As Variant
    Set WSH = CreateObject("Wscript.Shell")
    Path = WSH.SpecialFolders("AppData") & "\Microsoft\Excel\XLSTART\"
    ActiveWorkbook.SaveAs Path & "PERSONAL.XLSB"

    Set WSH = Nothing

 End Sub

ですが、「アプリケーション定義またはオブジェクト定義のエラー」が出てしまいます。

ActiveWorkbook.SaveAs Path & "PERSONAL.XLSM"

とすれば保存できるのですが、.xlsbだと保存できず、.xlsmだと保存できる、というのは何が原因なのでしょうか。

また、PERSONAL.XLSBで保存する、何か良い方法も教えていただけたら幸いです。

Answer 1

以下のようにFileFormatを指定すれば保存できると思います。

ActiveWorkbook.SaveAs Filename:="ワークブックの保存パス", FileFormat:=XlFileFormat.xlExcel8

ファイル形式は、xlExcel8かxlExcel7だと思うのですが、そこは実行して確かめてください。
詳しくは、XlFileFormat列挙に書かれています。

Comments

[keita.kjesc]

早速の回答、ありがとうございます。
なるほど、xlExcel8にすれば行けるのですね。FileFormat指定の方法、使いたいと思います。