Sub 別ブックへ値のみコピーする()
Dim objWorkbook As Workbook
'コピー先となる別ブックを開きます。
Set objWorkbook = Workbooks.Open("F:\test\別ブック.xlsx")
'元シートのセル範囲をコピーします。
Workbooks("元シート.xlsm").Sheets("ひな形").Range("A1:H9").Copy
'別ブックへ値のみ貼り付けします。
objWorkbook.Sheets("Sheet1").Range("A1:H9").PasteSpecial Paste:=xlPasteValues
'範囲選択を解除します。
Application.CutCopyMode = False
'オブジェクトを解放します。
Set objWorkbook = Nothing
End Sub
VBAの実装
VBAの実装方法については
VBAの実装手順
をご参照ください。
VBAを設定する
VBAを設定していきましょう。
コピー先となる別ブックのパスを指定します。
Set objWorkbook = Workbooks.Open("F:\test\別ブック.xlsx")
Sub 別ブックへ値のみコピーする_列指定()
Dim objWorkbook As Workbook
'コピー先となる別ブックを開きます。
Set objWorkbook = Workbooks.Open("F:\test\別ブック.xlsx")
'元シートのセル範囲をコピーします。
Workbooks("元シート.xlsm").Sheets("ひな形").Columns("A:H").Copy
'別ブックへ値のみ貼り付けします。
objWorkbook.Sheets("Sheet1").Columns("A:H").PasteSpecial Paste:=xlPasteValues
'範囲選択を解除します。
Application.CutCopyMode = False
'オブジェクトを解放します。
Set objWorkbook = Nothing
End Sub
Sub 別ブックへ値のみコピーする_行指定()
Dim objWorkbook As Workbook
'コピー先となる別ブックを開きます。
Set objWorkbook = Workbooks.Open("F:\test\別ブック.xlsx")
'元シートの指定行数分コピーします。
Workbooks("元シート.xlsm").Sheets("ひな形").Rows("1:9").Copy
'別ブックへ値のみ貼り付けします。
objWorkbook.Sheets("Sheet1").Rows("1:9").PasteSpecial Paste:=xlPasteValues
'範囲選択を解除します。
Application.CutCopyMode = False
'オブジェクトを解放します。
Set objWorkbook = Nothing
End Sub
Sub シートを複数の別ブックへ複数コピーする1()
Dim objWorkbook As Workbook
Dim i As Integer
Dim arrBookList As Variant
Dim strBookList As Variant
'別ブック格納先パスを入力します。
arrBookList = Array("F:\test\別ブック.xlsx", "F:\test\別ブック1.xlsx", "F:\test\別ブック2.xlsx")
'元シートのセル範囲をコピーします。
Workbooks("元シート.xlsm").Sheets("ひな形").Range("A1:H9").Copy
For Each strBookList In arrBookList
'コピー先となる別ブックを開きます。
Set objWorkbook = Workbooks.Open(strBookList)
'別ブックへ値のみ貼り付けします。
objWorkbook.Sheets("Sheet1").Range("A1:H9").PasteSpecial Paste:=xlPasteValues
Next
'範囲選択を解除します。
Application.CutCopyMode = False
'オブジェクトを解放します。
Set objWorkbook = Nothing
End Sub
Sub シートの表をコピー先ファイル一覧にあるブックへコピーする()
Dim objWorkbook As Workbook
Dim i As Integer
Dim strBookList As Variant
Dim intLastRowNum As Integer
'元シートのセル範囲をコピーします。
Workbooks("元シート.xlsm").Sheets("ひな形").Range("A1:D8").Copy
With Workbooks("元シート.xlsm").Sheets("コピー先ファイル一覧")
'B列を対象に最終行数を取得します。
intLastRowNum = .Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To intLastRowNum
'文字結合しファイルパスを作成します。
strBookList = .Cells(2, 1).Value & .Cells(i, 2).Value & .Cells(i, 3).Value
'コピー先となる別ブックを開きます。
Set objWorkbook = Workbooks.Open(strBookList)
'別ブックへ値のみ貼り付けします。
objWorkbook.Sheets("Sheet1").Range("A1:H9").PasteSpecial Paste:=xlPasteValues
Next i
End With
'範囲選択を解除します。
Application.CutCopyMode = False
'オブジェクトを解放します。
Set objWorkbook = Nothing
End Sub
ド素人でも解りやすく感謝感謝です。
でも今回は解りません。66歳ではムズイです。
別ブックへ値のみコピーする_行指定のWorkbooks(“Book2.xlsm”).Sheets(“sheet1”).Rows(“24:17”).Copy でインデックスが有効範囲にありません。と出て止まります。ここでのインデックスが解りません。教えて頂ければ幸いです。
いつもご利用ありがとうございます。
別ブックへ値のみコピーする行指定でインデックスが有効範囲でないエラーが出てしまう件ですが、
シート名かブック名が実際のものと異なっている値を指定している場合に表示されますので、今一度指定の内容が
合っているかご確認いただけますでしょうか。
具体的に以下の場合ですと、
Workbooks(“Book2.xlsm”).Sheets(“sheet1”)
ブック名「Book2.xlsm」にマクロを実装し、「sheet1」シートにコピーしたい値を入れる形になります。
マクロは「Book2.xlsm」を開いた上で実行するようにお願いします。
お世話になります。
文章が分かりにくくすみません。
通常ですと、”コピー元のブック内セルに、コピー先のブック名を入力参照して操作する”のですが、希望としては”コピー先のブック内セルに、コピー元のブック名を入力参照して操作したい”が希望です（コピー先のブック内で操作したい）
理由はコピー先は常に同じブック名なのですが、コピー元ブック末尾の日付が変わる為、そちらをコピー先のセル入力の日付変更により、操作したいということでした。
何か良い方法がありましたら、ご教授よろしくお願いします。
ご連絡ありがとうございます。
そうしますと、VBA実行用ブックとコピー元ブックはわけたほうが良いでしょうか。
コピー先ブック内のJ1セルにコピー元ブックのパスが記載されていることを前提とすると、
以下のように変更をすれば可能となります。
■変更
‘元シートのセル範囲をコピーします。⇒こちらは無効
‘Workbooks(“元シート.xlsm”).Sheets(“ひな形”).Range(“A1:D8”).Copy
With Workbooks(“元シート.xlsm”).Sheets(“コピー先ファイル一覧”)
‘B列を対象に最終行数を取得します。
intLastRowNum = .Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To intLastRowNum
‘文字結合しファイルパスを作成します。
strBookList = .Cells(2, 1).Value & .Cells(i, 2).Value & .Cells(i, 3).Value
‘コピー先となる別ブックを開きます。
Set objWorkbook = Workbooks.Open(strBookList)
‘コピー先J1セルにあるコピー元情報を取得し、別ブックを開きます。⇒追加
Set objWorkbookMoto = Workbooks.Open(objWorkbook.Sheets(“Sheet1”).Range(“J1”).Value)
‘元シートのセル範囲をコピーします。⇒追加
objWorkbookMoto.Sheets(“ひな形”).Range(“A1:D8”).Copy
‘別ブックへ値のみ貼り付けします。
objWorkbook.Sheets(“Sheet1”).Range(“A1:H9”).PasteSpecial Paste:=xlPasteValues
Next i
End With
お世話様になっております。
早速の回答ありがとうございました。流れが分かりやすく、実践して無事に実行できました。
ちなみに逆の場合、別ブックに→別ブックからの場合、ブック元をセル参照にするにはどのようになるでしょうか？
重ね重ね申し訳ありませんが、宜しくお願いします。
できたようでよかったです。
追加のご質問につきまして、
元のブック（元シート.xlsm）のブック名をセルへ記載し、コピー先の対象に含めることでよいでしょうか？
そうでしたら元ブック「元シート」「.xlsm」をコピー先ファイル一覧のB列、C列に入力いただき、
コピー先のシート「Sheet1」を追加した上実行いただければできるかと存じます。
お世話になっております。
別ブックからのコピー&ペーストですが、ブック名をセルに入力した文字列を参照して開くことは可能でしょうか。
例えば220928というブックがあり、セルに220928と入力しておいて、それを参照してブックを開く。
文章稚拙で申し訳ありませんが、よろしくお願いします。
いつもご利用ありがとうございます。
セルに入力したブック名からブックを開きコピー&ペーストする方法につきまして、
説明が多くなるため以下の記事にまとめましたので、よろしければご参考ください。
なお、サンプルのブック名は「220928-1～3」としていますが適宜変更をお願いします。
https://extan.jp/?p=8558#%E3%82%BB%E3%83%AB%E3%81%AB%E5%85%A5%E3%82%8C%E3%81%9F%E3%83%96%E3%83%83%E3%82%AF%E5%90%8D%EF%BC%86%E3%83%91%E3%82%B9%E4%B8%80%E8%A6%A7%E3%81%8B%E3%82%89%E5%88%A5%E3%83%96%E3%83%83%E3%82%AF%E3%82%92%E9%96%8B%E3%81%8D%E3%80%81%E5%80%A4%E3%81%AE%E3%81%BF%E3%82%B3%E3%83%94%E3%83%BC%E3%81%97%E3%81%A6%E8%B2%BC%E3%82%8A%E4%BB%98%E3%81%91%E3%82%8B%E6%96%B9%E6%B3%95
初心者でも非常に解かりやすいですね。
嬉しいお言葉ありがとうございます！