VBA两种打开文件窗口的方式

最新推荐文章于 2024-06-25 13:17:14 发布

Zero_fu

最新推荐文章于 2024-06-25 13:17:14 发布

阅读量5.8k

点赞数 3

分类专栏： VBA 文章标签： excel vba

本文链接：https://blog.csdn.net/Zero_fu/article/details/109175452

版权

VBA 专栏收录该内容

5 篇文章 1 订阅

订阅专栏

VBA两种打开文件窗口的方式

第一种

获取文件夹路径，返回完整路径

	Dim	Fso, Fld	'定义文件路径
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set Fld = Fso.getfolder(CreateObject("Shell.Application").BrowseForFolder(0, "请选择路径", 0, "").Self.Path & "")

效果如下
在这里插入图片描述
返回完整路径

第二种

获取文件路径，返回文件完整路径

	Dim Fld 
    Fld = Application.GetOpenFilename("Excel 文件,*.xls;*.xlsx;*.xlsm")

效果如下
在这里插入图片描述
返回的是完整的路径

结语

以上。
目前我是用这两种方法，一种获取文件夹路径，一种获取Excel文件路径。

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

Zero_fu

关注关注

3
点赞
踩
36

收藏

觉得还不错? 一键收藏
2
评论
复制链接

分享到 QQ

分享到新浪微博

扫一扫

专栏目录

vba写的完整例子加用户窗口操作选择文件读取文件等

06-13

vba完整的例子，有用户窗口操作，选择文件操作，读取文件，进行逻辑计算，获得结果，输出到excel表中。贪心算法，欧几里得定律。

VBA文件操作

11-01

在我们日常使用Excel的时候，不仅会用到当前Excel文件的数据，还经常需要访问其他的数据文件。这些数据文件可能是Excel文件、文本文件或数据库文件等。经常有朋友会问如何在vba代码里操作这些数据文件？本文就系统地介绍一下在Excel中应用VBA操作数据文件的方法。

2 条评论您还未登录，请先登录后发表或查看评论

VBA 利用弹出式对话框选择文件或文件夹

最新发布

记录

06-25

772

VBA 利用弹出式对话框选择文件或文件夹。

VBA-读取文件的几种方法用时对比

qq_26244463的博客

03-25

1465

VBA-读取Excel文件的四种方法

VBA 打开文件

02-22

2984

用Excel VBA选择文件、打开文件介绍如何用VBA选择文件和用VBA打开文件。点击打开文件会弹出一个windows文件打开对话框，在EXCEL中VBA怎么实现这个功能？复制内容到剪贴板代码:Sub SelectFile() Dim FileName As Variant '打开文件对话框返回的文件名，是一个全路径文件名，其值也可能是False，因此类型为Variant Dim sFileName As String

VBA调用文件选择对话框并打开指定文件

神奇的BI

08-01

3959

实例需求：VBA开发的应用程序中，如何为用户提供文件选择对话框，选中PDF文档之后，使用默认程序打开PDF文件。

VBA：Application.GetOpenFilename打开指定文件夹里的excel类型文件（xls、xlsx）

rubyw的博客

08-28

4070

'Application.GetOpenFilename(“文件类型筛选规则(就是说明)”,“优先显示第几个类型的文件”,“标题”,“是否允许选择多个文件名”)'GetOpenFilename相当于Excel打开窗口，通过该窗口选择要打开的文件，并可以返回选择的文件完整路径和文件名。'“文件类型说明文字,*.文件类型后辍”

VBA打开文件选择框、取得文件全路径与文件名

小苏博客--关注软件开发

03-16

4956

在VBA编程中我们，常常需要手动打开文件选择框、取得文件全路径与文件名，下载这个例子可以实现这些功能，代码如下： [code="c#"] 'VBA打开文件选择框、取得文件全路径与文件名 Sub selectExcelfile() Dim fileNameObj As Variant Dim aFile As Variant ...

Excel 2010 VBA 入门 120 显示打开文件对话框

