运用VBA汇总多个工作表时，分表有链接，如何只引用其数值？

mindyzhou · 发表于 2006-9-20 17:19

Dear, 这是我们这个表格设计的遗留问题。

想请教你能实现不管分表引用什么公式（=或vlookup），

汇总表能像paste special一样，完全保留引用的数值吗？

plxmm · 发表于 2006-9-20 17:23

建议：对打开的分表，进行原表单元格复制－－－－选择性粘贴为值，再汇总，对已经汇总的分表工作簿，做不保存关闭来实现。有事情，Dear mindyzhou ，886。

mindyzhou · 发表于 2006-9-20 17:43

100个工作表，每个工作表有7个工作簿，复制-粘贴为值的方法有些笨了。

希望有高手可用VBA解决！期待啊！

爱歌学习 · 发表于 2006-9-20 20:30

ADO汇总-自动去除链接：

Sub total()
    Dim Sql$, strTbl$, i%
    Dim Filename As Variant

    UserForm1.Hide
    Filename = Application.GetOpenFilename("Microsoft Office Excel Files (*.xls), *.xls", , "请选取文件", , True)
    If Not IsArray(Filename) Then Exit Sub      '如果未选取文件，则退出程序

    For i = 1 To UBound(Filename)
        Set cn = CreateObject("ADODB.Connection")
        cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;IMEX=1;HDR=NO';Data Source=" & Filename(i)
        For Each sh In ActiveWorkbook.Worksheets     '对文件中的表遍历
            strTbl = sh.Name                         '当前表的名称
            If strTbl <> "启动汇总" Then
                rowend = ThisWorkbook.Sheets(strTbl).[a65536].End(xlUp).Row + 1
                If i = 1 Then                 '如果是第一个文件，则先做汇总表清空操作
                    [5:10000].ClearContents
                    rowend = 3
                End If
                With UserForm1
                    Sql = "Select * FROM [" & strTbl & "$" & .TextBox1.Text & .TextBox2.Text & ":" & .TextBox3.Text & .TextBox4.Text & "] "
                    ThisWorkbook.Sheets(strTbl).Range(.TextBox1.Text & rowend).CopyFromRecordset cn.Execute(Sql)
                End With
            End If
        Next
        cn.Close                                      '关闭当前文件连接
    Next
    Sheets("2006年1月").Activate
    Set cn = Nothing
    Application.ScreenUpdating = True
End Sub

jXjAcXkg.rar (214.15 KB, 下载次数: 131)

mindyzhou · 发表于 2006-9-21 09:40

万分感谢plxmm和爱歌学习！

我要努力开始学习VBA！

否则真的会被excel累死，呵呵。

[em04]

when123456 · 发表于 2013-7-7 16:28

学习了，谢谢分享

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

[求助] 运用VBA汇总多个工作表时，分表有链接，如何只引用其数值？