自动化错误

微笑12345

1. Sub Macro1()
   
2.     Dim MyPath$, MyName$
   
3.     Dim target As Workbook
   
4.     Dim Source As Workbook
   
5.     Dim name1 As String
   
6.     Dim x As Integer
   
7.     Dim y As Integer
   
8.     Application.ScreenUpdating = False
   
9.    
   
10.     MyPath = "D:\工作文档\学习资料\excel表格\2018 实测"
    
11.     MyName = Dir(MyPath & "*.xls*")
    
12.    
    
13.     name1 = "D:\工作文档\学习资料\excel表格\2018 实测\hisdatatest.xlsx"
    
14.     Set target = Workbooks.Open(name1)
    
15.    
    
16.     Do While MyName <> ""
    
17.            If MyName <> "hisdatatest.xlsx" Then
    
18.             Set Source = Workbooks.Open(MyPath & MyName)
    
19.             
    
20.             Call hisdata
    
21.             
    
22.             Source.Activate  'Source原来不是活动工作表，需要先变成活动工作表
    
23. 
    
24.             Source.Sheets("sheet3").Range("a1", Range("a1").End(xlDown).Offset(1, 3)).Copy
    
25.             
    
26.             
    
27.             target.Sheets(3).Activate
    
28.             x = target.Sheets("sheet3").Range("A65536").End(xlUp).Row
    
29.             
    
30.             For i = 1 To x + 1
    
31.             If target.Sheets("sheet3").Range("a" & i) = "" Then
    
32.             y = i
    
33.             End If
    
34.             Next
    
35.             
    
36.             'Application.Goto Sheets(1).Range("A1")
    
37.             target.Sheets("sheet3").Range("a" & y).Select
    
38.             Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
39.                 :=False, Transpose:=False
    
40.          
    
41.             Source.Close False
    
42.              End If
    
43.             MyName = Dir
    
44.            
    
45.         Loop
    
46.           target.Close True
    
47.     Application.ScreenUpdating = True
    
48.     MsgBox "ok"
    
49. End Sub

复制代码

mikideyuq

微笑12345 发表于 2018-9-21 22:05

感谢回复，虽然不报错了，但数据并没有复制到target表里，不知是哪出了问题，我是新手
跨工作簿复制粘贴数据很难么。。。

微笑12345

这种汇表其实挺简单，只是你不给附件，不知道你数据是什么样的，要达到的是什么目的，只能根据你给的代码去猜测。
1、数据汇总在D:\工作文档\学习资料\excel表格\2018 实测\hisdatatest.xlsx的sheet3，其他表格也在这个
     路径
2、代码放在不同路径的任意位置（只要不同路径就行）
3、  Call hisdata 执行过程中调用了hisdata过程是什么我不知道

微笑12345

我只是简单模拟了2个表，随便填的数据，是可以汇总的