查看: 636|回复: 4
MICROSOFT QUERY 数据库中的文本命令如何写相对路径
阅读权限20
在线时间 小时
QQ图片15.png (31.78 KB, 下载次数: 3)
19:08 上传
用MICROSOFT QUERY弄了一个模糊搜索,,数据源在同一样表格,,但&连接字符串&和&命令文本&中生成的绝对路径.
如此有个不便,,本工作簿不能挪位不能更名,,请指导下如何改成相对路径来表示.多谢了...
(29.66 KB, 下载次数: 3)
19:05 上传
点击文件名下载附件
阅读权限20
在线时间 小时
快沉了,顶一下...
阅读权限10
在线时间 小时
同求，我就是不清楚这个命令文本如何编辑，是复制的路径么？
阅读权限10
在线时间 小时
可以copy以下自适应代码到this workbook里(仅支持工作表本身的多工作薄数据连接)
Private Sub Workbook_Open()
& & Dim strCon As String, iPath As String, i As Integer, iFlag As String, iStr As String
& & Dim oSht As Worksheet
& & Dim oPvTb As PivotTable
& & Dim oQyTb As QueryTable
& & For Each oSht In ThisWorkbook.Worksheets
& && &&&If oSht.PivotTables.Count & 0 Then
& && && && &For Each oPvTb In oSht.PivotTables
& && && && && & If oPvTb.PivotCache.SourceType = xlExternal Then
& && && && && && &&&strCon = oPvTb.PivotCache.Connection
& && && && && && &&&Select Case Left(strCon, 5)
& && && && && && &&&Case &ODBC;&
& && && && && && && && &iFlag = &DBQ=&
& && && && && && &&&Case &OLEDB&
& && && && && && && && &iFlag = &Source=&
& && && && && && &&&Case Else
& && && && && && &&&End Select
& && && && && && &&&iStr = Split(Split(strCon, iFlag)(1), &;&)(0)
& && && && && && &&&iPath = Left(iStr, InStrRev(iStr, &\&) - 1)
& && && && && && &&&With oPvTb.PivotCache
& && && && && && && && &.Connection = VBA.Replace(strCon, iPath, ThisWorkbook.Path)
& && && && && && && && &.CommandText = VBA.Replace(.CommandText, iPath, ThisWorkbook.Path)
& && && && && && &&&End With
& && && && && & End If
& && && && &Next
& && &&&End If
& && &&&If oSht.QueryTables.Count & 0 Then
& && && && &For Each oQyTb In oSht.QueryTables
& && && && && & If oQyTb.QueryType && xlWebQuery Then
& && && && && && &&&strCon = oQyTb.Connection
& && && && && && &&&Select Case Left(strCon, 5)
& && && && && && &&&Case &ODBC;&
& && && && && && && && &iFlag = &DBQ=&
& && && && && && &&&Case &OLEDB&
& && && && && && && && &iFlag = &Source=&
& && && && && && &&&Case Else
& && && && && && &&&End Select
& && && && && && &&&iStr = Split(Split(strCon, iFlag)(1), &;&)(0)
& && && && && && &&&iPath = Left(iStr, InStrRev(iStr, &\&) - 1)
& && && && && && &&&With oQyTb
& && && && && && && && &.Connection = VBA.Replace(strCon, iPath, ThisWorkbook.Path)
& && && && && && && && &.CommandText = VBA.Replace(.CommandText, iPath, ThisWorkbook.Path)
& && && && && && &&&End With
& && && && && & End If
& && && && &Next
& && &&&End If
阅读权限10
在线时间 小时
Private Sub Workbook_Open()
& & Dim strCon As String, iPath As String, i As Integer, iFlag As String, iStr As String
& & Dim oSht As Worksheet
& & Dim oPvTb As PivotTable
& & Dim oQyTb As QueryTable
& & For Each oSht In ThisWorkbook.Worksheets
& && &&&If oSht.PivotTables.Count & 0 Then
& && && && &For Each oPvTb In oSht.PivotTables
& && && && && & If oPvTb.PivotCache.SourceType = xlExternal Then
& && && && && && &&&strCon = oPvTb.PivotCache.Connection
& && && && && && &&&Select Case Left(strCon, 5)
& && && && && && &&&Case &ODBC;&
& && && && && && && && &iFlag = &DBQ=&
& && && && && && &&&Case &OLEDB&
& && && && && && && && &iFlag = &Source=&
& && && && && && &&&Case Else
& && && && && && &&&End Select
& && && && && && &&&iStr = Split(Split(strCon, iFlag)(1), &;&)(0)
& && && && && && &&&iPath = Left(iStr, InStrRev(iStr, &\&) - 1)
& && && && && && &&&With oPvTb.PivotCache
& && && && && && && && &.Connection = VBA.Replace(strCon, iPath, ThisWorkbook.Path)
& && && && && && && && &.CommandText = VBA.Replace(.CommandText, iPath, ThisWorkbook.Path)
& && && && && && &&&End With
& && && && && & End If
& && && && &Next
& && &&&End If
& && &&&If oSht.QueryTables.Count & 0 Then
& && && && &For Each oQyTb In oSht.QueryTables
& && && && && & If oQyTb.QueryType && xlWebQuery Then
& && && && && && &&&strCon = oQyTb.Connection
& && && && && && &&&Select Case Left(strCon, 5)
& && && && && && &&&Case &ODBC;&
& && && && && && && && &iFlag = &DBQ=&
& && && && && && &&&Case &OLEDB&
& && && && && && && && &iFlag = &Source=&
& && && && && && &&&Case Else
& && && && && && &&&End Select
& && && && && && &&&iStr = Split(Split(strCon, iFlag)(1), &;&)(0)
& && && && && && &&&iPath = Left(iStr, InStrRev(iStr, &\&) - 1)
& && && && && && &&&With oQyTb
& && && && && && && && &.Connection = VBA.Replace(strCon, iPath, ThisWorkbook.Path)
& && && && && && && && &.CommandText = VBA.Replace(.CommandText, iPath, ThisWorkbook.Path)
& && && && && && &&&End With
& && && && && & End If
& && && && &Next
& && &&&End If
& & Next
End Sub
复制代码
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师1 Pages: 1/2& & &Go
级别: 论坛先锋
工控威望: 1125 点
下载积分: 3730 分
在线时间: 327(小时)
注册时间: 最后登录:
相对位置控制指令DRVI---三菱FX系列PLC应用指令&&所谓相对位置控制方式，是指由当前位置开始移动距离的方式，移动方向由输出脉冲数的正/负符号决定。
&&&&相对位置控制指令DRVI编程方式如下： &&&&DRVI D10 D20 Y1 Y4 &&&&*D10：指令输出脉冲数，可以应用寄存器或是数值指定 &&&&*D20：指令输出脉冲频率，可以应用寄存器或是数值指定&&&&&&*Y1： 指令输出脉冲地址，只能用Y0或是Y1 &&&&*Y4： 旋转方向输出，根据所控制执行元件的设置参数来确定输出ON（OFF）为正向或是反向。 &&&&相对位置指令实例：（假设Y3闭合时，执行元件向右。D8142原值为1000） &&&&LD&&M0&&&&&&DRVI K Y1 Y3 &&&&由当前位置向右运行3000个脉冲数，Y3闭合状态。D8142的值变为4000 &&&&LD&&M0&&&&&&DRVI K- Y1 Y3&&&& &&&&由当前位置向左运行3000个脉冲数，Y3断开状态。D8142的值变为-2000 &&&&由上面的例子可以看出，相对位置指令输出脉冲数完全由指令中的脉冲数所决定，与D8140（D8142）无关。这是相对位置指令与绝对位置指令的区别.
本帖最近评分记录：下载积分:+1(hualuogeng) 热心助人!下载积分:+1(yeyanhua) 热心助人!下载积分:+2(jinyongdaxa) 热心助人!
级别: 探索解密
发帖数量: 107 个
工控威望: 153 点
下载积分: 1721 分
在线时间: 72(小时)
注册时间: 最后登录:
学习了，谢谢！
jinyongdaxa
工控威望: * 点
下载积分: * 分
在线时间: (小时)
注册时间: *最后登录: *
谢谢分享！
smart11111
级别: 探索解密
发帖数量: 441 个
工控威望: 147 点
下载积分: 1654 分
在线时间: 69(小时)
注册时间: 最后登录:
学习了，谢谢！
工控威望: * 点
下载积分: * 分
在线时间: (小时)
注册时间: *最后登录: *
学习了，谢谢分享！！
chichi2006
工控威望: * 点
下载积分: * 分
在线时间: (小时)
注册时间: *最后登录: *
thank you very much
工控威望: * 点
下载积分: * 分
在线时间: (小时)
注册时间: *最后登录: *
谢谢共享！祝新年快乐！&&
工控威望: * 点
下载积分: * 分
在线时间: (小时)
注册时间: *最后登录: *
谢谢分享！新年快乐！&&
工控威望: * 点
下载积分: * 分
在线时间: (小时)
注册时间: *最后登录: *
谢谢共享！
级别: 略有小成
发帖数量: 300 个
工控威望: 272 点
下载积分: 729 分
在线时间: 184(小时)
注册时间: 最后登录:
学习了谢谢
今天的努换来明天的收获
级别: 略有小成
发帖数量: 675 个
工控威望: 489 点
下载积分: 1433 分
在线时间: 82(小时)
注册时间: 最后登录:
学习了，谢谢 &&&&
级别: 家园常客
发帖数量: 723 个
工控威望: 851 点
下载积分: 30 分
在线时间: 183(小时)
注册时间: 最后登录:
谢谢分享！
1 Pages: 1/2& & &Go已知JZ 50H指令的地址为0150H,试问该指令的相对地址rel和偏移量各是多少?_百度知道
已知JZ 50H指令的地址为0150H,试问该指令的相对地址rel和偏移量各是多少?
则指令执行后，试问该指令的相对地址rel和偏移量各是多少，转移的目标地址为多少？设A=0已知JZ 50H指令的地址为0150H
提问者采纳
rel=50H，偏移量是0100H，目标地址是0150H
其他类似问题
为您推荐：
其他1条回答
JZ 指令的机器码是 60H 50H，转移的目标地址为多少，不应该分开问。－－－－－－－－－－－－－－－－题目也有歧义。另外：0150H + 50H + 02H ＝ 01A2H，相对地址rel和偏移量。题目应该说。－－－－－－－－－－－－－－－－正确答案如下：已知JZ 50H指令的地址为0150H。其中的 50H 就是偏移量 rel？－－偏移量 rel = 50H－－字节数 = 02H设A=0，则指令执行后。而在 0150H 位置采纳答案有错，编写 JZ
50H 指令，是错误的？－－目标地址是。因为从 0150H 转移到 0050H，试问该指令的相对地址rel和偏移量各是多少，超出了该指令的转移范围，是同一个概念。JZ
50H 这种写法，是以 0050H 当做目标地址
偏移量的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁绝对地址与相对地址
1. 假设PC=0x1000， 现在 PC &--- 0x1200
，这个0x1200就是绝对地址；如果是 PC + 0x20 这个020就是相对地址。
绝对和相对路径是PC中文件目录结构中用的.绝对地址和相对地址在汇编中经常出现.关键是理解什么是绝对,什么是相对.
举个简单的例子:
在一个队伍中,从头开始你排在15位,这就是绝对位置,指从头开始.
如果前9个是女生,第10位开始为男生.那么你就是从男生开始的第5位,这个5就是相对位置.
在汇编中有绝对跳转和相对跳转指令.绝对跳转指令中给出的是绝对地址,也就是从0000H开始算起的地址.而相对跳转的指令中是相对地址,是说相对跳转指令本身所在地址加上一个(偏移)量.
如果转移指令在10的位置,要转移执行15位置的指令:可以使用
绝对转移:JMP 15& &&
&=======&这里的15是绝对地址,从0开始算.
相对转移:JNE 5& &&
=======&这里的5时相对地址,相对JNE的位置,加5.而JNE在第10个,加上5为15,同上一句相同都是跳转到15的位置执行了.
3. 也就是说绝对地址是相对于地址0x0000的偏移量.而相对地址上相对于当前执行指令地址量来说的.
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。}