复行数十步

08-13

2527

目录码1 Application.GetOpenFilename方法码2 FileDialog对象 FileDialog对象的常用属性使用FileDialog对象的属性Filters添加筛选 FileDialog对象的Show方法和Execute方法遍历通过FileDialog对象选择的文件 Application. GetSaveAsFilename方法 Application. Dialog对象码1 使用Application.GetOpenFilename方...

读取excel数据，根据word模板生成word文件。【python】【word vba】两种方法

qq_41807327的博客

03-20

5802

文章目录1、背景首次签合同人员.xlsx模板：简易劳动合同.docx2、python代码问题3、word vba1) 根据模板批量生成文件2) 批量打印文件4、总结：5、PS: 1、背景行政部的同事每次都要根据excel里面的信息，制作word版的劳动合同，然后他们有一天找到了我，问我可不可以帮忙。首次签合同人员.xlsx 需要获取该表的【姓名】【证件号码】【岗位】【到职日期】模板：简易劳动合同.docx 原来的word模板如下因为用python的docxtpl批量修改就要把需要替换的地方用2个

使用vba语言的excel文件使用类似vb语言的VBA代码.zip

10-25

6. **VBA数组与集合**：VBA中的数组可以存储一组相同类型的数据，而集合（Collection）则可以存储任意类型的对象，这两种数据结构在处理大量数据时非常有用。 7. **VBA函数与子程序**：VBA函数用于返回一个值，而...

将EXCEL表格导入CAD中的VBA源代码

07-19

将EXCEL表格导入CAD中的VBA小程序 1、能识别EXCEL表格单元格格式和合并单元格; 2、能设字高比，并保证字在表格内；

Excel VBA - 文件及目录操作

←か淡定☆ ヾ的博客

05-13

1307

VBA 有很多用于文件操作的语句和函数，能满足绝大多数场景下的文件操作要求。本文将按操作目的一一进行介绍。

VBA文件对话框的应用（VBA打开文件、VBA选择文件、VBA选择文件夹)

weixin_30877181的博客

06-29

5845

在VBA中经常要用到文件对话框来进行打开文件、选择文件或选择文件夹的操作。用Microsoft Office提供的文件对话框比较方便。用法如下Application.FileDialog(fileDialogType)fileDialogTypeMsoFileDialogType类型，必需。文件对话框的类型。　　MsoFileDialogType 可为以下 MsoFi...

VBA 把文件夹压缩成ZIP文件

记录

02-28

1006

【代码】VBA 把文件夹压缩成ZIP文件。

VBA打开WORD文档

豪情云天博客,分享经典好用代码,和工具,感谢大家的关注和支持!

05-29

508

【代码】VBA打开WORD文档。

VBA打开文件的方式及各个方式的使用优劣 Application.GetOpenFilename、FileSystemObject（Scripting.FileSystemObject）：

偶尔想看云飞的博客

03-22

3176

VBA程序中打开文件和文件夹的函数汇总，以及对应的方法的优缺点

VBA调用系统文件夹选择的窗口

suihu的专栏

11-14

1851

VBA 文件夹

VBA 文件操作

weixin_42578747的博客

05-11

468

'1 判断A.Xls文件是否存在 Sub W1() If Len(Dir("d:/A.xls")) = 0 Then MsgBox "A文件不存在" Else MsgBox "A文件存在" End If End Sub '2 判断A.Xls文件是否打开 Sub W2() Dim X As Integer ...

用vba 写一段文本文件比较的代码

08-09

