0

私は現在、さまざまなユーザーフォームによって管理されているExcelドキュメントを持っています。ドキュメントを編集した後、ユーザーフォームの1つに保存オプション（ボタン）を追加したいと思います。

したがって、[保存]または[名前を付けて保存... ]ウィンドウを開くコードがあるかどうかを知りたいですか？

私が達成したいのは、ユーザーが（ユーザーフォームから）選択できる場所に、ファイルを.xslmファイルではなく通常の.xslファイルとして保存することです。

4

1 に答える 1

2

このようなもの... ？

Sub test()

Dim vSave_File As Variant

vSave_File = Application.GetSaveAsFilename("Test.xls", "Excel files (*.xls),*.xls", 1, "Dialog Title")

End Sub
于 2013-01-24T11:45:40.387 に答える