Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2394|回复: 8

[已解决]怎样获取 SQL动态路径

[复制链接]
发表于 2013-3-24 14:59 | 显示全部楼层 |阅读模式
就是附件放到那个盘符都好用,谢谢
最佳答案
2013-3-24 21:45
汇总.rar (20.58 KB, 下载次数: 10)

文件夹.rar

79.52 KB, 下载次数: 6

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2013-3-24 15:11 | 显示全部楼层
回复

使用道具 举报

发表于 2013-3-24 15:13 | 显示全部楼层
把下面的代码复制粘贴到 THISWORKBOOK 里
文件另存为 XLSM
  1. Private Sub Workbook_Open()
  2.     Dim strCon As String, iPath As String, i As Integer, iFlag As String, iStr As String
  3.     strCon = ActiveSheet.PivotTables(1).PivotCache.Connection
  4.     Select Case Left(strCon, 5)
  5.     Case "ODBC;"
  6.         iFlag = "DBQ="
  7.     Case "OLEDB"
  8.         iFlag = "Source="
  9.     Case Else
  10.         Exit Sub
  11.     End Select
  12.     iStr = Split(Split(strCon, iFlag)(1), ";")(0)
  13.     iPath = Left(iStr, InStrRev(iStr, "") - 1)
  14.     With ActiveSheet.PivotTables(1).PivotCache
  15.         .Connection = VBA.Replace(strCon, iPath, ThisWorkbook.Path)
  16.         .CommandText = VBA.Replace(.CommandText, iPath, ThisWorkbook.Path)
  17.     End With
  18. End Sub
复制代码
回复

使用道具 举报

发表于 2013-3-24 15:22 | 显示全部楼层
就改一个查询的还是3个的都改?
回复

使用道具 举报

 楼主| 发表于 2013-3-24 15:24 | 显示全部楼层
本帖最后由 云影 于 2013-3-24 15:28 编辑
那么的帅 发表于 2013-3-24 15:13
把下面的代码复制粘贴到 THISWORKBOOK 里
文件另存为 XLSM


帅老师好是不是我哪里操作错了提示,还有一个问题就是我把工作簿名改成其他的名字会不会好用(sql里边的也改)
QQ截图20130324152123.png

文件夹.rar

96.3 KB, 下载次数: 1

回复

使用道具 举报

 楼主| 发表于 2013-3-24 15:26 | 显示全部楼层
hwc2ycy 发表于 2013-3-24 15:22
就改一个查询的还是3个的都改?

改  叫  “明细”   的那个工作表
回复

使用道具 举报

发表于 2013-3-24 21:45 | 显示全部楼层    本楼为最佳答案   
汇总.rar (20.58 KB, 下载次数: 10)
回复

使用道具 举报

发表于 2013-3-24 22:12 | 显示全部楼层
sql222.gif
回复

使用道具 举报

 楼主| 发表于 2013-3-24 22:18 | 显示全部楼层
hwc2ycy 发表于 2013-3-24 22:12

收到太感谢老师了{:3512:}
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 22:09 , Processed in 4.650880 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表