エクセル（ＶＢＡ）のブック間でのコピーペーストについて

質問

こんにちは。VBA入門レベルのものですが、質問させてください。

ブックＡとブックＢを開いた状態にし、

・ブックＡ⇒ＶＢＡを組む＆データ貼付け先
・ブックＢ⇒データコピー元

ブックＢの特定セル（例：Ｄ１０）からブックＡの特定セル（例：Ｅ１２）にコピー⇒貼付　する方法を探しています。

なお、ブックＢは、ブック名とシート名が都度変わるので、「ブックＡではない方の開いているエクセルファイルからデータをコピーし、ブックＡに貼付ける」の構文にしたいです。
また、コピペの他に数式（イコール）で飛ぶ方式でもかまいません。

この内容でのＶＢＡの記述方法が分かる方、どなたか教えて頂けますでしょうか。
すみませんがよろしくお願いいたします。

※エクセル2003です。

回答No.2

mt2008 · ベストアンサー

ブックBは開いてあり、目的のシートを選択した状態になっているとの前提でいいですね。

以下にサンプルを示しますので参考にしてください。
内容はソース中のコメントを見てください。

Sub Sample()
　Dim wbk As Workbook

　'自ブック以外なければ終了
　If Workbooks.Count = 1 Then
　　MsgBox ("ブックBなし")
　　End
　End If

　'自ブック(ブックA）以外のブックを探す。
　sFindbook = ""
　For Each wbk In Workbooks '開いているBook分ループを回す
　　If wbk.Name <> ThisWorkbook.Name Then '自ブック（ブックA）は除外
　　　sFindbook = wbk.Name '自ブック以外のブック名取得
　　　Exit For　 'ブックが１つ見つかったらループを抜ける
　　End If
　Next wbk

　Windows(sFindbook).Activate '見つけたブックをアクティブに
　'発見ブックのアクティブシートの特定セル(D10)の値を自ブックの1シート目の特定セル（E12)にコピー
　ThisWorkbook.Sheets(1).Range("E12") = ActiveWindow.ActiveSheet.Range("D10")

End Sub

お礼

うまく実行できました！
構文の意味まで丁寧に記述していただき、分かりやすかったです。
ありがとうございました。

回答No.4

rivoisu

VBAのコードのあるbookは　thisworkbook　になります
。
ブックBを開くのもマクロの中でするには
下記のコードで通常の「ファイルを開く」の窓が開いてユーザーが選択できます

fname = ""
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = FLDname
.AllowMultiSelect = False
If .Show = True Then
fname = .SelectedItems(1)
End If
End With

*FLDnameに選ぶファイルの初期フォルダ名を入れます
Fnameに選択されたファイル名がフルパスで入ります。
のでFnameを使ってOpenすればその時点でブックBはactiveworkbookになります。

workbooks.open(Fname)

お礼

ブックを開く操作まで教えていただき、ありがとうございました。
応用編として今後使わせていただきます。

回答No.3

myRange

コードの書き方はいくつもありますが、
VBA入門レベルということなのでオーソドックスなのをひとつ。。

'---------------------------------------------------
Sub Test()
　Dim N As Integer　　'コピー元ブックのINDEX

　N = 1
　If Workbooks(1).Name = "ブックＡ.xls" Then
　　　N = 2
　End If

　Workbooks("ブックＡ.xls").Sheets("Sheet1").Range("E12").Value = _
　Workbooks(N).Sheets("Sheet1").Range("D10").Value

End Sub

'---------------------------------------------------

見ればわかると思いますが、
ブックＡでないのがコピー元のブックと判断してます。
また、ブックＡはThisWorkbookでも表わすことができます。
以上です。

お礼

実行できました！
ありがとうございました。

ちなみにブックＡの名前も変わる場合は、
どのように変更すればよいですか？

　Workbooks("ブックＡ.xls")　は　Thisworkbook　でうまくいきましたが、

　N = 1
　If Workbooks(1).Name = "ブックＡ.xls" Then
　　　N = 2
の方がわかりません。
申し訳ありませんが、お時間あるときにでも教えていただけますでしょうか。

回答No.1

bluestreak

ブックBを開くのもブックAにマクロを組んでブックBの名前を変数に格納しておく必要があるのではないかと思います。
間違ってたらごめんなさい。

お礼

ご回答ありがとうございました。
今回のケースはＡもＢも既に開いていることが前提ですので、開く操作は無くとも大丈夫です。
お忙しい中申し訳ございませんでした。