Question

我正在处理一个需要选择我想要的任何文件夹的宏，并导入该文件夹中cvs，xls，txt的所有类型的文件，并将它们全部放入1个工作簿（而不是工作表）。因此导入的所有选项卡都将存在。现在代码只能采用一种类型。我尝试将以下代码更改为：

fileName = Dir(directory & "*.csv, *.xls,*.txt")

但没有发生任何事情。

下面的宏现在有一个固定的目录路径，但我希望弹出一个对话框，让我可以灵活地选择我要导入文件的任何文件夹。这是我到目前为止所得到的，但请修改它或制作一个最佳的新作品。

Sub Input_Sheets()

Dim directory As String, fileName As String, sheet As Worksheet, total As Integer
Dim WrdArray() As String

Application.ScreenUpdating = False
Application.DisplayAlerts = False

directory = "C:\Users\ktam\Desktop\New folder\"

'Switch to the preferred type the folders hold. (It cannot hold 2 types)
'fileName = Dir(directory & "*.xl??")
fileName = Dir(directory & "*.csv")

'As long as the file name is found in the folder, import the file.
Do While fileName <> ""
Workbooks.Open (directory & fileName) 'Opens a random file from the folder
    'WrdArray() = Split(fileName, ".")

    For Each sheet In Workbooks(fileName).Worksheets
    'Workbooks(fileName).ActiveSheet.Name = WrdArray(0) '0 Puts in the name of the document

                total = ThisWorkbook.Worksheets.Count
                Workbooks(fileName).Worksheets(sheet.Name).Copy After:=ThisWorkbook.Worksheets(total)
    Next sheet

Workbooks(fileName).Close
fileName = Dir()
Loop

Application.ScreenUpdating = True
Application.DisplayAlerts = True

MsgBox "Complete"

End Sub

Answer 1

我有这个代码，它对于在文件夹中循环并根据文件名将文件加载到数组中非常有用：

Global sfolder As String

sub file_merger()

file = Dir(folderchooser)

dim trackerfiles(1 to 500) as variant

counter = 1

Do While file <> ""

    if instr(1,file,".xlsx") > 0 or instr(1,file,".csv") > 0 then   


    trackerfiles(counter) = sfolder & "\" & file
    file = Dir()
    counter = counter + 1

    If file = "" Then
        Exit Do
    End If

    End if

Loop


end sub

Function folderchooser() As String

With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Select a folder"
    .AllowMultiSelect = False
    .Show
    sfolder = .SelectedItems(1)
End With

folderchooser = sfolder & "\"

End Function

您可以将它加载到数组中，然后编写自己的代码将文件导入工作簿（棘手的部分是循环遍历文件夹）。

将所有类型的文件（cvs，xls，txt）从文件夹目录导入到一个主Excel文件中

1 个答案: