VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい

Question

お世話になります。
参照先で選択したファイルをコピーし、出力先に【完成版】データ.xlsxと名前を付けて保存したいのですが、調べながらコードを書いてみたのですが、つぎはぎになってしまい色々考えているのですが、どうしてもうまくいきません。大変恐縮ですが以下についてご教示いただけないでしょうか。


①各ボタンにマクロを設定しましたが、wsの宣言は以下の形でいいのでしょうか？
②出力先のフォルダ選択ボタンのコードで、キャンセルボタンが押された場合の処理を書くとエラーになるのですが理由がわからないのですが、ファイルを選択した場合とフォルダの選択だと、制御がことなるのでしょうか？
③出力先の値をB9に表示させたいのですがなぜかL1セルにパスが表示されてしまいます。
④最後のファイルをコピーして名前をつけて保存の記述ですが、上２つのプロシージャ―で使った変数を引き継ぐことができず、どのように記述すればよいかご教示いただけないでしょうか。

Option Explicit
Dim ws As Worksheet

Sub ファイルを選択()　’「ファイルを選択」ボタン
 Dim fType, prompt As String
 Dim fPath As Variant

 Set ws = Worksheets("sheet1")
 fType = "Excelﾌｧｲﾙ(*.xlsx),*xlsx"
 prompt = "ファイルを選択してください"
 fPath = Application.GetOpenFilename(fType, , prompt)

 If fPath = False Then  'ダイアログでキャンセルボタンが押された場合は処理を終了
    End
 End If
ws.Cells(5, 2).Value = fPath  'B5セルにパスを表示させる
End Sub


Sub 出力先()　'「フォルダー選択」ボタン
 Dim 出力先 As String
 Dim ws2 As Worksheet

 Set ws = Worksheets("sheet1")
 With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show = True Then
    出力先 = .SelectedItems(1)
    End If
    End With
    If 出力先 = False Then  'ダイアログでキャンセルボタンが押された場合は処理を終了
        End
     End If

ws.Cells(9.2).Value = 出力先　'B9に出力先フォルダを表示
End Sub

Sub データ処理
　filecopysource:=Range("B5").value,destination:=Range("B9").value & "【完成版】データ.xlsx"
End sub

Qchan1962 · Accepted Answer

＃１
＞最後の「変数を使用する時には変数の値を確認するロジック」とは、どういったものでしょうか。

＃３様が回答しているような状態（同名ファイルの上書き）を防ぐとか

例えば
メイン処理の前に（おわびも含め　少しコード足し、変数を変えました）

'出力先フルパス作成
    newfllPath = outputPath & "\" & Format(Date, "yy_mm_dd") & "【完成版】データ.xlsx"
    '同名ファイルチェック
    If Dir(newfllPath) <> "" Then
    '分岐処理UI
        rc = MsgBox("同名ファイルが存在します　処理を行いますか？", vbYesNo + vbQuestion, "確認")
        If rc = vbNo Then MsgBox "出力処理を中止します": Exit Sub
    End If

’メイン処理
FileCopy Source:=fPath, Destination:=newfllPath
 '情報出力

1つのプロシージャにした方が、簡単・・・かと

中間の
End Sub
Sub 出力先()　'「フォルダー選択」ボタン
End Sub
Sub データ処理
を削除
変数を整理
キャンセル時、実行時の分岐を確認

取得、加工、メイン、結果出力　のような流れで上から処理を組み直す

tatsumaru77 · Answer

本件の回答でなくてすみません。
あなたが質問したこちらについて、回答しようとしたところ、
既に締め切られていて回答できませんでした。
https://oshiete.goo.ne.jp/qa/12945379.html
もし、この質問がまだ未解決なら、回答の用意がありますので、
再度、質問を起こしていただければ、回答いたします。
（いくつか不明点がありますので、まずはその確認からになりますが・・・）

fujillin · Answer

No3です。

＞ひとつのコードとして記載することはできるのでしょうか？
基本的に、コードは記載順に処理されますので（例外はありますが）、一つのプロシージャにまとめてしまうことで可能になります。

あるいは、せっかく機能ごとに分けて作成してあるので、全体を通して処理するプロシージャを別に作成しても良いです。
　Sub Main()
　　Call ファイルを選択
　　Call 出力先
　　Call データ処理
　End Sub
としておいて、こちらを実行すれば、それぞれのプロシージャを順に（連続して）実行することができます。

ただし、ご提示の内容の場合、いきなりダイアログが2回連続して表示されてしまうことになるので、ご自身が使う場合には（内容が分かっているので）問題はありませんけれど、他の人が使う場合には「何を選択すれば良いのかわからない」事態になりかねませんね。
ですので、そのような場合には、なんらかの工夫が必要かもしれません。

ダイアログのタイトルに指定の文字列を表示することが可能なので、これを利用する方法はありそうですが、必ずそこを見てくれるとは限らないでしょうから、それで充分とは言えないように思われます。
メッセージボックス等で入力内容を知らせたり、ユーザーフォームをモードレスで表示して入力内容を表示しておくなどで、わかるようにしておく方が良いかもしれません。

あるいは、連続して処理する場合には、間違えて入力してしまった際を考慮して、戻れるようにしておいたり、確認をすることも必要になるのかも知れませんね。
（人間は、間違えるものですので・・）
どのようなUIにしておくのが一番良いのかは、実際の状況をご存じの質問者様にしかわかりませんので・・

Qchan1962 · Answer

＃４締め切りにならず良かった・・・

せっかく確認して頂きましたが、間違いの上塗りをしてしまいました
大変恥ずかしいのですが、そのままには私的に出来ませんので
連続投稿いたします

一方　問題の・・・
説明（意味内容が違う）

