Workbook.ActiveSheetのランタイムエラー9（下付き文字）Workbook.ActiveSheet

Question

私は、あるブックから別のブックに値をコピーするのにuserformを使用しています。

私のVBAのコピー部分はこれです：Set targetColumn = Workbooks("B").ActiveSheet.Columns("A")で範囲外の添字：私はランタイムエラー9を取得しています

If Form.ComboBox2.Value <> "" Then 
    Set sourceColumn = wb.Worksheets(cmb).Columns("B") 
    Set targetColumn = Workbooks("B").ActiveSheet.Columns("A") 
    sourceColumn.Copy Destination:=targetColumn 

。

私はVBAでのnoobと読書アップだ私は、これはtargetColumnイマイチの値を取得することを意味することを実感しました。私はなぜ思ったのだろう。これで何がうまくいかないのですか？

Answer 1

デバッグのヒント：Set targetColumn = Workbooks("B").ActiveSheet.Columns("A")

dim aaa as object 
Set aaa = Workbooks("B") 
Set aaa = Workbooks("B").ActiveSheet 

前にこれらの行で

プット、もう1つは、今失敗する

再び

をあなたのコードを実行しますか？