如何在VBA代码中指定打开文件对话框的位置为局域网内的其它共享硬盘路径

最新推荐文章于 2024-06-25 13:17:14 发布
最新推荐文章于 2024-06-25 13:17:14 发布
阅读量886 收藏 1
点赞数
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_35753291/article/details/129084976
版权

可以使用 "ChDrive" 和 "ChDir" 命令来改变默认打开文件对话框的盘符和目录。例如：

ChDrive"Z:"
ChDir "\\server\sharedfolder"

上面的代码将默认打开文件对话框的盘符改为 Z:，并将目录改为 "\server\sharedfolder"。

然后再调用文件对话框函数，如：

filepath = Application.GetOpenFilename("All Files,*.*", , "Select a file")

这样就会在Z盘下的 "\server\sharedfolder"中打开文件对话框。

笨爪
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
vba中文件框路径选择，getopenfilename用法
pgymeitianjinbu的博客
03-01 2768
Private Sub Worksheet_Activate() '激活工作表触发的程序。Application.EnableEvents = True '让事件生效。a = InputBox("请输入密码")
vba取局域网电脑共享文件夹下的Excel文件
weixin_30347009的博客
08-10 4365
Private Sub CommandButton1_Click() Dim xlapp1 As Excel.Application Dim xlbook1 As Excel.Workbook Dim xlsheet1 As Excel.Worksheet Dim xlapp2 As Excel.Application Dim xlbook2 As Excel.Wor...
access vba代码直接创建网络盘符或打开内部网络共享文件夹
雨水霂
09-18 5208
一、access vba代码直接创建网络盘符 Z盘（带用户名、密码） 例1： Shell "net use Z: \\192.168.1.244\umvData /user:Administrator Hnerpserver123"           End Sub 例2：Shell "NET USE S: \\192.168.1.64\YGCB  /USER:ADMINIST
VBA 利用弹出式对话框选择文件或文件夹
最新发布
记录
06-25 648
VBA 利用弹出式对话框选择文件或文件夹。
EXCEL-VBA：调用打开文件夹对话框，选择路径
热门推荐
鞠勇鸿的技术专栏
10-05 1万+
EXCEL-VBA：调用打开文件夹对话框，选择路径
VBA 把文件夹压缩成ZIP文件
记录
02-28 995
【代码】VBA 把文件夹压缩成ZIP文件。
VBA 弹框选择文件路径
nobody
10-30 1万+
弹框选择文件路径
cad vba 打开文件对话框_AutoCAD VBA选择文件夹的代码
weixin_39836530的博客
12-22 2471
'AutoCADVBA选择文件夹的代码'流沙之泉编写于2018年11月30日，于AutoCAD201764位上测试通过。'将此份文档另存为纯文本格式文件MdFileBrw.bas，'并导入至vba的模块中即可在其他模块调用当中的函数。'其中GetFolder函数可以选择文件夹并返回选择的路径(按取消则返回空字符串)，'ListFilesFSO过程可以根据传入的文件夹路径在调试输出窗口输出文件名...
Excel 2010 VBA 入门 120 显示打开文件对话框
复行数十步
08-13 2522
目录 码1 Application.GetOpenFilename方法 码2 FileDialog对象 FileDialog对象的常用属性 使用FileDialog对象的属性Filters添加筛选 FileDialog对象的Show方法和Execute方法 遍历通过FileDialog对象选择的文件 Application. GetSaveAsFilename方法 Application. Dialog对象 码1 使用Application.GetOpenFilename方...
VBA复制指定路径文件待粘贴【可用于自动发微信文件】.xlsm
06-15
VBA复制指定路径文件待粘贴【可用于自动发微信文件】.xlsm 有时候我们需要复制指定路径的文件，然后到指定的位置或软件进行粘贴 所有我们可根据指定的路径文件进行复制，待粘贴
VBA-access与Excel在局域网里面共享使用教程.doc
09-18
VBA-access与Excel在局域网里面共享使用教程.doc
ACCESS的VBA中如何打开文件对话框并获取选中文件的路径
weixin_42592399的博客
01-13 944
在 ACCESS 的 VBA 中，可以使用 FileDialog 对象的 Show 方法来打开文件对话框，并使用 SelectedItems 属性来获取选中文件的路径。 例如： Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogOpen) fd.Show If fd.SelectedItems.Count = 1...
VBA GetOpenFilename文件类型筛选规则，返回选择的文件完整路径和文件名
爱纷享的博客
07-02 3807
@VBA GetOpenFilename文件类型筛选规则，返回选择的文件完整路径和文件名 一、概述基本语法 'GetOpenFilename相当于Excel打开窗口，通过该窗口选择要打开的文件，并可以返回选择的文件完整路径和文件名。 '注: 1、此方法并不会真正打开文件? 不能显示文件夹路径（FILEDIALOG可以打开） 2、此方法不能打开文件，只能返回路径 3、不能显示文件夹路径 'Appl...
VBA：Application.GetOpenFilename打开指定文件夹里的excel类型文件（xls、xlsx）
rubyw的博客
08-28 4042
'Application.GetOpenFilename(“文件类型筛选规则(就是说明)”,“优先显示第几个类型的文件”,“标题”,“是否允许选择多个文件名”)'GetOpenFilename相当于Excel打开窗口，通过该窗口选择要打开的文件，并可以返回选择的文件完整路径和文件名。'“文件类型说明文字,*.文件类型后辍”
vba 获取当前文件路径
liuxiaofeng1991的博客
07-07 2497
1 2 3 4 5 Sub?s() ????Dim?pth$ ????pth?=?ThisWorkbook.Path ????MsgBox?"本文件的路径为："?&?pth End?Sub
VBA打开文件的方式及各个方式的使用优劣 Application.GetOpenFilename、FileSystemObject（Scripting.FileSystemObject）：
偶尔想看云飞的博客
03-22 3032
VBA程序中打开文件和文件夹的函数汇总，以及对应的方法的优缺点
vba访问文件服务器,使用Excel VBA获取共享点文件夹的内容
weixin_33529455的博客
08-05 3003
通常，我使用这段代码来检索VBA中文件夹的内容。 但这在共享点的情况下不起作用。 我能怎么做 ？Dim folder As folderDim f As FileDim fs As New FileSystemObjectSet folder = fs.GetFolder("//sharepoint.address/path/to/folder")For Each f In folder.File...
vba打开服务器文件,EXCEL+VBA快速部署及运维管理FTP+SMB共享文件服务器
weixin_39526564的博客
07-31 944
系统环境:windows2008R2;需求内容：在windows环境下快速部署SMB+FTP共享文件服务器①以工号为账号、密码②每个人都能读写自己部门的目录；③所有人都能读写公共盘目录；④所有人只读software目录；⑤管理员可以读写所有目录；⑥后期需要根据需求细化权限管理；准备内容：1.office2010安装包,安装；2.filezilla服务端安装包，安装；3.添加windows角色,文件...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值