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

以下是一个实现该功能的示例 VBS 代码：

' 定义 Excel 文件路径
Const EXCEL_FILE_PATH = "C:\example.xlsx"
' 定义导出的文件夹路径
Const EXPORT_FOLDER_PATH = "D:\"

' 创建 Excel 对象
Set excel = CreateObject("Excel.Application")
' 打开 Excel 文件
Set workbook = excel.Workbooks.Open(EXCEL_FILE_PATH)
' 获取第一个工作表
Set worksheet = workbook.Worksheets(1)

' 循环处理每一行
For i = 1 To 100
    ' 读取当前行内容
    rowContent = worksheet.Cells(i, 1).Value
    ' 定义导出文件路径
    exportFilePath = EXPORT_FOLDER_PATH & i & "\content.txt"
    ' 创建导出文件夹
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CreateFolder EXPORT_FOLDER_PATH & i
    ' 写入文件内容
    Set fileStream = CreateObject("ADODB.Stream")
    fileStream.Charset = "UTF-8"
    fileStream.Open
    fileStream.WriteText rowContent
    fileStream.SaveToFile exportFilePath, 2
    fileStream.Close
Next

' 释放资源
workbook.Close False
excel.Quit
Set excel = Nothing
Set workbook = Nothing
Set worksheet = Nothing
Set fso = Nothing
Set fileStream = Nothing

该脚本使用 Excel COM 对象读取指定文件中的内容，然后逐行将每行内容写入以行号命名的文件夹下的 `content.txt` 文件中。在写入文件之前，还需要使用文件系统对象创建对应的文件夹。