vbs 将excel表格的100行每行的内容导出成txt文件，在D盘创建100文件夹，每个文件夹放一个txt文件

以下是使用 VBS 脚本实现将 Excel 表格的 100 行每行的内容导出成 txt 文件，并在 D 盘创建 100 个文件夹，每个文件夹放一个 txt 文件的步骤：

1. 打开 Excel 表格，按住 ALT+F11 键，打开 VBA 编辑器。

2. 在 VBA 编辑器中，选择 插入->模块，将以下 VBS 代码复制粘贴到新建的模块中：

Sub ExportToTxt()

' 设置参数
Dim sourcePath As String
sourcePath = ActiveWorkbook.Path & "\"

Dim destPath As String
destPath = "D:\"

Dim folderName As String
folderName = "Folder"

Dim fileExt As String
fileExt = ".txt"

Dim rowsCount As Integer
rowsCount = 100

Dim i As Integer, j As Integer

' 循环处理每行数据
For i = 1 To rowsCount
    ' 创建文件夹
    Dim folderPath As String
    folderPath = destPath & folderName & i
    If Dir(folderPath, vbDirectory) = "" Then
        MkDir folderPath
    End If
    
    ' 导出每行数据到 txt 文件
    Dim fileName As String
    fileName = folderPath & "\" & folderName & i & fileExt
    
    Dim fileNum As Integer
    fileNum = FreeFile()
    
    Dim rowContent As String
    rowContent = ""
    
    Open fileName For Output As #fileNum
    
    For j = 1 To Columns.Count
        rowContent = rowContent & Cells(i, j).Value & vbTab
    Next j
    
    Print #fileNum, rowContent
    
    Close #fileNum
Next i

End Sub

3. 在 VBA 编辑器中，将光标放在 ExportToTxt() 函数名上，按下 F5 键或点击 工具->宏->运行，运行该 VBS 代码。

4. 运行完后，即可在 D 盘根目录下看到创建的 100 个文件夹，每个文件夹里包含一个 txt 文件，文件名为 Folder[行数].txt，文件内容为该行数据的各列内容。