Application.FileDialog(msoFileDialogFolderPicker) 只能使用一次是为什么

时间: 2024-02-29 10:55:00 浏览: 203
PPT

文件对话框FileDialog-Java菜单与对话框

`Application.FileDialog(msoFileDialogFolderPicker)` 是用来打开文件夹选择对话框的方法。它的返回值是一个 `FileDialog` 对象，可以通过该对象来获取用户所选取的文件夹路径。 在使用 `FileDialog` 对象时，如果你想再次打开文件夹选择对话框，需要先将上一次选择的文件夹路径清空，否则会出现只选择一次的问题。例如，可以使用 `FileDialog.SelectedItems.Clear` 方法来清空所选项。 如果你想多次使用文件夹选择对话框，可以将 `FileDialog` 对象定义为全局变量，这样就可以在多个子过程中使用。
阅读全文

相关推荐

-

Java编程：JMenu类详解与文件对话框FileDialog的使用

"本文档介绍了Java中的JMenu类及其常用方法，以及如何使用FileDialog类创建文件对话框。主要关注于菜单和对话框在文本编辑器应用中的实现，包括新建、打开和保存文件的功能。" 在Java编程中，GUI（图形用户界面）是...
-

Python tkinter指南：messagebox与filedialog控件深度解析

file_path = filedialog.askopenfilename() print(f"选定的文件路径：{file_path}") open_button = Button(root, text="打开文件", command=open_file) open_button.pack() root.mainloop() 在这个例子中，...

OpenFile=Application.FileDialog(msoFileDialogFolderPicker).Execute

具体来说，它使用了Excel或其他Microsoft Office应用程序中的内置对象“Application”，并调用了其中的“FileDialog”方法，传入了一个参数“msoFileDialogFolderPicker”，表示这是一个文件夹选择对话框。...

OpenFile=Application.FileDialog(msoFileDialogFolderPicker).Creator

具体来说，代码中使用了 Microsoft Office 的对象库，调用了 msoFileDialogFolderPicker 对话框，并访问了其 Creator 属性。这个属性返回一个代表对话框创建者的整数值，可以用于确定对话框是由哪个应用程序或者库...

let fd = Application.FileDialog(msoFileDialogFolderPicker); fd.InitialFileName=ThisWorkbook.Path; if(fd.Show() == -1) {return fd.SelectedItems.Item(1)} else return;//退出

具体来说，它使用了 Microsoft Office 的 Application.FileDialog 对象来创建一个文件夹选择对话框（msoFileDialogFolderPicker）。然后，设置对话框的初始文件夹路径为当前 Excel 文件所在的路径（ThisWorkbook....

FileDialog(msoFileDialogFolderPicker)只能使用一次，是什么原因

该对象只能使用一次是因为它在使用后就被销毁了，如果需要再次使用，需要重新创建一个对象。 在使用 FileDialog(msoFileDialogFolderPicker) 对象时，可以通过设置其属性来控制对话框的一些行为，例如设置初始...

Sub ExportPDFAsImageAndInsert() Dim InputFilePath As String Dim OutputFolder As String Dim OutputFilePath As String Dim currentDoc As Document Dim vPics As Variant, k As Long ' 声明当前Word文档变量 ' 获取当前活动的Word文档 Set currentDoc = ActiveDocument ' 创建文件对话框对象以选择PDF文件路径 With Application.FileDialog(msoFileDialogFilePicker) .Title = "选择PDF文件" .Filters.Clear .Filters.Add "PDF文件", "*.pdf" If .Show = -1 Then InputFilePath = .SelectedItems(1) Else Exit Sub ' 用户取消选择 End If End With ' 创建文件夹对话框对象以选择图片输出文件夹路径 With Application.FileDialog(msoFileDialogFolderPicker) .Title = "选择图片输出文件夹" If .Show = -1 Then OutputFolder = .SelectedItems(1) Else Exit Sub ' 用户取消选择 End If End With OutputFilePath = SavePDFAs(InputFilePath, OutputFolder, "jpeg") ' 调用 GetFilePathsInFolder 函数并将返回的数组赋值给 vPics 变量 ' 插入图片到当前Word文档中 vPics = GetFilePathsInFolder(OutputFolder) If IsEmpty(vPics) Then MsgBox "空文件夹。" Exit Sub End If For k = UBound(vPics) To LBound(vPics) currentDoc.InlineShapes.AddPicture (vPics(k)) Next End Sub 以上代码中，插入图片的顺序反了，请改成正序

