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

BRMA

kevingarnett198 发表于 2013-10-17 11:49
如果想要指的路径是公共盘呢？比如是"\\gzfs03...." ， 我试过这样的话第一条就会报错了，好像只能用本地 ...

你知道怎么制定公共盘了么？

11ww22

只能使用一次？第二次就没用了？？

zhangyq0379

secowu 发表于 2011-4-29 10:17
这两个有效果，不错

这个简单有效

adsadsd

注意，这里的 ChDrive 和 ChDir 两个函数都不是 Unicode 函数，如果您的目录包括 Unicode 字符，则执行代码时会报错！因此，从兼容 Unicode 的角度来讲，还是不推荐这个方法。

ardu95

yaker_77 发表于 2009-5-13 15:18
defpath = ThisWorkbook.Path      
ChDir defpath            
Application.GetOpenFilename(    )

这个行                     

ardu95

浪子山人 发表于 2009-8-15 03:23
非常感谢上面的提示，解决了我以下的需求：

希望能够打开本工作簿所在路经目录（不论工作簿在什么位 ...

这个行                     

jaxxcyh

Sub 选择文件()

Dim MyFilename as String

'新建一个对话框对象
Set FileDialogObject = Application.FileDialog(msoFileDialogFilePicker)

'配置对话框
With FileDialogObject
    .Title = "请选择文件"
    .InitialFileName = ThisWorkbook.Path   '这里可设置默认文件夹
    .AllowMultiSelect = False     '单选
    .Filters.Clear        '清除文件过滤器
    .Filters.Add "Excel Files", "*.xls;*.xlsx"
End With

'显示对话框
FileDialogObject.Show

'获取选择对话框选择的文件
MyFileName = FileDialogObject.SelectedItems.Item(1)

End Sub

mythqiu

gxihome 发表于 2007-6-9 07:46
是不是这个意思？如果你当前默认路径是D盘，现改为默认c:\abc\dd目录，并打开其下文本文档：Sub gxihome()C ...

感谢。。。