利用VBA選擇并打開多個工作簿文件

利用VBA選擇并打開多個工作簿文件

下面的VBA代碼先用Application.GetOpenFilename方法顯示“打開”文件對話框，然后打開所選擇的一個或多個Excel工作簿文件。

Sub OpenWorkbooks()On Error Resume NextDim SelectFiles As Variant‘顯示打開文件對話框SelectFiles = Application.GetOpenFilename("Excel 文件 (*.xl*)," & "*.xl*", , "打開", , True)‘未選擇If TypeName(SelectFiles) = "Boolean" ThenExit SubEnd If‘打開所選工作簿For i = 1 To UBound(SelectFiles)Workbooks.Open SelectFiles(i)Next iEnd Sub

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發(fā)現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發(fā)現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。