excel 別のフォルダから列コピーする方法

Question

excel 2016を使用してます。
フォルダAとフォルダBがあります。
フォルダAには作成中の「予定表」ファイルがいくつかあります。
フォルダBには元となる「祝日一覧」ファイルが作成してあります。

フォルダBの「祝日一覧」ファイルのA列とB列を「予定表」ファイルのA列とB列にコピーしたいと思っています。
それぞれの「予定表」ファイルにボタンを作りコピーしたいと思っていますが可能でしょうか？

tatsumaru77 · Accepted Answer

マクロを起動するとファイル選択ダイアログボックスが表示されます。
コピー先のファイルを選択してください。
選択するとそのファイルの祝日シートにコピーが行われます。

Public Sub 祝日コピー()
    Dim Target As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim ms As Worksheet
    Dim maxrow As Long
    Set ms = Worksheets("祝日")
    Target = Application.GetOpenFilename("Excel ブック,*.xls?")
    If Target = "False" Then Exit Sub
    Set wb = Workbooks.Open(Target)
    Set ws = wb.Worksheets("祝日")
    ws.Range("A1:B" & Rows.Count).ClearContents
    maxrow = ms.Cells(Rows.Count, 1).End(xlUp).Row
    ws.Cells(1, 1).Resize(maxrow, 2).Value = ms.Cells(1, 1).Resize(maxrow, 2).Value
    wb.Save
    wb.Close
    MsgBox ("完了")
End Sub

tatsumaru77 · Answer

No6です。
補足拝見しました。以下不明点です。
１．マクロを格納するブックはどれですか。
①祝日元のブック
②班ごとのブック
③それ以外

２．祝日元のブックのコピー元のシート名は"Sheet1"であってますか。
違う場合は、シート名を提示してください。

３．班ごとのブックのコピー先のシート名は"Sheet2"であってますか。
違う場合は、シート名を提示してください。

４．マクロを実行したとき、
1回の実行で、全ての班ごとのブックへコピーすることを想定していますか。
それとも
1回の実行で、１つの班ごとのブックへコピーすることを想定していますか。

tatsumaru77 · Answer

No5です。
以下のような前提で良いでしょうか。
１．マクロは、各予定表ファイルに登録する。
２．ボタンとマクロの関連付けは、質問者（あなた）が行う。
３．祝日一覧ファイルの拡張子も含めたファイル名は「祝日一覧.xlsx」とする。
４．マクロの機能は以下とする。
フォルダB内の祝日一覧.xlsxのSheet1のA列とB列を
予定表ファイルのSheet2のA列、B列へコピーする。

上記で良ければ提供可能です。前提に齟齬があれば、補足してください。

tatsumaru77 · Answer

１．部署数はいくつほどありますか。
２．1年に１回限り、部署数の数だけ、祝日一覧から、予定表の祝日へコピペすれば済む話かと思いますが、そうではないのでしょうか。
マクロで行いたい理由は何でしょうか。

rexfan · Answer

Ｎｏ３です。
補足です。
１．wb.Saveで上書きするので、この行もコメント化してから試してください。
２．今回提示したのは、使い勝手を実感するサンプルですので、
　　機能不足です。このまま実務に適用しないでください。

rexfan · Answer

祝日ファイルの祝日シートにボタンを作り以下のマクロを登録します。
ボタンを押せばファイル選択画面が表示されるので予定表を選ぶ。
内容OKなら保存して閉じる
ボタン押す
これを繰り返す

マクロの記録をベースにしているのでシートやセルは適当です。
Sub Macro1()
'
' Macro1 Macro
'
    Dim OpenFileName As String
    Dim wb As Workbook
    Application.ScreenUpdating = False
    
    OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")　　→　エクスプローラーのファイル選択画面表示
    Set wb = Workbooks.Open(OpenFileName)
'
    ThisWorkbook.Activate　'予定表
    Range("B2:B9").Select
    Selection.Copy
    wb.Activate　　　　　　　'部署ファイル
    Worksheets("sheet2").Select
    Range("A1").Select
    ActiveSheet.Paste
　Range("A1").Select
    wb.Save
   
    Application.CutCopyMode = False
    MsgBox " Copy End = " & OpenFileName　メッセージは好みで変更
　 ’wb.Close　　'コメント化し内容確認後手動でクローズ。
　確認不要であれば、コメント外すことによって部署ファイルはクローズされる。
End Sub

rexfan · Answer

祝日ファイルにボタンを作り
各部署のファイルをダイアログでＯＰＥＮして
そちらにコピーするほうが良さそうですね。

fujillin · Answer

こんばんは

ボタンを押したらある一定の処理をして欲しいということでしょうか？

ボタンに「そのような処理を行うマクロ」を登録しておけば可能です。
ただし、マクロを個別のブックに登録しておくと、毎回そのブックが開かれることになるので、マクロのテンプレートに保存しておくほうが良いでしょう。

マクロの内容自体はさほど難しいものではないので、ご自身で作成してください。
フォルダBの位置が固定で良いのなら、マクロの記録を修正しても可能だと思います。

・・・というか、そんな面倒なことをしなくても、「予定表」のテンプレートを作成しておいて、そこに「祝日一覧」への参照リンクを貼っておけば、ボタンなど作ったり、押したりしなくても自動で更新表示されますけれど？
参照リンクが嫌なら、クエリを利用して読み込むようにしておいても、ほぼ同等の手間で読み込みが可能です。

excel 別のフォルダから列コピーする方法

マクロを起動するとファイル選択ダイアログボックスが表示されます。

No6です。

No5です。

１．部署数はいくつほどありますか。

Ｎｏ３です。

祝日ファイルの祝日シートにボタンを作り以下のマクロを登録します。

祝日ファイルにボタンを作り

こんばんは

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

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

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

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