Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

716 / 76735

←次へ　｜　前へ→


	【81684】「名前を付けて保存」の保存場所の変更

モリ - 21/3/21(日) 6:22 -


	引用なし

	パスワード

初心者で試行錯誤しているのですが、上手くいかず頭を抱えております。
「H2」が生年月日
「B3」が名字
「D3」が名前
となっており、「生年月日名字名前」というファイル名で名前を付けて保存するマクロを、見様見真似で作りました。

最初は、当ファイルと同じフォルダにどんどん保存されていたのですが、今はマイドキュメントフォルダに保存されるようになってしまいました。

元ファイルと同じフォルダを指定して保存するにはどうすればよいでしょうか。
お手数をおかけしますが、どなたかご教授お願いします。

Sub ファイル保存()

　　Dim wb As Workbook　　　'ワークブック
　　Dim ws As Worksheet　　 'ワークシート
　　Dim x As String　 'H2セル用のフォルダ名用
　　Dim y As String　 'B3セル用のファイル名用
　　Dim z As String　 'D3セル用のファイル名用

　　'自ワークブック
　　Set wb = ThisWorkbook
　　'アクティブシート
　　Set ws = ActiveSheet

　　'H2セルの値を変数に
　　x = ws.Range("H2").Value
　　'B3セルの値を変数に
　　y = ws.Range("B3").Value
　　'D3セルの値を変数に
　　z = ws.Range("D3").Value

　　wb.SaveAs Filename:=x & " " & y & " " & z

End Sub

2 hits

▼

【81684】「名前を付けて保存」の保存場所の変更 モリ 21/3/21(日) 6:22