With Application.FileDialog(msoFileDialogFolderPicker) .Title = "选择图片输出文件夹" If .Show = -1 Then OutputFolder = .SelectedItems(1) Else Exit Sub ' 用户取消选择 End If End With ...

FileDialog（msoFileDialogFolderPicker） 是 Microsoft Office 中的一个对象，用于弹出一个文件夹选择器的对话框，让用户可以选择一个文件夹。该对象只能使用一次是因为它在使用后就被销毁了，如果需要再次使用，需要重新创建一个对象。如何重新创建一个新的FileDialog（msoFileDialogFolderPicker）

要重新创建一个新的FileDialog（msoFileDialogFolderPicker）对象，可以使用以下代码： Dim fDialog As FileDialog Set fDialog = Application.FileDialog(msoFileDialogFolderPicker) 这将创建一个名为...
docx

Excel使用Vba读取文件夹下所有文件.docx

With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = Application.DefaultFilePath & "" .Title = "Select a location containing the files you want to list." .Show If ....
pdf

Excel使用Vba读取文件夹下所有文件[归类].pdf

With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = Application.DefaultFilePath & "" .Title = "Select a location containing the files you want to list." .Show If ....
rar

EXCEL.XLS中快速查找关键词VBA.rar

With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then myPath = .SelectedItems(1) Else myPath = ThisWorkbook.Path End With If Right(myPath, 1) <> "\" Then myPath = myPath & "\" ...

Sub 流量源MB() Dim sPath As String Dim fso As Object, objmainFolder As Object, objFile As Object Dim n%, t% Dim arr As Variant Application.ScreenUpdating = False With Application.FileDialog(msoFileDialogFolderPicker) .Show If .SelectedItems.Count = 0 Then MsgBox "您没有选择相应路径！", vbInformation + vbOKOnly, "警告" Exit Sub Else sPath = .SelectedItems(1) End If End With Set fso = CreateObject("scripting.filesystemobject") Set objmainFolder = fso.getfolder(sPath) On Error Resume Next tms = Timer For Each objFile In objmainFolder.Files If LCase(Right(objFile.Name, 3)) = "xls" Then With GetObject(objFile.Path) With .Sheets(1) intlastrow = .[a6].CurrentRegion.Rows.Count .Range("ag6:ag1" & intlastrow) = Mid(objFile.Name, 18, 10) arr = .Range("a6:ag1" & intlastrow) End With .Close False End With With Sheets("流量源-MB") .Cells(.Rows.Count, 3).End(xlUp).Offset(1).Resize(UBound(arr), UBound(arr, 2)) = arr End With End If n = n + 1 Next objFile t = t + 1 Set objFolder = Nothing Set fso = Nothing MsgBox "您刚刚汇总了" & t & "个文件夹，总计" & n & "个文件！" & "总耗时" & Int((Timer - tms) / 60) & "分" & ((Timer - tms) Mod 60) & "秒", vbOKOnly, "温馨提示" End Sub

这段代码是一个 VBA（Visual Basic for Applications）宏，用于汇总特定文件夹中的 Excel 文件数据到一个名为 "流量源-MB" 的工作表中。以下是代码的主要步骤： 1. 弹出一个文件夹选择对话框，让用户选择要汇总数据...

FileDialog(msoFileDialogFolderPicker) 用法详解

FileDialog(msoFileDialogFolderPicker) 是一个 VBA 中的对象，可以用来打开一个文件夹选择对话框，让用户选择一个文件夹。它的具体用法如下： 1. 在 VBA 中，先声明一个变量来存储用户选择的文件夹路径。例如： ...

msoFileDialogFolderPicker

在这个示例代码中，首先创建了一个 FileDialog 对象，并将其类型设置为 msoFileDialogFolderPicker，表示选择文件夹的对话框。然后设置了一些对话框的属性，比如对话框标题、默认文件夹路径等。最后弹出对话框，...

msoFileDialogFolderPicker关闭的方法

Set folderDialog = Application.FileDialog(msoFileDialogFolderPicker) folderDialog.AllowMultiSelect = False If folderDialog.Show = -1 Then ' 用户选择了文件夹 Dim selectedFolder As String ...

FileDialog在EXCLE中具体用法举例

FileDialog 是 VBA 中用于打开和保存文件对话框的对象。您可以使用 FileDialog 对象...Set dialog = Application.FileDialog(msoFileDialogFolderPicker) 这将创建一个打开文件夹对话框的 FileDialog 对象。

