【Excel VBA】 新規ブックの保存先について

マクロにてワーク用のシートに転記処理を行い、終了したら
新規で別ブックを作成し、ワーク用シートをコピー、別名保存する処理を作成しました。

現在マクロが保存されているフォルダと同じフォルダに保存したいのですが、
下記記述では一つ上の階層に保存され、かつフォルダ名が名前の最初に入ってしまいます。
保存名の例：上の階層のフォルダ名新規ブック

同じフォルダに、任意で名前を付けて保存する方法を教えていただけないでしょうか。

【マクロ】
'新規ブックを作成
Dim wbNewBook As Workbook
Set wbNewBook = Workbooks.Add

'新規ブックに作業用シートを貼り付ける
ThisWorkbook.Worksheets("作業シート").Copy before:=ActiveWorkbook.Sheets(1)

'新規ブックのシート名を変更
wbNewBook.Sheets(1).Name = "個別シート"

'新規ブックを名前を付けて保存
wbNewBook.SaveAs Filename:=ThisWorkbook.Path & "新規ブック" & ".xlsx"
wbNewBook.Close SaveChanges:=True

No.2 ベストアンサー 回答者： tatsu99 回答日時： 2018/09/18 17:09

別件ですが、こちらは解決されたのでしょうか？

【Excel VBA】マクロの処理速度について
https://oshiete.goo.ne.jp/qa/10719388.html

【Excel VBA】年度別にカウントする転記マクロについて
https://oshiete.goo.ne.jp/qa/10717384.html

この回答へのお礼

回答が遅くなりまして申し訳ございません。

【Excel VBA】年度別にカウントする転記マクロについて
https://oshiete.goo.ne.jp/qa/10717384.html

については要件を変更して作成致しました。
作成したものを載せようとしているのですが、文字制限で上手く載せられず苦戦しています。。。申し訳ありませんが、回答までもうしばらくお待ちください。


【Excel VBA】マクロの処理速度について
https://oshiete.goo.ne.jp/qa/10719388.html

につきましては、ご回答頂きましたがまだ解決していない状況です。

お礼日時：2018/09/18 17:38

No.3 回答者： tatsu99 回答日時： 2018/09/18 19:12

>【Excel VBA】マクロの処理速度について

>https://oshiete.goo.ne.jp/qa/10719388.html
>につきましては、ご回答頂きましたがまだ解決していない状況です。

私は、他の方が既に回答していたので、回答を控えたのですが、
（他の回答者が指摘されていることは的確な内容です。私も全く同じ内容の為、回答しませんでした）
とりあえず、ほかの回答者になんらかの返信はしておいた方がよろしいかと。
（スルーしておくと、次回から回答されなくなる可能性もあります）

現在、解決に至ってないなら、マクロ全体を全て提示するのはいかがでしょうか。
あまりにもマクロが多量なら、下記のサイトに投稿する手もあります。
このサイトはインデントも乱れずに保存できるので、マクロなどのやり取りには非常に便利です。
https://ideone.com/
全てを公開することが、社外秘の部分に抵触するなら話は別ですが。

No.1 回答者： tantanmm 回答日時： 2018/09/18 17:01

wbNewBook.SaveAs Filename:=ThisWorkbook.Path & "\新規ブック" & ".xlsx"

×"新規ブック"
○"\新規ブック"

この回答へのお礼

ありがとうございます！階層の指定が無かったのですね。。
無事同じフォルダに作成されました ^^

お礼日時：2018/09/19 09:33