正しくは
一方　問題の　Application.FileDialog(msoFileDialogFolderPicker)
でキャンセルボタンを押すと
If .Show = True Thenにより
= .SelectedItems(1)は実行されず
変数の初期値　""　Emptyが返ります
変数がStringの場合は "" が返り　If 出力先 = "" Thenで良いです
As Variantでも　If 出力先 = "" Thenで良いです

補：もし.SelectedItems(1)を参照した場合
.SelectedItems(1)はキャンセルの場合、無いので　エラー＃5
呼び出し又は引数不正のエラーが返ります

結果が同様でも内容が違うので重ねてお詫びします

Qchan1962 · Answer

＃１の回答をした者です
誤りな情報を記しましたので訂正いたします
②　
If 出力先 = False Then　型が違います
Dim 出力先 As String　（Variantでないので）
〇　If 出力先 = "" Then
VariantならfPathと同じでOK
これは誤りです

正しくは
If 出力先 = False Then　型が違います
〇　If 出力先 = "" Then

Application.GetOpenFilenameのキャンセルボタンを押すと
False　か返ります（As Boolean）
受ける変数がStringの場合は　"False"の文字列が返ります
従って
そのまま　
Dim fPath As Variant　で　If fPath = False Then

Dim fPath As String とした場合は　If fPath = "False" Then

一方　問題の　Application.FileDialog(msoFileDialogFolderPicker)
でキャンセルボタンを押すとEmptyが返ります
受ける変数がStringの場合は "" が返り　If 出力先 = "" Thenで良いです
As Variantで合っても　Variant/String　となり　If 出力先 = "" Thenで良いです

何か分かり難くなってしまいましたが　VariantならfPathと同じでOKは
間違えなので訂正いたします。すみません

fujillin · Answer

こんばんは

コードだけを見せられても、本当は何をしたいのかがよくわからないのですが・・・

①wsの宣言は以下の形でいいのでしょうか？
別に問題はありませんけれど、シートモジュールに宣言する場合は共通変数として使用する場合です。
一方で、ご提示のコードではそのような使い方をしている様には見受けられませんので、意味が分からない間は、各プロシージャ内で宣言しておいた方がよろしいかと。
例えば、出力先()の中では ws2 を宣言していますが、使っていなかったりと・・
（＝問題にはなりませんけれど、整理できていないように感じます）

②エラーになるのですが理由がわからないのですが、～～
どこでエラーが発生しているのかを確認してください。
ご提示の場合は、変数宣言が文字列になっている変数に対して真偽値であるかを判定しようとしているので、おかしなことになっています。
尚、プロシージャ名と同じ変数名を使用するのも、混乱の元なのでやめた方が良いでしょう。

＞ファイルを選択した場合とフォルダの選択だと、制御がことなるのでしょうか？
ダイアログの扱い方が異なっていますよね？
ご自分のその前のコードをよくご確認ください。
異なる方法で扱っているので、異なる結果になります。

③出力先の値をB9に表示させたいのですがなぜかL1セルにパスが表示されてしまいます
タイプミスでは？
＞ws.Cells(9.2).Value
は、引数がひとつしかないので、全体のセルの中から（9.2を整数化して）9番目のセルの意味と解釈されます。
ですので、L1ではなくI1セルになっていませんか？

④最後のファイルをコピーして名前をつけて保存の記述ですが、上２つのプロシージャ―で使った変数を引き継ぐことができず、どのように記述すればよいかご教示いただけないでしょうか。

想像するところ全体で一連の処理のように見受けられるので、バラバラに記述する意図がわかりかねますが・・
プロシージャ間で変数の値を引き継ぎたければ、前述の共通変数を用いるか、シート上のセルなどを利用することになります。
（共通変数はエクセルをクローズすると消えますが、セル値であればそのまま保存できるという違いがあります）
ご提示のコードではセルに記述しているので、そのセルの値を読み込めば引き継ぐことができると思います。
ご提示のコードも、同様のことを意図しているように受け取れますが？

ちなみに、ご提示のコードだと
＞filecopysource
というメソッドとして解釈されるので、エラーになると思います。
また、フォルダパスとファイル名を直接連結しているようですけれど、その結果がどうなるかは、事前に確認しておいた方がよさそうに思います。

書き込み先のチェック（既存で同名のファイルがないか）などを行っていないので、それで問題がないのかも気になるところではありますが・・・

※ 以上、ざっと見て、とりあえず気づいた点のみですけれど・・

Qchan1962 · Answer

見落としました
filecopysource:=Range("B5").value,destination:=Range("B9").value & "【完成版】データ.xlsx"
\が抜けていますね（たぶん）
〇　& "\【完成版】データ.xlsx"

Qchan1962 · Answer

こんばんは
①　
良いと思いますよ・・シート名がSheet1ならば
②　
If 出力先 = False Then　型が違います
Dim 出力先 As String　（Variantでないので）
〇　If 出力先 = "" Then
VariantならfPathと同じでOK
③
タイプミス？　×　ws.Cells(9.2)　〇　ws.Cells(9, 2)

④
モジュールレベル変数で宣言します
（Dim ws As Worksheet）で既に行っている方法

正しプロシージャ名と同じ変数名は使えません
Dim 出力先 As String
Sub 出力先()

また、その変数を使用する時には変数の値を確認するロジックを
出来れば追加しましょう（思わぬエラーに躓く可能性があります）

filecopysource:=Range("B5").value,destination:=Range("B9").value & "【完成版】データ.xlsx"
半角スペースは重要です

もう少しで完成と存じますので、コードは割愛します

VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい

＃１

本件の回答でなくてすみません。

No3です。

＃４締め切りにならず良かった・・・

＃１の回答をした者です

こんばんは

見落としました

こんばんは

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング