vb net excel 剪贴板 粘贴_不可思议,100个Excel文件合并用时不到1分钟!

de83db05a575cf702cf9c10b8ceaa335.gif

用Excel处理数据时,数据往往是在不同的Excel工作簿文件中。

比如有个任务要将下图中100个Excel工作簿文件中的数据都合并到一个Excel工作簿中。

665cc865240a0616c3c06b75b08d4659.png

每个Excel工作簿中的数据结构都是一样的,内容都有大几千行。

a892135d4a9efbfa16b7fabf33d32d78.png

这项任务如果对Excel的功能不熟悉的人做起来,少则1-2个小时,多则甚至做1天,不断地复制粘贴。哪怕是对vba很熟悉的人,搬砖也要花上不少时间

但是自从有了Power Query,你都不敢相信,这样的任务只要1分钟就能搞定。

接下来,就让我们一起来见证下Power Query 合并文件的高效。

Step1 新建一个空白Excel工作簿,单击“数据”选项卡下的“获取和转换数据”工作组中的“获取数据”,选择“来自文件”→“从文件夹”。

dc43fbfbe9b520f4c8c1c19ea3466eb4.gif

Step2.在弹出的选择文件夹对话框中选择要合并的所有Excel工作簿所在的文件夹,单击“确定”。

14171a022d238cb488d56f9fce0b0012.png

Step3.在接下来弹出的对话框中,直接单击“组合”下的“合并和加载”按钮。

4a2c15cb24b3ca6adc7a1f8565d4c967.png

Step4.在接下来出现的对话框中选择第一个Excel工作簿中要合并的Excel工作表,然后单击“确定”,100个Excel工作簿的数据就都合并进来了。

83ddf57ca742c33f0ac0581beef4c07f.png

8c70f3734dd8b600c70bfe3c8a8f09cc.gif

如果文件夹下的Excel工作簿内容改变了或者新增了其它同结构的Excel工作簿,还不用重新做一遍,只要单击“数据”选项卡下的“刷新”按钮或者按下组合快捷键Alt+F5即可将所有内容重新合并进来

dfaa1feb5f024884d4d9b5db0b5bf5e9.gif

神不神奇?这就是Power Query的高效,1分钟不到就完成了别人1-2个小时才能完成的工作。

本篇文章作者是我的一个好朋友也是办公软件界的大佬,公众号内容从简单的excel、word、ppt等办公软件的基础知识,到vba、vb、vb.net、python等编程语言的自动化办公的解决方案,解放你的小手,干货满满,快点关注吧!

5d61fb8ebb1c31afea9a4f3341b681b2.png

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
VB合并Excel文件文件名可以通过以下步骤来实现。 1. 首先,需要引用Microsoft Excel的对象库。在VB的"工具"->"引用"中勾选"Microsoft Excel 15.0 Object Library"(版本号可能会有所不同)。 2. 创建Excel应用程序对象和工作簿对象。使用CreateObject("Excel.Application")来创建新的Excel应用程序对象,然后使用该对象的Workbooks属性来创建一个新的工作簿对象。 3. 打开要合并Excel文件。可以使用工作簿对象的Open方法来打开指定的文件。可以使用FileDialog对话框来选择要合并Excel文件,或者通过指定文件的路径来直接打开。 4. 将要合并的工作表复制到目标工作簿中。可以使用工作簿对象的Worksheets属性来访问工作表,使用工作表对象的Copy方法将其复制到目标工作簿。 5. 依次打开并复制其他要合并Excel文件的工作表,直到所有文件都复制完毕。 6. 保存目标工作簿并关闭Excel应用程序。可以使用工作簿对象的SaveAs方法来指定保存的文件名和路径,然后使用Close方法关闭工作簿和Excel应用程序。 以下是一个示例代码,用于合并名为"file1.xlsx"和"file2.xlsx"的两个Excel文件: ```vb Imports Microsoft.Office.Interop.Excel Public Class Form1 Private Sub MergeExcelFiles_Click(sender As Object, e As EventArgs) Handles MergeExcelFiles.Click Dim excelApp As New Application Dim targetWorkbook As Workbook = excelApp.Workbooks.Add Dim fileDialog As New OpenFileDialog fileDialog.Multiselect = True If fileDialog.ShowDialog() = DialogResult.OK Then For Each filename In fileDialog.FileNames Dim sourceWorkbook As Workbook = excelApp.Workbooks.Open(filename) For Each worksheet As Worksheet In sourceWorkbook.Worksheets worksheet.Copy(After:=targetWorkbook.Sheets(targetWorkbook.Sheets.Count)) Next sourceWorkbook.Close(False) Next End If Dim saveFileDialog As New SaveFileDialog saveFileDialog.FileName = "merged_file.xlsx" If saveFileDialog.ShowDialog() = DialogResult.OK Then targetWorkbook.SaveAs(saveFileDialog.FileName) targetWorkbook.Close(False) End If excelApp.Quit() excelApp = Nothing MessageBox.Show("Excel文件合并完成。") End Sub End Class ``` 以上是一个简单的VB合并Excel文件的示例,可以根据实际需求进行修改和优化。注意在使用Excel对象之后,要记得手动释放资源,关闭Excel应用程序。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值