VBA中如何打开一个文件夹内的所有EXCEL文件?

Sub Macro1()Dim myDialog As FileDialog, oFile As Object, strName As String, n As IntegerDim FSO As Object, myFolder As Object, myFiles As Object ,Dim fn$Set myDialog = Application.FileDialog(msoFileDialogFolderPicker)n = 1With myDialogIf .Show <> -1 Then Exit SubSet FSO = CreateObject("Scripting.FileSystemObject") '这是文件夹选择,点选到你存放文件的那个Set myFolder = FSO.GetFolder(.InitialFileName)Set myFiles = myFolder.FilesFor Each oFile In myFilesstrName = UCase(oFile.Name)strName = VBA.Right(strName, 3)If strName = "xls" Or strName = "XLS" Then '这是扩展名选择'下面就可接着写打开文件读取数据再写入的语句了,如下:

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/f7xyrr77j.html