SaveAsが Do～Loopでうまくいかない

質問

Sub
Dim G_name As String
G_name = Range(”I15”) 'l15は、aaa.xlsx
～略～
Workbooks(G_name).SaveAs filename:=(アドレス略)
End Sub
これだと保存され、

Sub
Dim G_name As String、file_name As String
G_name = Range(”I15”) 'l15は、○○○.xlsx
file_name = Dir(○○○)
Do While file_name <> ””
～略～
Workbooks(G_name).SaveAs filename:=(アドレス略)
Loop
End Sub
これだとSaveAsの所でエラーになります。

エラー解消方法、何かあるでしょうか

回答No.3

kkkkkm · ベストアンサー

Do～Loopで繰り返して何をやりたいのか分かりませんが
(ファイルの有無を見ているのでしたらIf file_name = "" Thenだと思いますし)
Workbooks(G_name).SaveAs filename:=(アドレス略)
この時点でG_nameは○○○.xlsxからアドレス略の名前に変更されたので、保存した後でG_nameに変更されたアドレス略のブック名を代入しなければエラーになります。

ただし、略のところがまともであればの話ですが。

回答No.4

kkkkkm

No.3の訂正

この時点でG_nameは
↓
この時点でもとのファイル名は

回答No.2

imogasi

Do While file_name <> ””
～略～
Workbooks(G_name).SaveAs filename:=(アドレス略)
Loop
の(アドレス略)のところを略しては、質問にならない。
変化させているのでしょう。
・変化させないなら、同名のブックを保存する、になりアウト
・変化させる場合は、どういう名前になるのかな
＞file_name とfilename：＝の関連は？
フルパス指定していますか？

補足

略の部分について
Dim A_folder As String
A_folder = ”C:￥User￥○○￥Desktop￥コンバート￥変換後”

Workbooks(G_name).SaveAs Filename:=A_folder & ”￥” & filename

となります。

Filenameと、file_nameは、関連性は無いです。

回答No.1

kon555

save asは要は『名前を付けて保存』なので、同名のファイルが既にあるためエラーになっているのだと思います。
　最終的なファイルが一つでいい処理なら、ループが終わった後に保存。ループごとにファイルを作りたいなら、ループ数あたりをファイル名末尾につけた連番にしてはどうでしょうか。

補足

フォルダにある全てのファイルを違うフォーマットにして新しく保存したいため、ループ内で連番を付けるやり方、試してみます