VBA コピー＆ペースト

質問

次の作業をVBAでマクロを組みたいのですが、どのような構文にすればよいでしょうか。VBA初心者のため、お知恵を拝借させてください。

[目的]
1.ブックA(コピー先)に設定したハイパーリンク先のブックB(コピー元)へジャンプ
2.ブックBへジャンプ後、特定のセルの値をコピー
3.コピーした値をブックAの特定セルへペースト
4. 1.～3.の作業をリピート
対象は、上の作業が未完(ブックAのペースト先のセルがブランク)のもの

[詳細]
・ブックB(リンク先)の保存先はサーバー
・リンク先はブックBの特定のシート
・ブックAで設定したハイパーリンクのセルの値がリンク先のシート名
・ブックBは複数、リンク先のシートも複数(ハイパーリンクごとにリンク先が異なる)
・ブックBにはマクロが設定、開くたびにマクロ有効無効のメッセージ(Excel2003のため)
・コピペする項目は3つ
・ブックA,Bともに開いた状態で、2.～4.のリピートというマクロでも構いません。

以上ですが、他に情報が必要でしたらお申しつけください。
よろしくお願いいたします。

回答No.5

daredakisama · ベストアンサー

一応、適当ですが見本。
見比べてみましょう。

Sub test()
Dim i As Long
Dim ThisBook As Workbook, LinkBook As Workbook

Set ThisBook = ActiveWorkbook

For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
If ThisBook.Sheets("シート名").Cells(i, 3) <> "" Then
Cells(i, 1).Hyperlinks.Item(1).Follow
Set LinkBook = ActiveWorkbook

ThisBook.Sheets("シート名").Cells(i, 11).Value = LinkBook.Sheets("シート名").Range("C13").Value
ThisBook.Sheets("シート名").Cells(i, 12).Value = LinkBook.Sheets("シート名").Range("H6").Value
ThisBook.Sheets("シート名").Cells(i, 13).Value = LinkBook.Sheets("シート名").Range("G13").Value

LinkBook.Close SaveChanges:=False
End If
Next
End Sub

必要なところは補完してください。
その上で、まだ必要なら質問ください。
きっと、親切なみなさんが答えてくれますよ。

お礼

見本を作成いただきありがとうございます！補完して完成しました！
もっと勉強が必要ですね。懲りずに頑張ってみます。

回答No.4

daredakisama

何と言うか、添削がどうのこうの以前に基本から。

> 参照が不正となります。
変数を使う前に「どんなデータなのか」を宣言しないといけません。
例えば　sFindbook = ""　とありますが、この変数は何？ってのがVBAにはわからないので。

> Exit For
を使うと、繰り返し処理から抜けてしまいます。
繰り返したいなら、For～Nextの間に処理を書きます。
　　For i = 1 To LastRow
　　　　If 条件 Then
　　　　　　～処理～
　　　　End IF
　　Next i
が基本形です。

お礼

ご指摘もいただきありがとうございます。
つぎはぎで作ったものなので、Exit Forを除いて処理を繋げる部分で苦慮していました。
変数の宣言ももう少し勉強します。

回答No.3

daredakisama

なるほど、そのマクロを「作れ」ってことですね？
それは無理な注文ですね。

「マクロの記録」でＷＥＢ検索してみましょう。

お礼

ありがとうございます。そうですね、いくら初心者といえ他力本願すぎたと反省してます。
補足にたたき台の構文を載せましたので、アドバイスいただければ幸いです。

回答No.2

FEX2053

ブック名やブックのホルダ名、セルの位置が指定されて
いないので、コードが書けないんですが、別にブックBは
開かなくていいんじゃないですか？

例えば、ブックAの必要なセルに

Selection.Formuta = "='ブックBのパス[ブックBのブック名]ブックBのシート名'!$A$1"

とすれば、ブックBのセルA1のデータを引っ張ってこられます。

補足

早速のご回答ありがとうございます。あえてブックBは開く必要はありませんのでSellectionFomulaでもいいのですが、対象が100件超ありブック名もシート名も変動しますので、VBAのほうが効率的かと考えています。

つぎはぎで以下の構文まで作成しています。最後のEnd Ifの次にNext iを加えて、次の空白セル以降も同じ作業をリピートしたいのですが、変数の参照が不正となります。
実行の条件を、Cells(i,3)が空白の場合にリンク先からコピペとしたいのです。
よろしくお願いします。

Sub test()
Dim i, LastRow As Long
LastRow = Cells(Rows.Count, 3).End(xlUp).Row
For i = 2 To LastRow
If Cells(i, 3).Value = "" Then
Cells(i, 2).Hyperlinks.Item(1).Follow
Application.EnableEvents = False
Exit For
End If
Next
sFindbook = ""
For Each wbk In Workbooks
If wbk.Name <> ThisWorkbook.Name Then
sFindbook = wbk.Name
Exit For
End If
Next wbk
Windows(sFindbook).Activate
ThisWorkbook.Sheets("ブックAのシート名").Cells(i, 11) =
ActiveWindow.ActiveSheet.Range("C13")
ThisWorkbook.Sheets("ブックAのシート名").Cells(i, 12) =
ActiveWindow.ActiveSheet.Range("H6")
ThisWorkbook.Sheets("ブックAのシート名").Cells(i, 13) =
ActiveWindow.ActiveSheet.Range("G13")
ActiveWindow.Close
End Sub

回答No.1

masatsan

マクロで記録して編集すればよいですよ。

お礼

早速のご回答ありがとうございます。
マクロで記録できればいいのですが、ブック名やシート名が変わるので単純な記録では対応できませんでした。