如何复制多个文件名到excel

1.如何实现多个TXT文件文件(N个)导入到一个EXCEL文件的对应?

不用这么麻烦呀？EXCEL本身就有类似数据库的数据导入功能的。

按你所述，你可以这样：①建一模板XLS文件，文件名比如为201100。xls②在模板文件中建31个SHEET，名称比如为1,2……31③在每个SHEET中都做如下操作（别告诉我你不会用复制）：定位在需要的格（比如A1）>数据>导入外部数据>导入数据，选择与SHEET名日期对应的TXT文件，按数据分列的操作方法设置数据和列属性等，点新窗口中的属性按钮，勾选”打开工作簿时，自动刷新“等需要的项（注意设置的TXT文件的地址是绝对地址还是相对地址）（注意”保存查询定义“一定要勾选），确定。

④请反复操作第③步，确认你了解了每一步的功能后设置完成此31个表。保存，将模板文件201100。

xls设为只读。⑤每月底，打开201100。

xls，确认刷新（你要是设为确认刷新31次可够你烦的，呵呵），另存为当月文件。 当然用VBA程序也可以完成这个任务，不过显然没有我的方法学习难度低，呵呵。

给分吧 特别提醒一句：此方法的数据源是极为宽泛的（想当年某会员网站只提供网页查询功能，我用这个功能半天时间把网站的几万行数据全部导到了本地，呵呵，省了上千元的会员费）。

2.excel工作表另存

打开你的EXCEL文件，选中工作表中该公司的内容部分，复制；然后打开一个新EXCEL文件，粘贴，检查内容确实是需要的后，以原来的文件名或新文件名保存到桌面上。

或者打开你的EXCEL文件后，检查每一工作表，将不公开的内容全部删除（或清除内容），留下可公开部分，然后菜单中选“另存为。”，然后用原文件名或新文件名，指定保存在桌面，保存。

关闭EXCEL后，桌面上的EXCEL文件中就没有你不希望公开的部分内容。 另外，原有文件不希望别人随便打开，你可以加密码：打开文件后，菜单中选“另存为。”

然后在弹出窗口右上角中选“工具”，出现下拉菜单，选“常规选项。”，在出现的“保存选项”窗口中加入打开密码，确认，按要求再次输入密码后确认，保存（覆盖原文件），这样，原文件就需要密码才可以打开，别人就不那么容易看到文件内容了。

3.怎么能把多个excel文件中的sheet,

方法一：用VBA 感谢本文作者：/blog/cns!730C63D0301AC7D0!209。entry 实现的功能是把多个Excel文件的第一个工作表（Sheet）合并到一个Excel文件的多个工作表里，并且新工作表的名称等于原Excel文件的文件名。

开发环境Excel2007，但是Excel2003应该也能用，Excel2000似乎不能用。代码如下： '功能：把多个工作簿的第一个工作表合并到一个工作簿的多个工作表，新工作表的名称等于原工作簿的名称 Sub Books2Sheets（) '定义对话框变量 Dim fd As FileDialog Set fd = Application。

FileDialog() '新建一个工作簿 Dim newwb As Workbook Set newwb = Workbooks。Add With fd If 。

Show = -1 Then '定义单个文件变量 Dim vrtSelectedItem As Variant '定义循环变量 Dim i As Integer i = 1 '开始文件检索 For Each vrtSelectedItem In 。 SelectedItems '打开被合并工作簿 Dim tempwb As Workbook Set tempwb = Workbooks。

Open(vrtSelectedItem) '复制工作表 tempwb。Worksheets(1)。

Copy Before:=newwb。 Worksheets(i) '把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，即Excel97-2003的文件，如果是Excel2007，需要改成xlsx newwb。

Worksheets(i)。Name = VBA。

Replace(tempwb。Name, "。

xls"， "") '关闭被合并工作簿 tempwb。 Close SaveChanges:=False i = i + 1 Next vrtSelectedItem End If End With Set fd = Nothing End Sub 方法二： 录制一个新宏：打开一个excel文件、复制、粘贴、关闭； 然后在菜单[工具]-》[宏]-》VB编辑器 里修改这个宏， 只要改文件名就能复制下一个excel文件， 很多的话，做循环最好，你如果不会，就只好复制800遍那些语句，改800遍文件名了。

运行这个宏，它会自动替你一个一个地打开、复制、粘贴、关闭。 不会再有比一个一个复制更简单的办法了。

4.怎样把一个表格复制一次到多个表格

要分2种情况也要说清楚是复制单元格区域还是工作表整体第一种 在一个文件里多个sheet复制某个区域，那么先复制区域，再按住shift选择多个sheet标签，粘贴就可以了第二种 如果是多个文件那对不起，只能写vba代码循环遍历多文件多表粘贴才可以第三种 如果是整表复制到多个文件里去，也只能写vba代码才可以#####复制表格后， 用SHEFT键+左键选择所要复制到的Sheet1/Sheet2。

.SheetN.， 粘贴， 即可一次复制到多个表格之中。#####复制表格后，没有其他的操作，则可以在多个表格中粘贴，还有一法，即，调出剪辑板，可以在待粘贴的表格里去粘贴。