catiavba用代码过滤只能选中product文件，并在下面创建part或product

Set fd = Application.FileDialog(msoFileDialogFolderPicker) With fd .Title = "Select Product Files" .Filters.Clear .Filters.Add "Product Files", "*.csv; *.txt" ' 假设产品文件扩展名是.csv或.txt If...

如何将以下代码的importPath参数从指定文件转变为指定文件夹，而且在遍历文件夹后，将所有TXT文件或EXECL文件依次导入 Private Const TXT_EXTENSION As String = "*.txt" Private Const XLS_EXTENSION As String = "*.xls*" Private Sub 单次导入_Click() Dim importPath As Variant importPath = "C:\Users\icd\Desktop\20230601.txt" If IsNull(importPath) Then MsgBox "数据不能为空", , "空值提醒" ElseIf Not IsString(importPath) Then MsgBox "导入路径必须为字符串类型", , "类型错误" ElseIf importPath Like TXT_EXTENSION Then DoCmd.TransferText acImportDelim, "接触清单导入规格", "接触清单", importPath, True, "" MsgBox "导入完成", , "完成提醒" ElseIf importPath Like XLS_EXTENSION Then '未实现 End If End Sub

With Application.FileDialog(msoFileDialogFolderPicker) .AllowMultiSelect = False .Title = "请选择导入文件夹" .InitialFileName = folderPath If .Show = -1 Then folderPath = .SelectedItems(1) & "\...

使用vba 写入一个 excel 加载项 实现图片批量导出 按某一列批量导入图片

folderPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) ' 获取要导入图片的列 Dim imageColumn As Range Set imageColumn = Application.InputBox("Please select the column to ...

最新推荐

recommend-type

精细金属掩模板(FMM)行业研究报告 显示技术核心部件FMM材料产业分析与市场应用

精细金属掩模板（FMM）作为OLED蒸镀工艺中的核心消耗部件，负责沉积RGB有机物质形成像素。材料由Frame、Cover等五部分组成，需满足特定热膨胀性能。制作工艺包括蚀刻、电铸等，影响FMM性能。适用于显示技术研究人员、产业分析师，旨在提供FMM材料技术发展、市场规模及产业链结构的深入解析。
recommend-type

【创新未发表】斑马算法ZOA-Kmean-Transformer-LSTM负荷预测Matlab源码 9515期.zip

CSDN海神之光上传的全部代码均可运行，亲测可用，直接替换数据即可，适合小白； 1、代码压缩包内容 主函数：Main.m； 调用函数：其他m文件；无需运行 运行结果效果图； 2、代码运行版本 Matlab 2024b；若运行有误，根据提示修改；若不会，可私信博主； 3、运行操作步骤 步骤一：将所有文件放到Matlab的当前文件夹中； 步骤二：双击打开除Main.m的其他m文件； 步骤三：点击运行，等程序运行完得到结果； 4、仿真咨询 如需其他服务，可私信博主或扫描博主博客文章底部QQ名片； 4.1 CSDN博客或资源的完整代码提供 4.2 期刊或参考文献复现 4.3 Matlab程序定制 4.4 科研合作 智能优化算法优化Kmean-Transformer-LSTM负荷预测系列程序定制或科研合作方向： 4.4.1 遗传算法GA/蚁群算法ACO优化Kmean-Transformer-LSTM负荷预测 4.4.2 粒子群算法PSO/蛙跳算法SFLA优化Kmean-Transformer-LSTM负荷预测 4.4.3 灰狼算法GWO/狼群算法WPA优化Kmean-Transformer-LSTM负荷预测 4.4.4 鲸鱼算法WOA/麻雀算法SSA优化Kmean-Transformer-LSTM负荷预测 4.4.5 萤火虫算法FA/差分算法DE优化Kmean-Transformer-LSTM负荷预测 4.4.6 其他优化算法优化Kmean-Transformer-LSTM负荷预测
recommend-type

Angular实现MarcHayek简历展示应用教程

