excel vba如何打开

excel vba如何打开

　　用excel VBA 编写打开和关闭多个工作薄，相应的代码如下：

　　1、打开指定工作簿

　　dim wb as workbook

　　set wb = " 文件路径及文件名"

　　workbooks.open filename:= wb

　　2、关闭所有工作簿并保存

　　workbooks.close

　　3、打开多个工作薄的程序代码：

　　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

【excel vba如何打开】相关文章：

如何打开幸福的大门？11-26

APPX文件如何打开07-31

如何打开xlsx文件11-27

如何打开jsp文件11-27

如何让Excel表格行列自动求和11-27

怎么解决Excel打开时出现stdole32.tlb问题07-27

双语阅读：如何打开幸福的大门？11-26

excel2007如何标记重复数据11-27

EXCEL如何清除单元格内容和格式11-27

WPS如何设置默认打开方式11-27