| |
VBA初心者です。
変数と定数の定義もあまりよくわからず、これからしっかり勉強していきたいので、よろしくお願いします。
「転記先のwb」を開いている状態です。
行いたい作業は、「このwb」の複数シート（各月でシートにわけています）の
同じセル位置（R90C10、R110C10）から「転記先のwb」のセル（A1、A2〜L1、L2）に転記することです。
「このwb」の名前が変わることがあり、いちいち変更するのが面倒なので
変数にしてしまおうと思いましたが、よくわかりません。
１月スタートではなく、６月スタートになっています。
このシート名も毎回指定するしかないですか？
シート名は「■月（支出）」の「■」の部分が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
よろしくお願いします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
