OLE文件读取的【绝对路径】和【相对路径】问题
本帖最后由 u010229087 于 2013-07-20 18:25:22 编辑 在用OLE读取一个Excel文件时，下面的绝对路径是能够读取的执行的
Private Sub CmbOK_Click()
Dim ChapterName As String
OLE1.CreateLink App.Path & "\data\27章.xls"
OLE1.Refresh
End Sub
但是改成下边这样，就会报错说无法读取文件
Private Sub CmbOK_Click()
Dim FilePath As String
FilePath = File1.Path & File1.FileName
OLE1.CreateLink " '"& FilePath &"' "
OLE1.Refresh
End Sub
解释一下 我想用FileListBox获得任意指定Excel文件的位置路径，然后用OLE显示出来，但貌似这样不行，存在差异的代码实际上就只有红色标出的部分！
' " & 字符串 & " '这样的语法是不是有问题啊？
小弟自学的VB，基础不是很好，请各位大侠帮忙debug一下！
不胜感激！ Excel 调试 OLE
[解决办法]
你的主贴中：
FilePath = File1.Path & File1.FileName
OLE1.CreateLink " '"& FilePath &"' "
File1.Path 如果不是根目录，它的结尾是没有""字符的，所以你的FilePath的值不正确。
我想绝大多情况下，这些文档都不会放根目录（但Ｕ盘传递文件，多数都放在根目录）
当然完整的代码，还要加上File1.Path 是否以\结尾的判断，再决定是否加上\。
你的FilePath = File1.Path & File1.FileName 字符串连接结果不正确，当然在下一句就无法打开文件了。
你把它用单引号括起来也没用，无法找到文件的。
