
同じファイルにアクティブになるブックとデータ取得のためのブックが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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
エクセルで別ブックをバックグラウンドでオープンする方法
Excel(エクセル)
-
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
-
4
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
5
Excelマクロをバックグラウンドで動かす方法
Excel(エクセル)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
ExcelのVBマクロを、バックグラウンドで動かしたいのです。
Visual Basic(VBA)
-
8
参照元Excelファイルをバックグラウンドで開く方法
Excel(エクセル)
-
9
VBA 別ブックからコピペしたいのですが、軽くしたいです
Visual Basic(VBA)
-
10
バックグラウンドのプロセスのエクセルを閉じる方法
Visual Basic(VBA)
-
11
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
12
EXCELをバックグラウンドで実行するには
Excel(エクセル)
-
13
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
14
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
15
【Excel VBA】マクロでExcel自体を終了させたい
Excel(エクセル)
-
16
エクセルのvbaにて thisworkbookに記載のマクロを他のブックにマクロにて自動コピー出来る
Excel(エクセル)
-
17
別ブックをダイアログボックスで指定してそこにあるシートをコピーしたい
Excel(エクセル)
-
18
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
19
Excelでマクロ実行中に画面を固定する方法
Visual Basic(VBA)
-
20
ExcelVBAのユーザーフォームの中に線を引きたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで複数ブックの同一セルに...
-
VBAでブックを非表示で開いて処...
-
ブックを開いた時にいつも同じ...
-
【マクロ】アクティブセルの時...
-
Excelで指定範囲のデータ...
-
Excelファイルをダブルクリック...
-
WorkBooksをオープンさせずにシ...
-
エクセルを開くと最大化などの...
-
beckyに届いたメールをエクセル...
-
指定ファィルの指定シートをシ...
-
Excelでブックの共有を掛けると...
-
【ExcelVBA】同一フォルダ内の...
-
Excelでワークシートが挿入でき...
-
エクセルの関数 ENTERを押...
-
「ブックの共有」を有効にして...
-
同じフォルダへのハイパーリン...
-
EXCELで複数のブックの特定のセ...
-
エクセルにおける,「ブック」...
-
Excelの警告について
-
あなたの自慢はなんですか?僕...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【マクロ】アクティブセルの時...
-
エクセルの関数 ENTERを押...
-
VBAでブックを非表示で開いて処...
-
エクセルを共有するとPCによっ...
-
WorkBooksをオープンさせずにシ...
-
エクセルで参照しているデータ...
-
Excelファイルをダブルクリック...
-
Excelでブックの共有を掛けると...
-
「ブックの共有」を有効にして...
-
Excel(2010)のフィルターが保...
-
Excelの新しい空白のブックを開...
-
同じフォルダへのハイパーリン...
-
フォルダ内の複数ファイルから...
-
エクセルで別ブックをバックグ...
-
別ブックから入力規則でリスト...
-
ブックのピボットを別ブックに...
-
エクセルでウィンドウの枠固定...
-
エクセルにおける,「ブック」...
-
Excelで複数ブックの同一セルに...
-
Excelで指定範囲のデータ...
おすすめ情報