把汇总表里的值赋给分表

tmp1

把汇总表里的值赋给分表

把汇总表里的销量自动，填到每个分公司的02表的G11单元格


请问如何写宏代码？


例子.rar (23.21 KB, 下载次数: 12)

2015-11-4 15:07 上传

点击文件名下载附件

zhaogang1960

如果每个工作簿的02工作表F11原来使用过，可用ADO法更新，速度很快：

1. Sub ADO更新()
   
2.     Dim arr, i&, cnn As Object, SQL$, p$, f$
   
3.     p = ThisWorkbook.Path & ""
   
4.     arr = [a1].CurrentRegion
   
5.     For i = 2 To UBound(arr)
   
6.         f = Dir(p & arr(i, 1) & ".xlsx")
   
7.         If f <> "" Then
   
8.             Set cnn = CreateObject("ADODB.Connection")
   
9.             cnn.Open "Provider=Microsoft.ace.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=No';Data Source=" & p & f
   
10.             SQL = "update [02$f11:f11] set f1=" & arr(i, 2)
    
11.             cnn.Execute SQL
    
12.         End If
    
13.     Next
    
14.     cnn.Close
    
15.     Set cnn = Nothing
    
16. End Sub
    

复制代码

zhaogang1960

请测试附件
例子.rar (32.44 KB, 下载次数: 28)

2015-11-4 15:45 上传

点击文件名下载附件

liulang0808

Sub 按钮1_Click()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set fso = CreateObject("scripting.filesystemobject")
    arr = [a1].CurrentRegion
    For j = 2 To UBound(arr)
        flpth = ThisWorkbook.Path & "\" & arr(j, 1) & ".xlsx"
        If fso.fileexists(flpth) Then
            With Workbooks.Open(flpth)
                .Sheets("02").[g11] = arr(j, 2)
                .Save
                .Close False
            End With
        End If
    Next j
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

liulang0808

看看是否满足需求。。。。

tmp1

liulang0808 发表于 2015-11-4 15:48
看看是否满足需求。。。。

好厉害，谢谢

LMY123

SQL = "update [02$f11:f11] set f1=" & arr(i, 2)