保存先のフォルダ名を指定したいとき

これでできませんか？ まず条件どおり、C:\入力済みデータ の中にいくつかのフォルダを用意しました。 Excel 2003 を新規に立ち上げ、新規ワークブックに標準モジュールを挿入し、以下のコードを書き込んで実行しました。 Sub hoge() Dim initPath As String initPath = "C:\入力済みデータ" Dim saveFilePath As String saveFilePath = Application.GetSaveAsFilename(initPath, "Excel File (*.xls),*.xls") If Not (saveFilePath = "False") Then ThisWorkbook.SaveAs saveFilePath End If End Sub "ファイル名を指定して保存" のダイアログが表示され、初期フォルダとし