Vba循环在一个excel工作表上打开一个文件夹中的多个文本文件

基础概念

VBA（Visual Basic for Applications）是Microsoft Office软件中的编程语言，用于自动化和扩展Office应用程序的功能。在Excel中使用VBA循环打开文件夹中的多个文本文件，可以通过文件系统对象（FileSystemObject）来实现文件的遍历和打开。

类型

在Excel中使用VBA循环打开文件主要涉及以下类型：

文件系统对象（FileSystemObject）：用于遍历文件夹和文件。
Workbooks.OpenText方法：用于打开文本文件并将其导入到Excel工作表中。

应用场景

数据导入：从多个文本文件中批量导入数据到Excel工作表。
文件处理：对多个文本文件进行批量处理，如格式转换、数据清洗等。

示例代码

以下是一个简单的VBA脚本示例，用于在Excel中循环打开指定文件夹中的所有文本文件：

Sub OpenTextFiles()
    Dim fso As Object
    Dim folder As Object
    Dim file As Object
    Dim filePath As String
    
    ' 创建文件系统对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 指定文件夹路径
    Set folder = fso.GetFolder("C:\Path\To\Your\Folder")
    
    ' 遍历文件夹中的所有文件
    For Each file In folder.Files
        If LCase(file.Name) Like "*.txt" Then
            filePath = file.Path
            ' 打开文本文件
            Workbooks.OpenText Filename:=filePath, _
                                Origin:=xlWindows, _
                                StartRow:=1, _
                                DataType:=xlDelimited, _
                                TextQualifier:=xlDoubleQuote, _
                                ConsecutiveDelimiter:=False, _
                                Tab:=True, _
                                Semicolon:=False, _
                                Comma:=False, _
                                Space:=False, _
                                Other:=False, _
                                FieldInfo:=Array(1, 1), _
                                TrailingMinusNumbers:=True
        End If
    Next file
    
    Set fso = Nothing
End Sub