从一张表里选择一列加入到另一张表_500个工作簿多表，电光火石之间合并成一张总表！只需一句话命令！...

最新推荐文章于 2023-04-21 18:57:50 发布

weixin_39722070

最新推荐文章于 2023-04-21 18:57:50 发布

阅读量263

点赞数

文章标签：从一张表里选择一列加入到另一张表

比如有100个(或者更多)工作簿

每个工作簿里有若干个工作表

比如有一个或两个或三个

甚至更多的工作表

但是每个工作表结构一样

不能有合并单元格

表格的样子见下图

这样的很多个工作簿

合并在一起

有vba的方法

也有Power Query的方法

见以前分享过的文章

超级牛牛牛，100个工作簿里的多表数据，迅雷不及掩耳之势导入到一张总表里，你从未见过

珍藏！珍惜！珍视！100个表汇集到一个总表里？2段经典代码送给你！

一个工作簿里的100个表超速汇集，最牛的来了

今天再分享一种用DOS命令来批量合并多簿多表数据

到一个总表里

不过首先要把这些工作簿文件另存为csv格式的文件

在Excel里通过F12另存为，可以实现

但是一个个把工作簿文件另存为csv格式

太慢了

csv格式文件里只能允许保存一张工作表

关于CSV，百度的解释：

逗号分隔值(Comma-Separated Values，CSV，有时也称为字符分隔值，因为分隔字符也可以不是逗号)，其文件以纯文本形式存储表格数据(数字和文本)。纯文本意味着该文件是一个字符序列，不含必须像二进制数字那样被解读的数据。CSV文件由任意数目的记录组成，记录间以某种换行符分隔；每条记录由字段组成，字段间的分隔符是其它字符或字符串，最常见的是逗号或制表符。通常，所有记录都有完全相同的字段序列。通常都是纯文本文件。建议使用WORDPAD或是记事本(NOTE)来开启，再则先另存新档后用EXCEL开启，也是方法之一。

那么怎么办呢？

如果是一个工作簿里有很多个工作表

每个工作表要另存为csv文件

那么可以用这段vba代码来处理

Sub 多表一一转成CSV()

myPath = ThisWorkbook.Path

For x = 1 To Worksheets.Count

Name = "\" & Sheets(x).Name & ".csv"

filepath = myPath & Name

Sheets(x).SaveAs Filename:=filepath, FileFormat:= _

xlCSV, CreateBackup:=False

Next

End Sub

在这个有多表的工作簿里，按ALT+F11，

插入，模块

把上面代码粘贴过来

然后关闭vba编辑窗口

再按ALT+F8，执行这个程序代码

就会立即在当前工作簿所在的文件夹里

生成很多的csv文件

如果是很多工作簿，里面有若干工作表

每个工作表要另存为csv格式的文件

那么就要用下面这段代码

使用方法同上

新建一个空白工作簿

另存为启用宏的工作簿类型

(有代码的工作簿都应该保存为这个类型)

这里有2个文件夹

一个文件夹是存储近500个工作簿的，叫“新建文件夹”

一个文件夹是将来存储csv格式的文件的，叫“存CSV的”

代码如下：

Sub 多簿存为CSV格式()

Dim FileDir As String

Dim wbook As Workbook

Dim wsheet As Worksheet

Dim ExcelPath As String

Dim CsvPath As String

ExcelPath = "E:\李则见的Excel网课\录制ing\新建文件夹\"

CsvPath = "E:\李则见的Excel网课\录制ing\新建文件夹\存CSV的\"

FileDir = Dir(ExcelPath)

Do While (FileDir <> "")

If Right(FileDir, 4) = ".xls" Or Right(FileDir, 5) = ".xlsx" Then

On Error Resume Next

Set wbook = Workbooks.Open(ExcelPath & FileDir)

For Each wsheet In wbook.Sheets

wsheet.SaveAs CsvPath & Split(wbook.Name, ".")(0) & "+" & wsheet.Name & ".csv", xlCSV

Next wsheet

wbook.Close False

Set wbook = Nothing

End If

FileDir = Dir

On Error GoTo 0

Loop

End Sub