作者cutekid (可爱小孩子)
看板Office
标题Re: [问题] VBA dim使用问题
时间Fri Oct 13 09:16:36 2023
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
: 再请各位前辈协助
: 谢谢。
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 180.217.129.59 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1697159798.A.7F1.html
1F：推 happyrun: 谢谢~修正後可以执行了~! 10/13 22:08