资源摘要信息:"MarcHayek-CV:我的简历的Angular应用" Angular 应用是一个基于Angular框架开发的前端应用程序。Angular是一个由谷歌（Google）维护和开发的开源前端框架，它使用TypeScript作为主要编程语言，并且是单页面应用程序（SPA）的优秀解决方案。该应用不仅展示了Marc Hayek的个人简历，而且还介绍了如何在本地环境中设置和配置该Angular项目。 知识点详细说明： 1. Angular 应用程序设置： - Angular 应用程序通常依赖于Node.js运行环境，因此首先需要全局安装Node.js包管理器npm。 - 在本案例中，通过npm安装了两个开发工具：bower和gulp。bower是一个前端包管理器，用于管理项目依赖，而gulp则是一个自动化构建工具，用于处理如压缩、编译、单元测试等任务。 2. 本地环境安装步骤： - 安装命令`npm install -g bower`和`npm install --global gulp`用来全局安装这两个工具。 - 使用git命令克隆远程仓库到本地服务器。支持使用SSH方式（`***:marc-hayek/MarcHayek-CV.git`）和HTTPS方式（需要替换为具体用户名，如`git clone ***`）。 3. 配置流程： - 在server文件夹中的config.json文件里，需要添加用户的电子邮件和密码，以便该应用能够通过内置的联系功能发送信息给Marc Hayek。 - 如果想要在本地服务器上运行该应用程序，则需要根据不同的环境配置（开发环境或生产环境）修改config.json文件中的“baseURL”选项。具体而言，开发环境下通常设置为“../build”，生产环境下设置为“../bin”。 4. 使用的技术栈： - JavaScript：虽然没有直接提到，但是由于Angular框架主要是用JavaScript来编写的，因此这是必须理解的核心技术之一。 - TypeScript：Angular使用TypeScript作为开发语言，它是JavaScript的一个超集，添加了静态类型检查等功能。 - Node.js和npm：用于运行JavaScript代码以及管理JavaScript项目的依赖。 - Git：版本控制系统，用于代码的版本管理及协作开发。 5. 关于项目结构： - 该应用的项目文件夹结构可能遵循Angular CLI的典型结构，包含了如下目录：app（存放应用组件）、assets（存放静态资源如图片、样式表等）、environments（存放环境配置文件）、server（存放服务器配置文件如上文的config.json）等。 6. 开发和构建流程： - 开发时，可能会使用Angular CLI来快速生成组件、服务等，并利用热重载等特性进行实时开发。 - 构建应用时，通过gulp等构建工具可以进行代码压缩、ES6转译、单元测试等自动化任务，以确保代码的质量和性能优化。 7. 部署： - 项目最终需要部署到服务器上，配置文件中的“baseURL”选项指明了服务器上的资源基础路径。 8. 关于Git仓库： - 压缩包子文件的名称为MarcHayek-CV-master，表明这是一个使用Git版本控制的仓库，且存在一个名为master的分支，这通常是项目的主分支。 以上知识点围绕Angular应用“MarcHayek-CV:我的简历”的创建、配置、开发、构建及部署流程进行了详细说明，涉及了前端开发中常见的工具、技术及工作流。
recommend-type

管理建模和仿真的文件

管理Boualem Benatallah引用此版本：布阿利姆·贝纳塔拉。管理建模和仿真。约瑟夫-傅立叶大学-格勒诺布尔第一大学，1996年。法语。NNT：电话：00345357HAL ID：电话：00345357https://theses.hal.science/tel-003453572008年12月9日提交HAL是一个多学科的开放存取档案馆，用于存放和传播科学研究论文，无论它们是否被公开。论文可以来自法国或国外的教学和研究机构，也可以来自公共或私人研究中心。L’archive ouverte pluridisciplinaire
recommend-type

深入剖析：内存溢出背后的原因、预防及应急策略（专家版）

