[求助]Application.GetOpenFilename指定默认路径问题

bigo

Application.GetOpenFilename指定默认路径问题
就是说我想在第一次使用Application.GetOpenFilename时它已经为我指定目录（是指定目录，不是指定文件），而不需要我再去选择那个目录。

例如我想默认打开c:\abc\dd\目录下的文件，那该如何设置？请教！

====================================================

TGB

这个怕不行哟

bigo

哦，失望中！

jidanbing

application.defaultfilepath="你要设置的路径"

[此贴子已经被作者于2007-6-8 17:22:31编辑过]

bigo

QUOTE:

以下是引用jidanbing在2007-6-8 17:16:27的发言：
application.defaultfilepath="你要设置的路径"

不解中！不会用

使用之后还是默认打开“我的文档”.

请问可以写个具体的代码码？

gxihome

是不是这个意思？

如果你当前默认路径是D盘，现改为默认c:\abc\dd目录，并打开其下文本文档：

Sub gxihome()
ChDrive "c"
ChDir "c:\abc\dd"
Filename = Application _
    .GetOpenFilename("Text Files (*.txt), *.txt")
Workbooks.Open (Filename)
End Sub

bigo

QUOTE:

以下是引用gxihome在2007-6-9 7:46:29的发言：

是不是这个意思？

如果你当前默认路径是D盘，现改为默认c:\abc\dd目录，并打开其下文本文档：

Sub gxihome()
ChDrive "c"
ChDir "c:\abc\dd"
Filename = Application _
    .GetOpenFilename("Text Files (*.txt), *.txt")
Workbooks.Open (Filename)
End Sub

是 这个意思。

非常感谢！

yaker_77

谢谢好心人！

yaker_77

defpath = ThisWorkbook.Path      
ChDir defpath            
Application.GetOpenFilename(    )

浪子山人

原帖由 gxihome 于 2007-6-9 07:46 发表
是不是这个意思？如果你当前默认路径是D盘，现改为默认c:\abc\dd目录，并打开其下文本文档：Sub gxihome()ChDrive "c"ChDir "c:\abc\dd"Filename = Application _    .GetOpenFilename("Text Files ( ...

非常感谢上面的提示，解决了我以下的需求：

希望能够打开本工作簿所在路经目录（不论工作簿在什么位置）的对话框找寻某指定文件打开（这样就不用在默认的“我的文档”里面去找）。经过调试得到以下代码，也许能给某些人启发：

Sub 调试()
D = Mid(ThisWorkbook.Path, 1, 1) '获取本系统驱动器盘位置
L = ThisWorkbook.Path'定义本工作簿的路经
ChDrive D
ChDir L
Filename = Application.GetOpenFilename
End Sub