一簿中多表创建透视表的练习

OKJSJSF

联合查询有时要用  表名、双引号及逗号，有时确不要。？

OKJSJSF

OKJSJSF

dim MyData As DataObject
set MyData = New DataObject
MyData.SetText "指定的文字内容"
MyData.PutInClipboard

OKJSJSF

以下代码把连接属性的命令文本放进剪切板，按粘贴快捷键 Ctrl V 即可粘进连接属性中，省去手工编写。
Sub Macro1()
    Dim sh As Worksheet
    Dim SQL$
    For Each sh In Worksheets
        If sh.Name <> ActiveSheet.Name Then      '排除当前工作表，如果全部都要，去掉本If语句
            If SQL <> "" Then SQL = SQL & " union all "
            SQL = SQL & "select """ & sh.Name & """ , * from [" & sh.Name & "$]"
'            SQL = SQL & "select * from [" & sh.Name & "$]"
        End If
    Next
    MsgBox SQL
    Dim obj As Object
    Set obj = CreateObject("Wscript.Shell")
    obj.Run "cmd /C echo|set/p=" & SQL & "| CLIP", 2
End Sub

OKJSJSF

以下代码把连接属性的命令文本放进剪切板，按粘贴快捷键 Ctrl V 即可粘进连接属性中，省去手工编写。
Sub Macro1()
    Dim sh As Worksheet
    Dim SQL$
    For Each sh In Worksheets
        If sh.Name <> ActiveSheet.Name Then      '排除当前工作表，如果全部都要，去掉本If语句
            If SQL <> "" Then SQL = SQL & " union all "
            SQL = SQL & "select """ & sh.Name & """ , * from [" & sh.Name & "$]"
'            SQL = SQL & "select * from [" & sh.Name & "$]"
        End If
    Next
    Dim MyData As DataObject
    Set MyData = New DataObject
    MyData.SetText SQL
    MyData.PutInClipboard
End Sub
这个代码比上楼更简单，不使用DOS命令。

OKJSJSF

如果把SQL字符串（变量）写进单元格，再复制进剪贴板，则无法粘贴进“连接属性”模态窗体的文本框中。

OKJSJSF

一个人在裸奔，有诗为证：红军不怕远征难，万水千山只等闲！

OKJSJSF

OKJSJSF

今天才发现，微软截图可以不另存而直接复制粘贴进本坛贴子中，如上楼。

OKJSJSF