VBA语言如何打开指定文件名的文件?

VBA语言如何打开指定文件名的文件?,第1张

在D盘新建一个名为文件的文件夹,在里面创建几个Excel文件。

请点击输入图片描述

2

打开Excel,选择开发工具菜单项。

请点击输入图片描述

3

单击插入菜单,在Excel中插入一个名为Open的按钮。

请点击输入图片描述

4

在按钮上右击,进入Vba编辑窗口。

请点击输入图片描述

5

首先,定义三个变量,类型为工作簿。

请点击输入图片描述

6

接着,定义文件保存的路径,路径为D盘的文件目录。

请点击输入图片描述

7

用变量File,实现查找指定路径中的所有Excel文件。

请点击输入图片描述

8

用While语句,判断文件是否为空,空则退出循环。

请点击输入图片描述

9

用if语句判断Excel文件是否存在,如果存在则打开文件。

请点击输入图片描述

10

最后,File指向下一个文件,继续打开其他Excel文件。

请点击输入图片描述

11

运行程序,可以看到文件目录中的所有Excel文件都打开了。

请点击输入图片描述

打开文件如下:

Workbooks.Open ("C:\对账单\对帐单.xlsx")

这里你可以把“C:\对账单\”换成你的绝对路径,

你可以用:a = ThisWorkbook.Path

a = ThisWorkbook.Path

Workbooks.Open ("" &a &"&" \ "&对帐单.xlsx")

来获取你当前表的绝对路径,然后再打开,因为不知道你的具体情况,如果有问题可以hai我

如果当前文件夹下还有A文件夹可以用代码:

Workbooks.Open ("" &a &"&" \ A\"&b.xlsx")

Microsoft Excel是Microsoft为使用Windows和Apple Macintosh *** 作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具,再加上成功的市场营销,使Excel成为最流行的个人计算机数据处理软件。在1993年,作为Microsoft Office的组件发布了5.0版之后,Excel就开始成为所适用 *** 作平台上的电子制表软件的霸主。

步骤

1、首先我们打开一个工作样表作为例子。

2、我们使用alt+f11组合快捷键进入vbe编辑器, 插入一个新的模块,并在模块中输入以下代码:

Sub openWorkbook1()

Workbooks.Open "<需打开文件的路径><文件名>"

End Sub

3、看代码写的很明白了, 比如我要打开桌面上的一个工作薄,那么我们就是输入文件的路径,查找路径的方式是在文件上点击鼠标右键,然后选择属性菜单。标注的位置处即文件的路径。

4、然后使用斜杠分隔文件名。 文件名即图片中指示所在的地方。文件名和文件路径都可以使用鼠标选择并复制粘贴。

5、输入完整的代码

Workbooks.Open "C:UsersjohnDesktop新建 Microsoft Excel 工作表.xlsx"

然后运行,则可以打开这个工作薄。大家注意到<>括号是不需要的.,直接输入文件路径加名称就可以了。

6、这里需要注意的是, open方法虽然可以打开其他的文件,但是它是属于workbooks这个对象,所以打开文件的方式将会是以excel工作薄的方式打开,所以只能打开excel文件,而不能打开其他格式的文件。

以上就是在excel表格中使用vba函数打开工作薄方法介绍, *** 作很简单的,大家学会了吗?希望这篇文章能对大家有所帮助!


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/tougao/11429807.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-16
下一篇 2023-05-16

发表评论

登录后才能评论

评论列表(0条)

保存