Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


128 / 75189 ←次へ | 前へ→

【80709】別ブックの複数シートのセルから、別ブックへ転記するときのコード
質問  ちっちきち  - 19/4/19(金) 13:55 -

引用なし
パスワード
   VBA初心者です。
変数と定数の定義もあまりよくわからず、これからしっかり勉強していきたいので、よろしくお願いします。


「転記先のwb」を開いている状態です。

行いたい作業は、「このwb」の複数シート(各月でシートにわけています)の
同じセル位置(R90C10、R110C10)から「転記先のwb」のセル(A1、A2〜L1、L2)に転記することです。


「このwb」の名前が変わることがあり、いちいち変更するのが面倒なので
変数にしてしまおうと思いましたが、よくわかりません。


1月スタートではなく、6月スタートになっています。
このシート名も毎回指定するしかないですか?
シート名は「■月(支出)」の「■」の部分が6月始まりの5月終わりです。


「このwb」の複数シート(各月でシートにわけています)の
同じセル位置(R90C10、R110C10)も変わるかもしれないので
ここも変数に置き換えたいです。

※変えるときは全てのシートの位置を変えますので、(R●C▲、R●C▲)は常に一緒です。


以下、作ってみたのですが、
「オブジェクトは、このプロパティまたはメソッドをサポートしていません」とでます。


Sub 読込()


  Workbooks.Open Filename:= _
  "Y:\〇〇\××\△△\◇◇\このwb.xlsm" , UpdateLinks:=3
    
  Dim wb As Workbook
    Set wb = Workbooks("このwb.xlsm")
    
  Windows("転記先のwb.xlsm").Activate
  
  Range("A1").Select
  ActiveCell.FormulaR1C1 = wb.Sheets("6月(支出)").R90C10
  Range("A2").Select
  ActiveCell.FormulaR1C1 = wb.Sheets("6月(支出)").R110C10
 
  Range("B1").Select
  ActiveCell.FormulaR1C1 = wb.Sheets("7月(支出)").R90C10
  Range("B2").Select
  ActiveCell.FormulaR1C1 = wb.Sheets("7月(支出)").R110C10

  .
  .
  .
  .

  Range("L1").Select
  ActiveCell.FormulaR1C1 = wb.Sheets("5月(支出)").R90C10
  Range("L2").Select
  ActiveCell.FormulaR1C1 = wb.Sheets("5月(支出)").R110C10
    
  Windows("このwb").Activate
  ActiveWorkbook.Save
  ActiveWindow.Close
  

  MsgBox "転記が完了しました。"

End Sub


よろしくお願いします。
44 hits

【80709】別ブックの複数シートのセルから、別ブックへ転記するときのコード ちっちきち 19/4/19(金) 13:55 質問[未読]
【80712】Re:別ブックの複数シートのセルから、別ブ... マナ 19/4/19(金) 19:31 発言[未読]

128 / 75189 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free