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

时间: 2024-02-05 13:13:15 浏览: 37
以下是使用 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,文件内容为该行数据的各列内容。

相关推荐

最新推荐

recommend-type

VBS实现将Excel表格保存为txt文本

希望能够找到个能给excel表另存为TXT的VBS代码,虽然另存为可以选择,但还是需要直接VBS执行这一步另存为TXT格式的,应该如何写代码呢
recommend-type

VBS基础篇 vbscript Sendkeys模拟键盘操作

在vbscript中我们可以object.SendKeys模拟键盘操作,将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行,,需要的朋友可以参考下
recommend-type

VBA将excel数据表生成JSON文件

本文给大家汇总介绍了几种使用VBA处理EXCEL并生成JSON文件的方法和思路,非常的实用,有需要的小伙伴可以参考下。
recommend-type

zigbee-cluster-library-specification

最新的zigbee-cluster-library-specification说明文档。
recommend-type

管理建模和仿真的文件

管理Boualem Benatallah引用此版本:布阿利姆·贝纳塔拉。管理建模和仿真。约瑟夫-傅立叶大学-格勒诺布尔第一大学,1996年。法语。NNT:电话:00345357HAL ID:电话:00345357https://theses.hal.science/tel-003453572008年12月9日提交HAL是一个多学科的开放存取档案馆,用于存放和传播科学研究论文,无论它们是否被公开。论文可以来自法国或国外的教学和研究机构,也可以来自公共或私人研究中心。L’archive ouverte pluridisciplinaire
recommend-type

MATLAB柱状图在信号处理中的应用:可视化信号特征和频谱分析

![matlab画柱状图](https://img-blog.csdnimg.cn/3f32348f1c9c4481a6f5931993732f97.png) # 1. MATLAB柱状图概述** MATLAB柱状图是一种图形化工具,用于可视化数据中不同类别或组的分布情况。它通过绘制垂直条形来表示每个类别或组中的数据值。柱状图在信号处理中广泛用于可视化信号特征和进行频谱分析。 柱状图的优点在于其简单易懂,能够直观地展示数据分布。在信号处理中,柱状图可以帮助工程师识别信号中的模式、趋势和异常情况,从而为信号分析和处理提供有价值的见解。 # 2. 柱状图在信号处理中的应用 柱状图在信号处理
recommend-type

前端深拷贝 和浅拷贝有哪些方式,你在哪里使用过

前端深拷贝和浅拷贝的方式有很多,下面列举几种常用的方式: 深拷贝: 1. JSON.parse(JSON.stringify(obj)),该方法可以将对象序列化为字符串,再将字符串反序列化为新的对象,从而实现深拷贝。但是该方法有一些限制,例如无法拷贝函数、RegExp等类型的数据。 2. 递归拷贝,即遍历对象的每个属性并进行拷贝,如果属性值是对象,则递归进行拷贝。 3. 使用第三方库如lodash、jQuery等提供的深拷贝方法。 浅拷贝: 1. Object.assign(target, obj1, obj2, ...),该方法可以将源对象的属性浅拷贝到目标对象中,如果有相同的属性,则会
recommend-type

JSBSim Reference Manual

JSBSim参考手册,其中包含JSBSim简介,JSBSim配置文件xml的编写语法,编程手册以及一些应用实例等。其中有部分内容还没有写完,估计有生之年很难看到完整版了,但是内容还是很有参考价值的。
recommend-type

"互动学习:行动中的多样性与论文攻读经历"

多样性她- 事实上SCI NCES你的时间表ECOLEDO C Tora SC和NCESPOUR l’Ingén学习互动,互动学习以行动为中心的强化学习学会互动,互动学习,以行动为中心的强化学习计算机科学博士论文于2021年9月28日在Villeneuve d'Asq公开支持马修·瑟林评审团主席法布里斯·勒菲弗尔阿维尼翁大学教授论文指导奥利维尔·皮耶昆谷歌研究教授:智囊团论文联合主任菲利普·普雷教授,大学。里尔/CRISTAL/因里亚报告员奥利维耶·西格德索邦大学报告员卢多维奇·德诺耶教授,Facebook /索邦大学审查员越南圣迈IMT Atlantic高级讲师邀请弗洛里安·斯特鲁布博士,Deepmind对于那些及时看到自己错误的人...3谢谢你首先,我要感谢我的两位博士生导师Olivier和Philippe。奥利维尔,"站在巨人的肩膀上"这句话对你来说完全有意义了。从科学上讲,你知道在这篇论文的(许多)错误中,你是我可以依
recommend-type

MATLAB柱状图在数据分析中的作用:从可视化到洞察

![MATLAB柱状图在数据分析中的作用:从可视化到洞察](https://img-blog.csdnimg.cn/img_convert/1a36558cefc0339f7836cca7680c0aef.png) # 1. MATLAB柱状图概述** 柱状图是一种广泛用于数据可视化的图表类型,它使用垂直条形来表示数据中不同类别或组别的值。在MATLAB中,柱状图通过`bar`函数创建,该函数接受数据向量或矩阵作为输入,并生成相应的高度条形。 柱状图的优点在于其简单性和易于理解性。它们可以快速有效地传达数据分布和组别之间的比较。此外,MATLAB提供了广泛的定制选项,允许用户调整条形颜色、