把多个CSV文件加载到一个EXCEL文件

最新推荐文章于 2025-02-12 22:17:39 发布

heziyun99

最新推荐文章于 2025-02-12 22:17:39 发布

阅读量1.4k

点赞数 1

CC 4.0 BY-SA版权

分类专栏： VB 文章标签： csv excel string integer path file

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文链接：https://blog.youkuaiyun.com/heziyun99/article/details/1862575

本文介绍了如何将多个CSV文件高效地导入到一个Excel文件中，涵盖了读取CSV、处理数据以及写入Excel的步骤，适合需要批量整合数据的场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Option Explicit

Const path1 = " C: emp "

Const path2 = " C: empCsvToExcel "

Const sPattern = " *.csv "

Private Sub Form_Load()

On Error GoTo err

Dim xlApp As New Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

Dim xlSheet1 As Excel.Worksheet

Dim excelname As String

excelname = Replace (DateTime.Now, " : " , " - " ) & " .xls "

最低0.47元/天解锁文章

200万优质内容无限畅学

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。