Question

EXCEL批处理问题：如何批量提取多个excel文件里sheet1的第一行？

有几百个EXCEL表，想把每一个excel文件的sheet1的第一行提出来，放在一张表上。有没有批量处理办法，就是不用打开每一张表一个个复制的方法。请指点

Answer 1

EXCEL批处理问题：如何批量提取多个excel文件里sheet1的第一行的方法。

如下参考：

1.如下图所示，我们在TXT文本中有一些数据内容，希望将它们传输到excel电子表格中。我们打开excel表格。

2.在表上方的菜单工具栏中有一个data选项，我们单击它来选择它。在data选项下，有一个用于获取外部数据的项，如下图所示。

3.在“获取外部数据”选项卡下，有一个来自文本的选项。点击select，弹出一个文本路径选择对话框。

4.在对话框中我们点击选择要导入的文本数据，点击导入按钮的右下角，会弹出一个文本导入向导。

5. 根据向导对话框中的说明，点击右下角的next按钮，即选择分隔符，即将数据分隔成两个单元格。

6.在本例中，我们希望将前面的名称和下面的产品名称划分为两个单元格，因此选择分隔符作为文本中显示的空间，如下图所示。在左下角还有一个数据预览。

7.在最后一步，你可以根据自己的数据来选择数据格式，这是根据实际情况来选择操作答案是否ok，设置完成后点击右下角的完成按钮。

8.最后，选择数据的位置。完成效果图。

Answer 2

这个问题用批处理难以完成，用vbs吧，将下面的代码复制保存为扩展名是“vbs”的文件，放到与要处理的excel文件同目录下运行即可得到名字为“总表.xls”的文件，这就是结果：

'═════代═══码═══开═══始═════
set fso=CreateObject("Scripting.FileSystemObject")
set ws=CreateObject("wscript.shell")
set oexcel=CreateObject("excel.application")
set oexcel2=CreateObject("excel.application")
name=fso.getfolder(".")&"\总表.xls":i=1
oexcel.workbooks.add
oexcel.activeworkbook.saveas(name)
oexcel.DisplayAlerts = False
oexcel2.DisplayAlerts = False
oexcel.visible=false
set fs=fso.getfolder(".").files
for each f in fs
ext=LCase(right(f.name,4))
if (ext=".xls" or ext="xlsx") and left(f.name,2)<>"~$" and f.path<>name then
oexcel2.workbooks.open(fso.getfolder(".")&"\"&f.name)
oexcel2.Worksheets(1).Rows(1).copy
oexcel.Worksheets(1).paste(oexcel.Worksheets(1).Rows(i))
i=i+1
oexcel2.activeworkbook.close
end if
next
oexcel.activeworkbook.save
oexcel.activeworkbook.close
msgbox "处理完毕！"
'Created By escortmnm from VBS团队
'═════代═══码═══结═══束═════

根据表的数量，需要的时间可能不同，请耐心等待结果！

追问

再请教一下，请问能不能将将取出的sheet1第一行内容，改为文件名，请帮忙。在网上找到过word自动找第一行，然后批处理改为文件名的代码，请问excel有这样的代码吗？谢谢

追答

描述不清晰，取哪个文件？改哪个？另外，一样有多个字段，都用？

追问

不好意思，没有说清楚。我有一堆删除后恢复回来的EXCEL文件，每个文件名都变成了数字。这些EXCEL文件都在一个文件夹里，我想从每个恢复回来的EXCEL文件里，分别取出sheet1的第一行内容，然后将取出的第一行内容做为对应的EXCEL文件的文件名，进行文件改名（因为第一行内容一般都是原文件名），请教一个能批处理的方法。另外，您给我发的代码的第15行报错，提示“15行，类workbooks的open方法无效”。我是XP系统。请指点，感谢。

追答

1、改名字的excel还是否需要按原题处理？仅仅改名字？
2、你知道，excel中每行有多个列，名字取自第一行的哪一列？难道是第一行的所有列？
3、先不管改不改名字，按照原题处理，报错？

追问

实在不好意思。1、高人，别按原题处理了，改成excel文件改名字吧。2、名字取第一行的前5列（有的标题在前5列合并的格子里）3、原题处理的代码报错，提示“15行，类workbooks的open方法无效”。
总是麻烦你，实在不好意思。1200多个EXCEL文件改名，手工改，时间太长了，麻烦帮帮忙吧，谢谢谢谢。