エクセルマクロに関してです。

Range("G778:J808").Select
Selection.Copy
Windows("表4.xlsm").Activate
ActiveWindow.SmallScroll Down:=-6
Range("A40").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End sub

でやってっるんですけど・・・シート指定したいのですが
エラーになってて困ってます。
Windows("表4.xlsm").Worksheets("Sheet3").Activate
で間違ってますか？？
確実にシート3に移動したいです

No.3 回答者： t_fumiaki 回答日時： 2018/08/10 14:47

我がpcでは問題なく実行出来て、正解になりますケド・・・

"表4.xlsm"と言うエクセルファイル名、合ってます？

この回答へのお礼

あってます(><)
諦めて他の方法にします
ありがとうございました

お礼日時：2018/08/10 15:02

No.2 回答者： t_fumiaki 回答日時： 2018/08/10 13:11

改行になっちゃってるケド、改行なしで

With Windows ("表4.xlsm")です。

この回答へのお礼

それでもエラーになるんです(´;ω;｀)
というか反応しなくなりましたーーー( ;∀;)( ;∀;)( ;∀;)

お礼日時：2018/08/10 14:35

No.1 回答者： t_fumiaki 回答日時： 2018/08/10 11:33

Windows("表4.xlsm").Activate　を

Windows("表4.xlsm").Worksheets("Sheet3").Activate　にしたい？？

ならば
With
Windows("表4.xlsm")
Worksheets("Sheet3").Activate
・
・
End With

この回答へのお礼

Range("O778:R808").Select
Selection.Copy
With
Windows ("表4.xlsm")
Worksheets("Sheet3").Activate
Range("A40").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Withですよね？エラーです(´;ω;｀)

お礼日時：2018/08/10 12:38