在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文件都打开了。
请点击输入图片描述
可以采取以下三个手段进行打开:1、在WINDOWS里面改了TXT的默认打开程序
2、试试先用VBA启动editplus程序,再用sedkeys打开试试,
3、看悔宴瞎editplus有没有直接带参数启祥氏动碧空的同时打开指定的txt文件。
方法:open 事件
Private Sub Workbook_Open()
End Sub
在VBE窗口中左边的“thisworkbook" ,双击,就出现左边(通族唯用),把它选为workbook,再选OPEN事件
在这个事件中加入代码,就可吵物以了!
也升穗液可以用
Sub auto_open()
End Sub
这个放在任何模块都可以。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)