在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函数打开工作薄方法介绍, *** 作很简单的,大家学会了吗?希望这篇文章能对大家有所帮助!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)