VBA用内置对话框获得文件夹的路径

Sub 文件夹路径()
Dim fp$, obmapp As Object
Set obmapp = CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件目录：", 0, 0)
If Not obmapp Is Nothing Then
fp = obmapp.Self.Path & ""
Else
Exit Sub
End If
MsgBox fp
End Sub

原文地址：https://www.cnblogs.com/zhujie-com/p/11695608.html

时间： 2024-10-05 04:09:41

VBA用内置对话框获得文件夹的路径的相关文章

【Unity Shaders】使用CgInclude让你的Shader模块化——Unity内置的CgInclude文件

本系列主要参考<Unity Shaders and Effects Cookbook>一书(感谢原书作者),同时会加上一点个人理解或拓展. 这里是本书所有的插图.这里是本书所需的代码和资源(当然你也可以从官网下载). ========================================== 分割线 ========================================== 写在前面啦啦啦,又开了新的一章...为什么会讲CgInclude呢?什么又是Cg呢?呜,按我的理解

调用AutoCAD的内置对话框

如何将CAD的内置对话框(如style命令所用的文字样式对话框)作为当前对话框的子对话框调出? 常用的几个对话框对应的函数为:1.尺寸标注样式编辑对话框:int acedEditDimstyleInteractie(AcDbDatabase *,AcDbDimStyleTableRecord *,int);2.多行文字编辑对话框:int acedEditMTextInteractie(AcDbMText *);3.公差编辑对话框:void acedEditToleranceInteractie(

以编程方式使用 Word 中的内置对话框

使用 Microsoft Office Word 时,有时需要显示用户输入对话框.虽然可以创建自己的对话框,您也许还希望采用使用 Word 中内置对话框的方法,这些对话框在Application 对象的Dialogs 集合中公开.这使您能够访问 200 个以上的内置对话框,它们以枚举的形式表示. 适用于:本主题中的信息适用于 Word 2013 和 Word 2010 的文档级项目和应用程序级项目.有关更多信息,请参见按 Office 应用程序和项目类型提供的功能. 显示对话框若要显示对话框,

C#使用Word中的内置对话框实例

本文实例讲述了C#使用Word中的内置对话框的方法,分享给大家供大家参考.具体实现方法如下: 使用 Microsoft Office Word 时,有时需要显示用户输入对话框.虽然可以创建自己的对话框,您也许还希望采用使用 Word 中内置对话框的方法,这些对话框在Application 对象的Dialogs 集合中公开.这使您能够访问 200 个以上的内置对话框,它们以枚举的形式表示. 适用于:本文中的信息适用于 Word 2013 和 Word 2010 的文档级项目和应用程序级项目.有关更

SpringBoot 常用配置静态资源访问配置/内置tomcat虚拟文件映射路径

Springboot 再模板引擎中引入Js等文件,出现服务器拒绝访问的错误,需要配置过滤器静态资源访问配置 @Configuration @EnableWebMvc public class StaticResourceConfig implements WebMvcConfigurer { @Override public void addResourceHandlers(ResourceHandlerRegistry registry) { registry.addResourceHand

MFC 获取文件和文件夹的路径

1.获取文件的路径 CFileDialog fileDlg(TRUE); fileDlg.m_ofn.lpstrTitle=L"打开文件"; //fileDlg.m_ofn.lpstrFilter=_T("Program(*.exe)\0*.exe\0All Files(*.*)\0*.*\0\0"); if(IDOK==fileDlg.DoModal()) { LPWSTR lpPathName = fileDlg.m_ofn.lpstrFile; SetDlgI

在使用Eclipse时出现的两个问题：“搞定 NiosII 工程文件夹目录路径改变”与“Connected system ID hash not found on target at expected base address”

问题一: “搞定 NiosII 工程文件夹目录路径改变”的过程中,按照<NiosII的奇幻漂流-v2.0.pdf>这本书附录一章<20.2 四步搞定 NiosII 工程文件夹目录路径改变>所说的方法进行问题解决的时候,总是会出现一些小问题,例如有一个问题“xxx.sopcinfo could not be found.”最后只能删掉工程,重建project,copy源码.虽然最后能够解决路径问题,但花费精力过多,无数次的删除原工程下的project,无数次的自己重建,虽然也能解决问

iOS 快速获取沙盒下任意文件夹的路径

NSLog(@"%@", NSHomeDirectory());//沙盒主目录 NSLog(@"%@", NSTemporaryDirectory());//沙盒中tmp文件夹的路径 NSLog(@"%@", [[NSBundle mainBundle] bundlePath]);//沙盒中*.app包的路径 NSLog(@"%@", [NSSearchPathForDirectoriesInDomains(NSDocumen

【.Net】C#获取Windows系统特殊文件夹的路径

系统特殊文件夹是包含公共信息的文件夹,如"Program Files"."Programs"."System"或"Startup".特殊文件夹在默认情况下由系统设置,或者由用户在安装 Windows 的某个版本时显式进行设置. Environment.GetFolderPath 方法获取指向由指定枚举标识的系统特殊文件夹的路径. 命名空间:Systempublic static string GetFolderPath (