Excel (VBA)

Excel VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 10全般 : Excel 2010)
保存先フォルダの指定について
投稿日時: 20/06/10 18:29:40
投稿者: ねこねこ

VBAで作成したファイルを指定したフォルダへ保存したいのですが、
デスクトップに保存されてしまします。
どのように修正したらいいでしょうか。
ヒントいただけますと幸いです。
 
 
Sub フォルダを指定()
 
With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = True Then
            MsgBox .SelectedItems(1)
        End If
    End With
     
End Sub

回答
投稿日時: 20/06/10 20:27:12
投稿者: simple

こんにちは。
 
そのコードを実行すると、フォルダを選択するDialogが表示されるので、
それを操作して、望むフォルダを表示させて、OKボタンを押します。
すると、それがMsgBoxで表示されますよね。
 
ですから、
   folder = .SelectedItems(1)
とすれば、
そのフォルダまでのパスがfolderにより使えるのではないですか?

トピックに返信