批量创建文件夹和文件——excel VBA实现

当需要创建大量文件夹及文件时,可借助excel vba 实现,如下图:

批量创建文件名为1-10的文件夹,每个文件夹内有个与文件名相同的txt文件,txt文件内的数字也跟文件名相同。

附代码:

vbnet 复制代码
Sub CreateFoldersAndFiles()


    Dim i As Integer
    Dim folderPath As String
    Dim filePath As String
    Dim textFile As Integer
    
    ' 获取当前Excel文件所在的文件夹路径
    folderPath = ThisWorkbook.Path & "\"
    
    ' 循环创建10个文件夹和txt文件
    For i = 1 To 10
        ' 创建文件夹
        MkDir folderPath & i
        
        ' 生成txt文件路径
        filePath = folderPath & i & "\" & i & ".txt"
        
        ' 创建并写入txt文件
        textFile = FreeFile
        Open filePath For Output As textFile
        Print #textFile, i
        Close textFile
    Next i
    
    MsgBox "文件夹和文件创建完成!" 
End Sub

代码代写,可点击下方联系 ↓

相关推荐
Lucky GGBond3 小时前
使用 EasyExcel 封装通用 Excel 导出工具类
excel
似水流年 光阴已逝8 小时前
从Excel姓名匹配案例学Python:由点及面的系统化学习指南
开发语言·python·excel
best_scenery9 小时前
用excel绘制茎叶图
excel·分布图
rannn_1111 天前
【学以致用|python自动化办公】OCR批量识别自动存为Excel(批量识别发票)
python·ocr·excel·财务
小钱c71 天前
Python使用 pandas操作Excel文件并新增列数据
python·excel·pandas
Shi_haoliu1 天前
Vue2 + Office Add-in关于用vue项目于加载项控制excel单元格内容(Demo版)
前端·javascript·vue.js·node.js·html·excel·office
njsgcs1 天前
json转excel python pd
python·json·excel·pd
RECRUITGUY1 天前
Excel中将毫秒时间戳转换为标准时间格式
excel
SunkingYang2 天前
详细介绍C++中捕获异常类型的方式有哪些,分别用于哪些情形,哪些异常捕获可用于通过OLE操作excel异常
c++·excel·mfc·异常捕获·comerror
lied16636348062 天前
List导出到Excel文件
servlet·list·excel