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

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

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

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


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

No.1 ベストアンサー 回答者： 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
こちらでしょうか。

この回答へのお礼

できました。
ありがとぉございます！！

お礼日時：2010/09/14 00:01