excel - Excel VBAでフォームの名前を付けて保存場所でワークシートを保存する

Question

まあ、私は開発者ではありませんが、通常の Excel ユーザーは、作業中にいくつかのプロセスを自動化しようとしています。私の質問が簡単かどうかを理解してください。

マクロを実行すると、コンピューターを参照できるようになり、好きな方向とファイル名でファイルを保存できるようになります 可能であれば、デフォルトの場所はワークブックの場所で、保存するだけです時間

ありがとうございました

Answer 1

以下のコードを試してください：

Sub SaveAsDailog()

Application.DisplayAlerts = False
Dim filePath As Variant
filePath = Application.GetSaveAsFilename("abcd.xlsx", "Excel Files (*.xlsx), *.xlsx")

If VarType(filePath) = vbString Then
 ActiveWorkbook.SaveAs Filename:=filePath
End If


Application.DisplayAlerts = True
End Sub