### 回答1：以下是一段用 VBA 编写的文本文件比较的代码示例： ``` Sub CompareFiles() Dim file1 As String, file2 As String Dim line1 As String, line2 As String Dim i As Long file1 = "C:\file1.txt" file2 = "C:\file2.txt" Open file1 For Input As #1 Open file2 For Input As #2 i = 1 Do Until EOF(1) And EOF(2) Line Input #1, line1 Line Input #2, line2 If line1 <> line2 Then Debug.Print "Line " & i & " differs: " & line1 & " <> " & line2 End If i = i + 1 Loop Close #1 Close #2 End Sub ``` 该代码比较两个文件 file1.txt 和 file2.txt 的每一行内容，如果有不同的行，则在调试窗口输出该行的行号以及该行内容。 ### 回答2：使用VBA可以编写一段文本文件比较的代码。下面是一个示例： ```vba Sub CompareTextFiles() Dim textFile1 As String Dim textFile2 As String Dim file1 As Integer Dim file2 As Integer Dim line1 As String Dim line2 As String ' 设置需要比较的文本文件路径 textFile1 = "C:\文件1.txt" textFile2 = "C:\文件2.txt" ' 打开文件1以及文件2 file1 = FreeFile Open textFile1 For Input As file1 file2 = FreeFile Open textFile2 For Input As file2 ' 逐行比较文件内容 Do While Not EOF(file1) And Not EOF(file2) Line Input #file1, line1 Line Input #file2, line2 If line1 <> line2 Then MsgBox "文件不同" Exit Sub End If Loop ' 如果文件长度不同，则也被视为不同 If EOF(file1) <> EOF(file2) Then MsgBox "文件不同" Else MsgBox "文件相同" End If ' 关闭文件 Close file1 Close file2 End Sub ``` 使用上述代码，我们可以比较两个文本文件的内容是否相同。首先，我们需要将需要比较的文本文件的路径分别赋值给`textFile1`和`textFile2`变量。然后，通过`Open`语句以读取模式打开这两个文件。接着，使用`Line Input`语句逐行读取文件内容进行比较。如果发现某一行不同，则弹出"文件不同"的提示框并退出。最后，通过比较文件的EOF（End of File）属性判断文件长度是否相同，再次弹出相应的提示框。最后，关闭文件并结束程序。这段代码可以帮助我们快速比较文本文件内容，判断文件是否相同。当然，根据实际需要可以对代码进行修改和扩展。 ### 回答3： VBA（Visual Basic for Applications）是一种用于Microsoft Office应用程序的编程语言，可以用于自动化任务和编写宏。下面是用VBA编写文本文件比较的代码：首先，我们需要在VBA编辑器中打开所需的应用程序（例如，Excel或Word）。然后，在模块中编写以下代码： ``` Sub CompareTextFiles() Dim FilePath1 As String Dim FilePath2 As String Dim TextFile1 As String Dim TextFile2 As String Dim File1Content As String Dim File2Content As String ' 定义文本文件路径 FilePath1 = "C:\Path\to\File1.txt" ' 文本文件1的路径 FilePath2 = "C:\Path\to\File2.txt" ' 文本文件2的路径 ' 打开文本文件，并将其内容存储在字符串变量中 Open FilePath1 For Input As #1 Do Until EOF(1) Line Input #1, TextFile1 File1Content = File1Content & TextFile1 & vbCrLf Loop Close #1 Open FilePath2 For Input As #2 Do Until EOF(2) Line Input #2, TextFile2 File2Content = File2Content & TextFile2 & vbCrLf Loop Close #2 ' 比较两个文本文件的内容 If File1Content = File2Content Then MsgBox "两个文本文件内容相同。" Else MsgBox "两个文本文件内容不同。" End If End Sub ``` 以上代码首先定义了两个字符串变量`FilePath1`和`FilePath2`，用于指定要比较的两个文本文件的路径。然后，使用`Open`语句打开这两个文件，并使用`Line Input`语句逐行读取文件内容，并将每一行存储在文本变量`TextFile1`和`TextFile2`中。将读取的文件内容连接到`File1Content`和`File2Content`中。最后，通过比较这两个字符串的内容来判断文本文件是否相同，并弹出相应的消息框。请注意，你需要根据实际的文本文件路径和文件名修改代码中的`FilePath1`和`FilePath2`变量的值。此外，代码还可以根据需要进行进一步的修改和优化。