(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:
版本:
各位前輩好~
目前學習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
再請各位前輩協助
謝謝。
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 124.6.31.80 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1697120673.A.C2F.html