SQL、数据透视表等外连数据经常遇到的几个问题，

喊麦+空间制作30

应该有好些人遇到这问题吧，第二个可能最普遍，又是什么原因造成的呢，求解


1、刷新时老弹出这个是什么情况，路径跟文档名一模一样呢

数据文件：未找到 "E:\XX公司2014\数据源\出库.xls" 。
希望连接到 "E:\XX公司2014\数据源\出库.xls 来代替吗？





2、还有SQL连接新建时，数据透视表新建时老弹出这个窗口
这又是神马情况？





3、数据透视表刷新时，必须先WIND键+D一下，才能刷新，但WIND键+D后，鼠标放到数据透视表里刷新就卡顿了，类似假死，只可以操作关闭，最下化等按钮，其它无反应，
保存关闭后再打开发现表已被刷新。应该非电脑配置问题，4G内存，因特尔I5-4570U，文件也不大

张雄友

第一个问题：

1. '适用于本工作簿中所有工作表的SQL查询表，透视表采用引入外部数据方式对本工作簿中的连接
   
2. '适应路径和文件名更改,但基本上不适用于SQL语句中带有路径名或文件名的情形，也不适用于引入其他工作簿的情形。
   
3. Sub SQL表透视表适应路径和文件名更改()
   
4. Dim strCon As String, iPath As String
   
5. Dim i As Integer, j As Integer, iFlag As String, iStr As String
   
6. Dim iT As Integer, jT As Integer
   
7. Dim Sht As Worksheet
   
8. '定义变量
   
9. iPath = ActiveWorkbook.FullName '获取当前活动工作簿的完全路径
   
10. On Error Resume Next
    
11. For Each Sht In ActiveWorkbook.Worksheets
    
12. 
    
13. 'SQL查询表的处理
    
14. i = Sht.QueryTables.Count
    
15. If i > 0 Then
    
16. For j = 1 To i
    
17. strCon = Sht.QueryTables(j).Connection
    
18. '将当前活动数据透视表中缓存连接信息赋值给变量strCon
    
19. Select Case Left(strCon, 5) 'select case语句,条件为strCon变量中从左侧取5个字符
    
20. Case "ODBC;" '判断缓存连接信息中的数据连接方式,如果是ODBC方式
    
21. iFlag = "DBQ=" '将"DBQ=" 赋值给变量iFlag
    
22. Case "OLEDB" '判断缓存连接信息中的数据连接方式,如果是OLEDB方式
    
23. iFlag = "Source=" '将"DBQ=" 赋值给变量iFlag
    
24. Case Else '没有引入外部数据或其他方式，不予处理
    
25. Exit Sub
    
26. End Select
    
27. iStr = Split(Split(strCon, iFlag)(1), ";")(0) '在变量strCon中截取文件路径信息
    
28. With Sht.QueryTables(j) '替换SQL查询表中缓存信息中的文件完全路径
    
29. .Connection = VBA.Replace(strCon, iStr, iPath)
    
30. .CommandText = VBA.Replace(.CommandText, iStr, iPath)
    
31. End With
    
32. Next j
    
33. End If
    
34. 
    
35. '数据透视表的处理
    
36. iT = Sht.PivotTables.Count
    
37. If iT > 0 Then
    
38. For jT = 1 To iT
    
39. strCon = Sht.PivotTables(jT).PivotCache.Connection
    
40. '将当前活动数据透视表中缓存连接信息赋值给变量strCon
    
41. Select Case Left(strCon, 5) 'select case语句,条件为strCon变量中从左侧取5个字符
    
42. Case "ODBC;" '判断缓存连接信息中的数据连接方式,如果是ODBC方式
    
43. iFlag = "DBQ=" '将"DBQ=" 赋值给变量iFlag
    
44. Case "OLEDB" '判断缓存连接信息中的数据连接方式,如果是OLEDB方式
    
45. iFlag = "Source=" '将"DBQ=" 赋值给变量iFlag
    
46. Case Else '没有引入外部数据或其他方式，不予处理
    
47. Exit Sub
    
48. End Select
    
49. iStr = Split(Split(strCon, iFlag)(1), ";")(0) '在变量strCon中截取文件路径信息
    
50. With Sht.PivotTables(jT).PivotCache '替换据透视表缓存信息中的文件完全路径
    
51. .Connection = VBA.Replace(strCon, iStr, iPath)
    
52. .CommandText = VBA.Replace(.CommandText, iStr, iPath)
    
53. End With
    
54. Next
    
55. End If
    
56. Next
    
57. End Sub
    
58. 
    
59. 
    
60. Private Sub Workbook_Open()
    
61. Call SQL表透视表适应路径和文件名更改
    
62. End Sub
    

复制代码

张雄友

第三个问题：SQL 即使你关闭了，还在后台处理。更何况你现在只是刷新，等待结束再做。我以前用 WIN XP+2003，经常会这样，但是用了 WIN 7 + 2010 就不会了。

喊麦+空间制作30

张雄友 发表于 2014-6-29 18:43
第三个问题：SQL 即使你关闭了，还在后台处理。更何况你现在只是刷新，等待结束再做。我以前用 WIN XP+2003 ...

我的WIN7+2013啊，我用SQL左列表不卡，做数据透视表才卡顿

喊麦+空间制作30

张雄友 发表于 2014-6-29 18:40
第一个问题：

路径跟文件名都并没有更改啊，难道是用了bitlocker的缘故？

lt_20114082016

第三个问题：SQL 即使你关闭了，还在后台处理。更何况你现在只是刷新，等待结束再做。我以前用 WIN XP+2003，经常会这样，但是用了 WIN 7 + 2010 就不会了。

yj0715

张雄友 发表于 2014-6-29 18:43
第三个问题：SQL 即使你关闭了，还在后台处理。更何况你现在只是刷新，等待结束再做。我以前用 WIN XP+2003 ...

第一个问题你提供的代码有局限性，详见我这个帖子：http://club.excelhome.net/thread-1174034-1-1.html。
至今未获得完美解决。请移步一观。