(若是和其他不同软件互动之问题 请记得一并填写)
软件:
版本:
各位前辈好~
目前学习VBA使用dim的方式遇到问题想请教
原本可执行程式码如下
sub()
Workbooks.Open Filename:=Range("C36").Value & "\" & Range("D36").Value
Sheets("工作表3").Range("A:E").copy Destination:=Workbooks("A").
Worksheets("C").Range("A1")
end sub
后来修正后如下，结果却无法执行
Sub test()
Dim wb As Workbook, sh1 As Worksheet
Set wb = Workbooks("A")
Set sh1 = Worksheets("C")
Workbooks.Open Filename:=Range("C36").Value & "\" & Range("D36").Value
Sheets("工作表3").Range("A:E").copy Destination:=wb.sh1.Range("A1")
End Sub
再请各位前辈协助
谢谢。