SQL+数据透视表+VBA 使数据透视表走向更灵活，更智能，更适用。
这个是我和师傅一撇首度合作，他提供了文件并提出了要求，我帮他实现其效果
下面从几个方面解释一下：

1、功能
一个源文件和一个通过用SQL查询生成的数据透视表
将源文件拖到电脑的任意位置，甚至将文件名也改掉，用VBA配上代码和窗体找到文件，数据透视表仍然能够正常工作
2、套用
现在来讲讲怎么使做出来的东东适应大家的需要
2、1
用OLE DB窗口引用工作表或写SQL语句，因为用这个方法同VBA相通，copy下来代码区的的语句
2、2
打开透视表文件，将透视表中的字段全部拖出来，也就是变成一个空数据透视表。
右击下面工作表图标 或者 工具》宏》visual basic 编辑器，点击模块看到代码区
2、3
将2、1步骤copy的语句commandtext的数据Array中的引号中
.CommandText = Array("    ")
可能不同版本会有一些差别，同时SQL语句中如果添加了文本生成新字段，双引号要成对翻倍
如："出库" AS 表单选项 要改成 ""出库"" AS 表单选项
2、4
语句太长的处理：在代码区如果你想好看一些，你可以插入“ _”来换行，当然不能插在一个单词或自动名等中间。
2、5
将文件存盘，重新打开就会有了数据，你可以将字段拖入数据透视表中，创建你自己的数据透视表，
2、6
这样文件就可以使用，相信VBA的引导不用教就可以交给别人使用了

下面附上代码，包含3个区：

1、 工作簿去，打开文件时工作
Private Sub Workbook_Open()
Dim OP

If Dir(Sheets("path").Range("A1")) = "" Then
    OP = MsgBox("源文件已被移走，请选择下列选项" + Chr(10) + "1、选择是，重新输入文件全名" + Chr(10) + "2、选择否，打开原有的数据透视表" + Chr(10) + "3、选择取消，关闭文件", vbYesNoCancel, "Scarlett温馨提示")
    If OP = vbYes Then
        UserForm1.Show
    End If
    If OP = vbNo Then
        ActiveWorkbook.Close True
    End If
   
    If OP = vbCancel Then
        Exit Sub
    End If
   
Else
    Call refreshpv
End If
End Sub

2、窗体区，实现文件的查找
Private Sub CommandButton1_Click()
Dim fopen As FileDialog
Set fopen = Application.FileDialog(msoFileDialogFilePicker)
fopen.Show
TextBox1.Value = fopen.SelectedItems(1)
Set fopen = Nothing
End Sub

Private Sub CommandButton2_Click()
If InStr(TextBox1.Value, ".") > 0 Then
    Sheets("path").Range("A1") = TextBox1.Value
    Call refreshpv
    unload me
Else
    MsgBox "文件名要带路径含后缀的文件名", "Scarlett_88温馨提示"
    TextBox1.SetFocus
End If
End Sub

Private Sub CommandButton3_Click()
Unload Me
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Activate()

End Sub

Private Sub UserForm_Click()
TextBox1.Value = Sheets("path").Range("A1")
End Sub