Access中的SQL如何使用相对路径或者变量？

yth0

因为在Excel中录入数据或者修改维护比较方便，所以在一个Excel文件中输入所需的数据，作为数据源，提供给其他软件使用。但是考虑到如果应用软件直接链接到Excel，可能无法在打开应用软件的时候会锁定这个Excel文件，此时可能不方便编辑Excel文件，实时性不太好。所以就又新建了一个Access文件，在Access文件中新建一个SQL查询，用来链接到Excel文件中的每个工作表，SQL语句如下：

SELECT * FROM [Excel 8.0;Database=E:\EDA_LIB\AD.xls].[CAP_SMT$];

这个语句工作的没问题。现在的问题是在这条语句中Excel文件我用的是绝对路径，但是考虑到文件的路径可能会变动，且需要建立很多个查询用来对应多个工作表，这样修改路径的话会很麻烦，所以我想请教大家能否把这条语句里的绝对路径用变量或者相对路径来替代？最好是用变量。这样将来一旦路径发生变化了，只需要修改一个变量就行了。

或者大家有别的更好的方案？

谢谢！

yth0

还有，希望在一个Access建立多个查询，分别对应多个工作表。如果用变量的话，希望是类似全局变量，而不是在每个查询里分别定义。

zez

看看这样是否可以：
建立一个窗体，窗体中建立一个编辑框，（也可以是下拉控件），里面输入路径，查询中引用这个路径。
因为没有附件，所以我无法测试，请楼主自行测试。

yth0

zez 发表于 2015-2-9 20:04
看看这样是否可以：
建立一个窗体，窗体中建立一个编辑框，（也可以是下拉控件），里面输入路径，查询中引 ...

文件见附件。
如何在查询中引用窗体中的这个路径呢？另外这个例子里面我只写了一个查询对应一个工作表，而实际中我需要建立多个查询，对应多个工作表，那个窗体中的路径我想要公用，而不是只针对单个查询，这样将来修改路径的话，只修改一个就行了。
谢谢！
新建文件夹.rar (45.32 KB, 下载次数: 17)

2015-2-10 12:59 上传

点击文件名下载附件

roych

看看这样行不行？

1. '引用 Office库
   
2. Sub Link_EXCEL()
   
3. Dim fld As FileDialog
   
4. Dim i As Long
   
5. Dim lngL As Long
   
6. Dim strL As String
   
7. Set fld = Application.FileDialog(msoFileDialogFilePicker)
   
8.     If fld.Show = -1 Then
   
9.         For i = 1 To fld.SelectedItems.Count
   
10.         lngL = InStrRev(fld.SelectedItems(i), "", -1)
    
11.         strL = Mid(fld.SelectedItems(i), lngL + 1, Len(fld.SelectedItems(i)))
    
12.         DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel9, Mid(strL, 1, Len(strL) - 4), fld.SelectedItems(i), True
    
13.         Next
    
14.     End If
    
15. End Sub
    

复制代码

yth0

roych 发表于 2015-2-11 17:38
看看这样行不行？

谢谢。不好意思，不懂VBS，没看懂这串代码是干啥的。我试着在那个窗体的文本框中输入：F:\Downloads\新建文件夹\AD.xls，然后点批量链接表，但是没看出来有啥反映啊。

yth0

哦，刚才是宏被禁用了，启用后，会弹出“文件未找到：VBA6.DLL”。这个能不使用宏来实现吗？因为这个给很多人用，最好适用性强一些，用宏的话总是担心会出现这样或者那样的问题，比如宏被禁用，或者缺少某个文件等等问题。

roych

yth0 发表于 2015-2-11 18:35
谢谢。不好意思，不懂VBS，没看懂这串代码是干啥的。我试着在那个窗体的文本框中输入：F:\Downloads\新建 ...

1、按钮代码跟文本框没有一毛钱关系。如果你非要在文本框里输入的话，则不方便自定义路径。——虽然按钮代码也可以把路径添加到文本框，不过我这里没写进去。2、我不知道你用的什么版本的Access，如果是所谓的绿色版，建议卸载掉，再安装完整版的Office，里面应该有相应的Access套件，需要引用的库如下：

可以按下Ctrl+F11后进入VBE界面，点击工具\引用，看看哪个没有引用上或者显示“丢失（Missing）”的，重新勾选一个低一点的版本的库。
3、如果禁用宏了，建议使用Ctrl+C/Ctrl+V来处理。——Access禁用宏了，跟Excel有什么区别？甚至还不如Excel，因为Excel至少还有很多公式可以处理数据……

yth0

再顶一下，现在有新的问题，需要在本机和虚拟机中同时使用，这样的话如果用绝对路径就不方便了。所以还是用相对路径好一点，大家有没有什么好方法，能把
SELECT * FROM [Excel 8.0;Database=E:\EDA_LIB\AD.xls].[CAP_SMT$];
这条语句中的绝对路径用相对路径表示呢？

yth0

AD.xls和包含这条查询语句的.mdb文件放在同一个目录下。