vbs 将excel表格的100行每行的内容导出成txt文件,在D盘创建100文件夹,每个文件夹放一个txt文件
时间: 2024-02-05 11:13:15 浏览: 93
以下是使用 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,文件内容为该行数据的各列内容。
相关推荐
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)