Sub test()
Dim wb As Workbook, sh1 As Worksheet
Set wb = Workbooks("A")
Set sh1 = wb.Worksheets("C")
Workbooks.Open Filename:=Range("C36").Value & "\" & Range("D36").Value
Sheets("工作表3").Range("A:E").copy Destination:=sh1.Range("A1")
End Sub
※ 引述《happyrun (小黃)》之銘言：
: (若是和其他不同軟體互動之問題 請記得一併填寫)
: 軟體:
: 版本:
: 各位前輩好~
: 目前學習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
: 再請各位前輩協助
: 謝謝。