请问有excel中ThisWorkbook.Path相同的语句么

vb学徒

想得到文件的路径。在excel中用ThisWorkbook.Path在word中用thisdocument.path怎么不行啊

vb学徒

Application.Path 我找到了

Sub aa()

a = Application.Path MsgBox a

End Sub 可以看到路径

cxffxc

以下是引用vb学徒在2005-6-8 23:08:00的发言： 想得到文件的路径。在excel中用ThisWorkbook.Path在word中用thisdocument.path怎么不行啊

可以的呀

vb学徒

sub aa

Dim CNN As New ADODB.Connection, RST As New ADODB.Recordset, RST1 As New ADODB.Recordset, RST2 As New ADODB.Recordset, RST3 As New ADODB.Recordset

a = ThisDocument.Path b = InStr(a, "temp") c = Left(a, b - 1)这个时候的路径就是word文件所在目录的上级目录了 strPro = "Microsoft.Jet.OLEDB.4.0" CNN.Open "Provider=" & strPro & ";Data Source=" & c & "database\chinesejoy.mdb" strSQL = "SELECT * FROM temp where id = 'now'" strSQL1 = "SELECT * FROM admin where id = 'now'"

下面写你的代码了

[此贴子已经被作者于2005-6-9 17:14:40编辑过]

vb学徒

也就是他那段代码Application.Path 反映的是office的安装路径

konggs

我帮你找找！等待2分钟！

konggs

查找了，应该是：没有两分钟吧！

Application.ActiveDocument.Path

vb学徒

又一个问题。

a = ThisDocument.Path b = InStr(a, "temp") c = Left(a, b - 1) MsgBox c

Selection.InlineShapes.AddPicture FileName:= c + "背景图片\gost.jpg", LinkToFile:=False, SaveWithDocument:=True

后面这段话老是说路径不对在ado的路径引用中就是" &+变量的。我这段话是录制的宏，原来的路径是加了""的。我如果在变量两边加上""不是成了文字了么。

Selection.InlineShapes.AddPicture FileName:= "c:\ss\ss\背景图片\gost.jpg", _linkToFile:=False, SaveWithDocument:=True 录制的宏

问题就是如何添加两头的引号

[此贴子已经被作者于2005-6-9 17:57:19编辑过]

konggs

把"...FileName:= c + "背景图片\gost.jpg", ..."的加号改为"&"就行了，

守柔

以下是引用vb学徒在2005-6-8 23:08:00的发言： 想得到文件的路径。在excel中用ThisWorkbook.Path在word中用thisdocument.path怎么不行啊

在WORD中，与EXCEL某些方面非常相近。比如：

ACTIVEDOCUMENT ACTIVEWORKBOOK

THISDOCUMENT THISWORKBOOK

那么，为什么楼主觉得不对呢？当文档未保存时，THISDOCUEMNT.PATH="",所以你觉得不对了.EXCEL中同理.