利用VBA选择并打开多个工作簿文件
发布时间：2023-08-23 01:24:58
标签：多个,工作,打开,文件,Excel函数
下面的VBA代码先用Application.GetOpenFilename方法显示“打开”文件对话框，然后打开所选择的一个或多个Excel工作簿文件。
Sub OpenWorkbooks()
On Error Resume Next
Dim SelectFiles As Variant
‘显示打开文件对话框
SelectFiles = Application.GetOpenFilename("Excel 文件 (*.xl*)," & "*.xl*", , "打开", , True)
‘未选择
If TypeName(SelectFiles) = "Boolean" Then
Exit Sub
End If
‘打开所选工作簿
For i = 1 To UBound(SelectFiles)
Workbooks.Open SelectFiles(i)
Next i
End Sub
0
投稿猜你喜欢
刚刚更新了Win10 20H2版本的小伙伴不熟悉新系统，还不是很清楚新版本中电脑文件如何加密，自然也不知道磁盘要怎么加密。今天小编就给大家带- 实现如下格式,章标题为汉字,其余小标题为全数字:第一章 一级标题1.1 二级标题1.1.1 * 标题1.2 二级标题第二章 一级标题2.1
- 在Word 2016中，选项卡用于制作列表或缩进文本。有时，您会有一些需要删除或清除的标签。若要取消设置或清除Word 2016中的制表位，
- 假如你的表格数据太多 过长， 那末打印 进去的文件 除首页， 前面的都没有 题目行， 如许看起来就很不 便利。 因而就有了 上面的动画教程，
- 如今，很多人喜欢网上购物，最为著名的就是淘宝了。但是网上购物总是存在风险的，有时候网上购物因为商品的问题，经常会出现一些纠纷，那么这个时候可
- 百度win10直通车检测系统语言必须为简体中文怎么办？本文将提供百度win10直通车检测系统语言必须为简体中文的解决方法供大家了解，希望可以
- 不少Win11用户在使用电脑的时候，发现电脑的Widgets面板被破坏了，遇到这种问题要怎么解决呢？下面就来看看解决的办法。方法一：等待官方
- win7旗舰版没有透明玻璃效果该怎么解决？有时候我们会遇到装好的win7旗舰版没有透明玻璃的效果，如果win7找不到毛玻璃效果该怎么办？下面
- 当我们更新win10 1909版本系统时，一些朋友会遇到无法完成更新并被撤消的情况。我认为可以通过在后台智能传输服务服务中进行设置来解决此类
- 在Excel中，分页符主要是起强制分页的作用，分页符是按纸张大小自动插人的，在自动插入的分页符对文件的整体效果不合适时，用户可以根据需要对分
- 说到蓝屏的问题，其实我们在使用电脑的过程中，经常会碰到这种类似的问题，而开机蓝屏对于我们来说，也是最麻烦的一种故障，无法进入系统，导致我们也
- 在Excel单元格中，我们常常输入文字的时候会发现如果不手动来换行的话，就会超出单元格的宽度，也许会占据其他的B1或者C1的单元格（如 下图
- 相信有了解的朋友都清楚，浏览器产品中的无图模式不仅能够节省流量，还可以在一定程度上提高网页的访问速度。那么，谷歌浏览器要怎么设置无图模式呢？
- Office是使用最多的办公软件,但有时候会无法安装或者安装出错。这可能是之前的Office卸载的时候没有卸载干净, 有残余项。这时就需要手
- 如何PhoneRescue for Ma使用修复文件已损坏的问题？PhoneRescue for Mac是一款专为恢复IPhone手机数据而
- 如何去除EXCEL表格中小数点后面的数字，双击表格时只留有整数，下面给大家分享Excel表格保留整数的设置方法，欢迎大家来到学习Excel表
- 最近有Win7系统用户反映，电脑的声音正常，就是任务栏上没有喇叭图标。后来去控制面板上的声音和音频设备属性中想要勾选“将音量图标放入任务栏”
- Win10 20H1快速预览版18950怎么手动更新升级？微软已经发布了Win10 20H1快速预览版18950，该怎么更新到这个版本呢？下
- iPad、iPhone 这两类产品，不同的人使用方式的差异十分大。有的人可能把 iPad 拿来办公、学习，有的人可能只是娱乐；iPhone
- 想要下载驱动管理进行更新的用户可以选择驱动总裁，使用非常方便，但是有些用户就会担心驱动总裁是不是流氓软件，下载之后卸载不掉或者给电脑安装一些