![深入剖析：内存溢出背后的原因、预防及应急策略（专家版）](https://d8it4huxumps7.cloudfront.net/uploads/images/65e82a01a4196_dangling_pointer_in_c_2.jpg?d=2000x2000) 参考资源链接：[Net 内存溢出（System.OutOfMemoryException）的常见情况和处理方式总结](https://wenku.csdn.net/doc/6412b784be7fbd1778d4a95f?spm=1055.2635.3001.10343) # 1. 内存溢出的概念及影响 内存溢出，又称
recommend-type

Java中如何对年月日时分秒的日期字符串作如下处理：如何日期分钟介于两个相连的半点之间，就将分钟数调整为前半点

在Java中，你可以使用`java.time`包中的类来处理日期和时间，包括格式化和调整。下面是一个示例，展示了如何根据给定的日期字符串（假设格式为"yyyy-MM-dd HH:mm:ss"）进行这样的处理： ```java import java.text.SimpleDateFormat; import java.time.LocalDateTime; import java.time.ZoneId; import java.time.ZonedDateTime; public class Main { public static void main(String[] args
recommend-type

Crossbow Spot最新更新 - 获取Chrome扩展新闻

资源摘要信息:"Crossbow Spot - Latest News Update-crx插件" 该信息是关于一款特定的Google Chrome浏览器扩展程序，名为"Crossbow Spot - Latest News Update"。此插件的目的是帮助用户第一时间获取最新的Crossbow Spot相关信息，它作为一个RSS阅读器，自动聚合并展示Crossbow Spot的最新新闻内容。 从描述中可以提取以下关键知识点： 1. 功能概述： - 扩展程序能让用户领先一步了解Crossbow Spot的最新消息，提供实时更新。 - 它支持自动更新功能，用户不必手动点击即可刷新获取最新资讯。 - 用户界面设计灵活，具有美观的新闻小部件，使得信息的展现既实用又吸引人。 2. 用户体验： - 桌面通知功能，通过Chrome的新通知中心托盘进行实时推送，确保用户不会错过任何重要新闻。 - 提供一个便捷的方式来保持与Crossbow Spot最新动态的同步。 3. 语言支持： - 该插件目前仅支持英语，但开发者已经计划在未来的版本中添加对其他语言的支持。 4. 技术实现： - 此扩展程序是基于RSS Feed实现的，即从Crossbow Spot的RSS源中提取最新新闻。 - 扩展程序利用了Chrome的通知API，以及RSS Feed处理机制来实现新闻的即时推送和展示。 5. 版权与免责声明： - 所有的新闻内容都是通过RSS Feed聚合而来，扩展程序本身不提供原创内容。 - 用户在使用插件时应遵守相关的版权和隐私政策。 6. 安装与使用： - 用户需要从Chrome网上应用店下载.crx格式的插件文件，即Crossbow_Spot_-_Latest_News_Update.crx。 - 安装后，插件会自动运行，并且用户可以对其进行配置以满足个人偏好。 从以上信息可以看出，该扩展程序为那些对Crossbow Spot感兴趣或需要密切跟进其更新的用户提供了一个便捷的解决方案，通过集成RSS源和Chrome通知机制，使得信息获取变得更加高效和及时。这对于需要实时更新信息的用户而言，具有一定的实用价值。同时，插件的未来发展计划中包括了多语言支持，这将使得更多的用户能够使用并从中受益。
recommend-type

"互动学习：行动中的多样性与论文攻读经历"

多样性她- 事实上SCI NCES你的时间表ECOLEDO C Tora SC和NCESPOUR l’Ingén学习互动，互动学习以行动为中心的强化学习学会互动，互动学习，以行动为中心的强化学习计算机科学博士论文于2021年9月28日在Villeneuve d'Asq公开支持马修·瑟林评审团主席法布里斯·勒菲弗尔阿维尼翁大学教授论文指导奥利维尔·皮耶昆谷歌研究教授：智囊团论文联合主任菲利普·普雷教授，大学。里尔/CRISTAL/因里亚报告员奥利维耶·西格德索邦大学报告员卢多维奇·德诺耶教授，Facebook /索邦大学审查员越南圣迈IMT Atlantic高级讲师邀请弗洛里安·斯特鲁布博士，Deepmind对于那些及时看到自己错误的人...3谢谢你首先，我要感谢我的两位博士生导师Olivier和Philippe。奥利维尔，"站在巨人的肩膀上"这句话对你来说完全有意义了。从科学上讲，你知道在这篇论文的（许多）错误中，你是我可以依
recommend-type

【Java内存管理终极指南】：一次性解决内存溢出、泄漏和性能瓶颈

![【Java内存管理终极指南】：一次性解决内存溢出、泄漏和性能瓶颈](https://community.cloudera.com/t5/image/serverpage/image-id/31614iEBC942A7C6D4A6A1/image-size/large?v=v2&px=999) 参考资源链接：[Net 内存溢出（System.OutOfMemoryException）的常见情况和处理方式总结](https://wenku.csdn.net/doc/6412b784be7fbd1778d4a95f?spm=1055.2635.3001.10343) # 1. Java内存模型
recommend-type

c 语言return用法

在C语言中，`return`关键字用于结束函数的执行并返回一个值给函数调用者（如果函数声明了返回类型）。它的基本语法如下： ```c return_type function_name(parameters) { // 函数体内的代码 if (条件) { return value; // 可选的，直接返回一个特定值 } else { // 可能的计算后返回 result = some_computation(); return result; } } ``` 当`return`被执行时，控制权会立即从当前函数转移