![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
同じファイルにアクティブになるブックとデータ取得のためのブックが3つあります。
これをバックグラウンドで開き、範囲指定して転記したいのですが、出来ません。
Sub データ転記()
Dim sourceWB As Workbook
Dim sourceWS As Worksheet
Dim SourceRange As Range
Dim lastrow As Long
Dim folderPath As String
Dim sourceFilePath As String
'同じフォルダ内のパスを取得
folderPath = ThisWorkbook.Path
sourceFilePath = folderPath & "\ブック名.xlsx"
'コピー元のブックをバックグラウンドで開く
Set sourceWB = Application.Workbooks.Open(sourceFilePath, False, True)
'コピー元のシート指定
Set sourceWS = sourceWB.Sheets("シート名")
'コピー元のデータ取得
Set SourceRange = sourceWS.Range("A3:E30")
'アクティブシートに転記
SourceRange.Copy Destination:=ActiveSheet.Range("A3")
'ブックを閉じる
sourceWB.Close SaveChanges:=False
End Sub
宜しくお願い致します。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
No2です。
No1で理由も説明しておいたつもりですが、それを理解せずに、適当にコピペだけなさっていませんか?
ご提示の内容の処理であれば、以下のような感じでも実行可能と推測します。
(ただし、No1に記したバックグラウンドに関してはご提示のままです)
※ ブック名、シート名は正しい名称(=質問者様の環境にあった名称)にしてください
Sub データ転記()
Dim TargetRange As Range
Const bookName = "ブック名.xlsx" ' コピー元ブック名
Const sheetName = "シート名" ' コピー元シート名
Set TargetRange = ActiveSheet.Range("A3")
With Workbooks.Open(ThisWorkbook.Path & "\" & bookName)
.Worksheets(sheetName).Range("A3:E30").Copy TargetRange
.Close False
End With
End Sub
なお、ブックを開いた際に、他ブックの固定範囲の値を取り込めば良いだけであれば、VBAなどを用いなくても、当該ブックに「他ブックへの参照」を設定しておけば可能です。
あるいは、クエリなどを設定しておく方法でも可能と思います。
https://www.wanichan.com/pc/excel/2016/6/07.html
No.2
- 回答日時:
No1です。
>VBA初心者なので(バックグラウンドで開く)ところからつっかえております。
質問文に何も記載がなかったので、エラーは出ていないものと思いましたが、そういうことではないのでしょうか?
もしエラーが出ているのなら、それはどの行でどのような内容のエラーでしょうか?
エラーになりそうなのは
・指定したブックが存在しない
・ブック内に、指定したシートが存在しない
くらいかと思いますが・・・
なお、当方の環境では、No1の部分を修正すれば、問題なく実行できます。
Sub データ転記()
Dim sourceWB As Workbook
Dim sourceWS As Worksheet
Dim SourceRange As Range
Dim lastrow As Long
Dim folderPath As String
Dim sourceFilePath As String
'同じフォルダ内のパスを取得
folderPath = ThisWorkbook.Path
sourceFilePath = folderPath & "\ブック名.xlsx"
'コピー元のブックを開く
Set sourceWB = Workbooks.Open(sourceFilePath)
'コピー元のシート指定
Set sourceWS = sourceWB.Sheets("シート名")
’転記先ブック指定
Set SourceRange = sourceWS.Range("A3:E30")
'アクティブシートに転記
Set TargetRange = ActiveSheet.Range("A3:E30")
SourceRange.Copy Destination:=TargetRange
'ブックを閉じる
sourceWB.Close SaveChanges:=False
End Sub
このように変更してみましたが、エラーは出ないものの転記はされません。
No.1
- 回答日時:
こんにちは
単に「できません」としか書いてないので、どこが思惑と違うのか不明ですけれど・・
想像するところ、
>SourceRange.Copy Destination:=ActiveSheet.Range("A3")
で、Destinationで指定している、Activesheetが質問者様が意図しているものと異なっているのではないでしょうか?
ご提示の場合は、Activesheet は「後から開いたブックのその時に表示されているシート」を意味します。
多分、マクロを実行する際に表示されているシートを指定したいのではないかと想像しますので、最初に(=そのシートが表示されている時に)
Set TargetRange = ActiveSheet.Range("A3")
などとして変数に記録しておき、コピペの際にはそれを用いて
SourceRange.Copy Destination:=TargetRange
のように、コピー先を指定すれば良いのではないでしょうか?
※ 当方がご質問の意図を勘違いしている場合は、
お門違いの回答なのでスルーしてください。
なお、
>これをバックグラウンドで開き、範囲指定して転記したいのですが~
ご提示の状態だと「バックグラウンド」にはならないと思います。
特に、ブックを開くのには時間がかかるので、その間は操作ができなくなります。
多少、バックグラウンド風にするなら、
Application.ScreenUpdating = False
とでもしておけば、処理が見えなくなるのでバックグラウンド風になるとは思いますけれど、時間の問題は解決できません。
どうしてもバックグラウンドに近いものにしたければ、別スレッドでかつ別プログラム(=VBS等)から開く操作だけは行うようにするとか、あるいは、そちら側でコピペ迄処理するとかでしょうか。
回答ありがとうございます。
VBA初心者なので(バックグラウンドで開く)ところからつっかえております。
fujillinさんのおっしゃるようにしてみましたが、やはりデータが転記されません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル 値をコピペした時に、条件付き書式で塗られた背景色もペーストさせる 2 2023/04/05 17:21
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) 2つ目のコンボボックスが動作しません。 3 2023/03/25 12:29
- Visual Basic(VBA) VBA 1 2024/02/03 22:51
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAで大量のファイルをシート名ごとに転記やらいろいろしたい!
Visual Basic(VBA)
-
Excelにてある膨大なデータを管理しています。 そこで、特定の市町村にのみ色を付けたいです。 Ex
Excel(エクセル)
-
Excel VBA 選択範囲の罫線色の変更プロージャの動作速度の改善について
Visual Basic(VBA)
-
-
4
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
5
VBA SaveChanges 上書きされない
Visual Basic(VBA)
-
6
VBAについての質問です
Excel(エクセル)
-
7
エクセルで上位バイトのセルと下位バイトのセルを1つのセルにして16進数を作る方法
Excel(エクセル)
-
8
Excelで、10000,20000,30000と表示されているのですが、時々10000,20000
Excel(エクセル)
-
9
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
10
Excel vbaのテキストボックスの扱い
Excel(エクセル)
-
11
Excel-VBAのmsgBox()の不思議
Visual Basic(VBA)
-
12
エクセル関数に詳しい方教えてください
Excel(エクセル)
-
13
Excelにて数式を使用して 工数計算をしたいのですが、 計算方法が分からないので教えて下さい。 1
Excel(エクセル)
-
14
[関数得意な方]教えて下さい・・[困ってます]
Excel(エクセル)
-
15
【マクロ】名前を保存する際に、同じファイルがあった場合に、メッセージを表示
Excel(エクセル)
-
16
エクセル共有したが、アクセスできなくかった
Excel(エクセル)
-
17
【マクロ】顧客番号にて一致させ、情報を表へ上書きする為には
Excel(エクセル)
-
18
一つのセルに(例えばA1)入力された3桁・4桁の数字を並べ替えて同一行のセルに表示させる。
Excel(エクセル)
-
19
エクセルVBA
Visual Basic(VBA)
-
20
vba 削除
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Application.DisplayAlerts =Fa...
-
WorkBooksをオープンさせずにシ...
-
指定ファィルの指定シートをシ...
-
Excel(2010)のフィルターが保...
-
【マクロ】【VBA】別ブックへの...
-
エクセルで50行ごとに区切った...
-
VBAでブックを非表示で開いて処...
-
複数のExcelブックのシート1の...
-
【マクロ】【VBA】同じフォルダ...
-
リンク元ブックのPWが分からな...
-
ブックのピボットを別ブックに...
-
Excelでブックの共有を掛けると...
-
エクセルで参照しているデータ...
-
同じフォルダへのハイパーリン...
-
エクセルで開いていないbookの...
-
VBA バックグラウンドで別ブッ...
-
エクセルファイルを開かずにpdf...
-
複数のブックをひとつのブック...
-
【VBA】特定シート 名前編集・...
-
ブックの保護ができないんです...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルを共有するとPCによっ...
-
VBAでブックを非表示で開いて処...
-
エクセルの関数 ENTERを押...
-
エクセルで参照しているデータ...
-
WorkBooksをオープンさせずにシ...
-
(マクロ)vlookupの元データを同...
-
Excelでブックの共有を掛けると...
-
Excel(2010)のフィルターが保...
-
エクセルで「ディスクがいっぱ...
-
Excelで複数ブックの同一セルに...
-
複数ファイルから特定シートの...
-
エクセルで別ブックをバックグ...
-
エクセルでウィンドウの枠固定...
-
Excelファイルをダブルクリック...
-
フォルダ内の複数ファイルから...
-
エクセルファイルを開かずにpdf...
-
外部ブック参照が#REF!になって...
-
エクセルで複数のシートを別フ...
-
エクセルシートの一部を送りたい
-
エクセルで50行ごとに区切った...
おすすめ情報