作者boral (完备性)
看板Visual_Basic
标题[VBA ] 关於worksheets复制贴上的问题
时间Mon Mar 19 00:37:26 2012
Sub 开启档案()
Dim folder_name As String
Dim file_name As String
Dim report_time As Date
report_time = Workbooks("test1").Worksheets("Sheet1").Range("A1").Value
folder_name = Format(report_time, "yyyymm")
file_name = Format(report_time, "yyyymmdd")
Workbooks.Open Filename:="C:\Users\Administrator\Desktop\VBA\" &
folder_name & "\国内02A" & file_name & ".xls"
Workbooks("国内02A" & file_name).Worksheets("国内02A" &
file_name).Cells.Copy
Workbooks("test1").Worksheets("Sheet2").Paste
Workbooks("国内02A" & file_name).Close
End Sub
上面是我写的VBA code(Excel 2007)
不过在 Workbooks("test1").Worksheets("Sheet2").Paste
会发生错误,产生class worksheet的Paste方法错误
我上网去查很多网站都是这样教的 是否是因为在2007上所以会产生此类错误?
再麻烦大大解答一下了 感谢!!
--
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 114.24.122.72
1F：→ bulldog:先Activate 03/19 15:22