[已解决]请高手帮忙修改代码

入伍小兵 · 发表于 2010-4-18 21:09

打开《汇总》表，点宏想把把其他表格中的〈表3〉的内容复制到总表相应表。

如《1月》文档的《Sheet3》内容填写到1月，《2月》文档的《Sheet3》内容填写到2月。之前如已复制则不再复制(即1月、2月…..已存在内容则不复制，是空的需复制）。

以下代码运行打开以下文件发生错误：1月.xls、2月.xls、。。。12月.xls。

请高手帮忙修改，谢谢。

代码如下：

Sub test()
Dim  Msg As String, Sht As Worksheet
For Each Sht In Worksheets
   If Sht.Name = ActiveSheet.Name Or Application.WorksheetFunction.CountA(Sht.Cells) Then GoTo myNext
   On Error Resume Next ' 改变错误陷阱。
Workbooks.Open Filename:=Sht.Name & ".xls", ReadOnly:=True
   '检查打开文件时可能发生的错误。
If Err.Number <> 0 Then '如果某月文件已经打开，也将进入此错误处理，且不复制。
   Msg = Msg & Sht.Name & ".xls" & vbCr
      Err.Clear ' 清除 Err 对象字段。
   GoTo myNext
   End If
Workbooks(Sht.Name & ".xls").Worksheets("sheet3").Cells.Copy Sht.Range("a1")
Workbooks(Sht.Name & ".xls").Close SaveChanges:=False
myNext:
Next
If Msg <> "" Then MsgBox "打开以下文件错误:" & vbCr & Msg, , "错误信息"
End Sub

见附件：
z3kEghex.rar (17.03 KB, 下载次数: 0)

爱疯 · 发表于 2010-4-18 22:20

7FoP94f6.rar (13.7 KB, 下载次数: 1)

入伍小兵 · 发表于 2010-4-18 23:57

请教，在我第一个附件上可以实现，但复制把代码应用时为什么实现不了需要的效果呢？

见附件：

Oixq50hY.rar (47.66 KB, 下载次数: 0)

爱疯 · 发表于 2010-4-19 09:30

rvHKHyLz.rar (24.83 KB, 下载次数: 0)

入伍小兵 · 发表于 2010-4-19 19:11

不好意思，发现问题在那报，已解决，非常感谢。

[此贴子已经被作者于2010-4-19 20:04:58编辑过]

爱疯 · 发表于 2010-4-19 22:11

QUOTE:

以下是引用入伍小兵在2010-4-19 19:11:00的发言：

不好意思，发现问题在那报，已解决，非常感谢。

re0mu2oO.rar (24.83 KB, 下载次数: 1)

入伍小兵 · 发表于 2010-4-19 22:34

对不起。是我搞错了。代码没问题。非常感谢。

		自动登录	找回密码
密码			注册