excel表格怎么所有文件

1.怎么让excel里面所有的文件在一个表里面

我们需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel。如图所示：

用microsoft excel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：

然后我们把下面这些宏计算的代码复制进去，然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”，代码如下，如图所示：

Sub 合并当前目录下所有工作簿的全部工作表（）

Dim MyPath, MyName, AWbName

Dim Wb As Workbook, WbN As String

Dim G As Long

Dim Num As Long

Dim BOX As String

Application.ScreenUpdating = False

MyPath = ActiveWorkbook.Path

MyName = Dir(MyPath & "\" & "*.xls")

AWbName = ActiveWorkbook.Name

Num = 0

Do While MyName <> ""

If MyName <> AWbName Then

Set Wb = Workbooks.Open(MyPath & "\" & MyName)

Num = Num + 1

With Workbooks(1).ActiveSheet

.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)

For G = 1 To Sheets.Count

Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)

Next

WbN = WbN & Chr(13) & Wb.Name

Wb.Close False

End With

End If

MyName = Dir

Loop

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation， "提示"

End Sub

4

运行之后，等待10秒针左右，等运行完毕，就是合并完成之后，会有提示，点确定就可以了。查看合并后的数据，有5000多行，就是同一个文件夹里面17个excel表数据合并后的结果。效果如图所示。

2.excel表格中的文档如何能全部显示

excel表格插入多行的问题

excel表格有65536行，你在插入多行时，系统自动删除空白行。但如果您插入的行加上原有包含数据的行超过了65536，系统就会有“为了防止可能的数据丢失，excel不能移去表中的非空白单元格”提示。 你先把非空白的东东给删了就可以插入了吧，. 一般情况在插入行的下行有数据单元格且可能移出表外，才出现上述情况。只将空白单元格删除后才能插入行。 如果你的表格内容已达到EXCEL的极限65536行的话，那么你就无法插入啦。还有个情况就是你有筛选住一部分内容。使它无法插入行或列。

3.如何用Excel做某个文件夹下所有文件(包括子文件夹中的文件)的列

1、Sheet1.Cells.Clear 改 ActiveSheet.Cells(i, 1).Clear 表示当前激活的工作表

2、要遍历子目录，比较复杂，用递归比较好。现在没那么多时间写。。。网上貌似有代码吧。

3、加到哪里都是一样的，因为都是指定了工作表的，像me.cells（) 这样写就表示代码所在表，这样才必须要在自动表内，你上面的代码都指定了表名，放哪都可以。

4、MyName = Dir(MyPath & "*.txt", vbArchive) 这样指定txt文件。

4.如何使用excel提取文件夹中的所有文件名称

使用excel提取文件夹中的所有文件名称的方法主要有以下两个：

1、在那个文件夹内新建一个.TXT文件（如wenjian.txt），用记事本单开输入

dir>1.txt

保存退出

将刚才的.TXT(wenjian.txt)更名为.bat文件（wenjian.bat）

双击wenjian.bat文件运行一次，在文件夹内多出一个1.txt文件

打开1.txt文件，将其中的内容粘贴到Excel中，数据——分列处理就可以得到你要的文件名列表了！

2、VBA(2003版)

在那个文件夹下新建Excel文件，打开新建的Excel文件，右击工作表标签（如Sheet1），查看代码——在代码编辑器中输入以下代码

Sub Test()

Dim i As Integer

Dim strPath As String

strPath = ThisWorkbook.Path

With Application.FileSearch

.LookIn = strPath

.SearchSubFolders = True

.Filename = "*.*"

If .Execute >0 Then

For i = 1 To .FoundFiles.Count

Range("A" & i) = .FoundFiles(i)

Next i

End If

End With

End Sub

回到Excel表格中，工具——宏——宏——选择Sheet1.Test——执行

方法一简单的操作就可以，方法二需要对程序有一定的了解，方法二通用性比较强，需要的时候执行一下就可以，更快捷。

5.如何设置由excel2003默认打开所有文件

如何设置excel2003为默认打开方式步骤：

1）开始→运行→输入excel2003的安装路径

例如excel2003： （含开始的引号）： "C:\Program Files\Microsoft

Office\Office11\excel.exe" /regserver

2）开始→运行→输入word2003的安装路径

例如word2003：（含开始的引号）： "C:\Program Files\Microsoft

Office\Office11\WINWORD.exe" /regserver

3）开始→运行→输入powerpoint2003的安装路径

例如powerpoint2003：（含开始的引号）： "C:\Program Files\Microsoft

Office\Office11\POWERPNT.exe" /regserver

这样，双击任意一个Office文档则默认用 Office 2003打开。