前提・実現したいこと
VBAの学習を初めて理解していない点があるのですが。
BookA.xlsから今回作成予定のBookB.xlsmにデータのコピーと貼り付けを行いたいと考えています。
また、繰り返し処理で行いたいと考えています。
BookA.xlsのセル"B10"をBookB.xlsmの"C5"に入れる
BookA.xlsのセル"B11"をBookB.xlsmの"C6"に入れる
BookA.xlsのセル"B12"をBookB.xlsmの"C7"に入れる
・
・
・
BookA.xlsのセル"Bx"の値が空白ならば繰り返し終了
発生している問題・エラーメッセージ
'Range'メソッドは失敗しました:'_Worksheet'オブジェクト
該当のソースコード
VBA
1Sub Execution() 2 3 Dim wFile As String 4 Dim i As Integer 5 6 Dim Sheet1 As Worksheet 7 Dim Sheet2 As Worksheet 8 9 '画面の描画オフ 10 Application.ScreenUpdating = False 11 12 'パスを取得 13 wFile = Range("F2").Value 14 'ファイルを開く 15 Workbooks.Open wFile 16 17 '設定 18 i = 1 19 20 Set Sheet1 = Workbooks("BookA.xlsx").Worksheets("sheet1") 21 Set Sheet2 = Workbooks("BookB.xlsm").Worksheets("sheet1") 22 23 24 Do While Cells(i + 9, "B").Value <> "" 25 Sheet2.Range(i + 4, "C").Value = Sheet1.Range(i + 9, "B").Value 26 i = i + 1 27 28 Loop 29 30 31 '描画オン 32 Application.ScreenUpdating = True 33 34 'ファイルクローズ 35 Excel.Application.CutCopyMode = False 36 ActiveWorkbook.Close SaveChanges:=False 37 38 39End Sub
試したこと
知識が浅く、具体的な方法を見つけられていません。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/07/03 08:33