VBAプログラムが「計測ファイル」に書かれていると想定して、ファイル「A」()が既に開かれている状態で実行されるVBAのコードは以下のようになります。
VBA
1Sub ブック間のデータコピー()
2 Dim wb_A as workbook, wb_B as workbook
3 Dim ws_A_Saidai as worksheet, ws_B_Ichiran as worksheet
4
5 '使用するブック、シートを変数に設定する。
6 set wb_A = ActiveWorkbook
7 set wb_B = workbooks.open("B.xlsx")
8 set wb_A_Saidai = worksheets("最大値")
9 set wb_B_Ichiran = wb_b.worksheets("一覧表")
10
11 'Aからコピー
12 ws_A_Saidai.Activate '最大値シートをActiveにする
13 Range("A2").Select '最大値の最初の項目が入っているセルを選択。A2は実際のシートに合わせて変更が必要
14 Selection.Copy
15
16 'Bにペースト
17 wb_B.Activate '別ファイルに移って
18 ws_B_Ichiran.Activate '集計表シートをActivate
19 Range("C2").Select '最大値の最初の項目が入っているセルを選択。C2は、実際のシートに合わせて変更が必要
20 ActiveSheet.Paste
21
22 wb_A.Activate '元のブックに戻る
23End Sub
24
これで、画像が挿入されているセルがうまくコピーされないのなら、以下のチェックをしてみてください。
1)AファイルのA2セルに数値や文字列などのデータを入力しておいて、VBAを実行してみてください。
結果 NG: Bファイルのセルは空白のまま
VBAのプログラムに問題があります。(申し訳ありませんが、コードを見直して下さい)
結果 Positive : Bファイルのセルにデータが入っているが、画像は見当たらない。
これは、画像が元のセルに挿入されていないからだと考えられます。次のチェックをしてみてください。
- Excelの画面で画像の場所は自由に動かせますので、画像の下に見えているセルがその画像が挿入されているセルと異なる場合があります。セルをコピーすれば、そのセルに挿入された画像もコピーされますが、元のセルの上に見えているだけ(別のセルに挿入されている)の画像はコピーされません。
そこで、Aファイルの最大値シートのA2セルに下記URLなどを参考にして、画像の挿入をしてください。
http://www.slownet.ne.jp/sns/area/pc/reading/pc_lesson/200611101627-1000000.html
そして、VBAを実行してみてください。
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2015/11/13 03:23
2015/11/13 04:59
2015/11/13 08:17