Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1673 / 76734

←次へ　｜　前へ→


	【80709】別ブックの複数シートのセルから、別ブックへ転記するときのコード

ちっちきち - 19/4/19(金) 13:55 -


	引用なし

	パスワード

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

よろしくお願いします。

3 hits

▼

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