質問

VBAでマクロを使って、マクロ無効のエクセルシートとして名前を付けて保

質問者：angelmote
投稿日時：2010/09/13 21:32

VBAでマクロを使って、マクロ無効のエクセルシートとして名前を付けて保存ってできますか？？

FileFilter:="エクセルファイル(*.xlsx),*.xlsx"

として保存すると、保存はできるのですが、開くことができません。

VBA初心者です。よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

No.1ベストアンサー20pt

回答者：end-u
回答日時：2010/09/13 23:30

#Excelのバージョンが2007だとして。

Book名が固定なら

ActiveWorkbook.SaveAs Filename:="c:\test\test.xlsx", FileFormat:=xlOpenXMLWorkbook
'"c:\test\test.xlsx"はテキトーです。

...っていう事でしょうか？

それとも
Sub Macro1()
　　Dim x As Variant

　　x = Application.GetSaveAsFilename(fileFilter:="エクセルファイル(*.xlsx),*.xlsx")
　　If VarType(x) <> vbBoolean Then
　　　　ActiveWorkbook.SaveAs Filename:=x, FileFormat:=xlOpenXMLWorkbook
　　End If
End Sub
こちらでしょうか。