电子表格一个excel大文件怎么分成多个文件

1.一个excel大文件怎么分成多个文件

vba，建10个文件流，一行一行的读数据，读到哪个部门的就写到对应的文件里面。

牵扯到的步骤比较多，而且你如果你不会编程的话讲了也没用。

Sub CreateAfile Set fs = CreateObject("Scripting.FileSystemObject") '建立文件系统对象 Set a = fs.CreateTextFile("c:\testfile.txt", True) '建文件流 a.WriteLine("This is a test.") '写文本行 a.Close '关闭文件流End Sub这是一个最简单的写text文件的操作。

2.如何把一个excel拆分多个文件夹

1、打开需要编辑的Excel文档。工作簿下方有很多工作表。现在需要将这些工作表单独拆分开成一个个工作簿。

2、右键任意一个工作表标签，在弹出的下拉列表中选择查看代码。即弹出代码窗口。

3、点击菜单插入-模块 在弹出的模块对话框中 输入以下代码：

4、单击运行-运行子过程|窗体 几秒过后 弹出提示窗口“文件已被拆分完毕”

5、返回Excel工作簿文件所在路径 查看 原先工作簿中的工作表已经成为单独的工作簿了！不信 可以对照查看图中的修改日期

3.请教怎么把一个excel文件按条件分割成多个文件

1、首先将分公司欠款汇总表做成数据透视表，插入-数据透视表。

2、选择在新工作表，或者是现有工作表，然后点确定。

3、得到数据透视表，然后用鼠标选择区域放在报表筛选。

4、其他几项放在行标签。

5、然后在选项-选项-显示报表筛选项，点击显示报表筛选项。

6、然后出现显示报表筛选页，其中选定要显示的报表筛选页字段为区域。

7、点击确定后，分公司欠款明细就自动显示出来。

4.如何把在一个excel表格里的表分成多个文件

Alt+F11 视图--代码窗口，把如下复制进去按F5运行即可最好把这个Excel 放到一个文件夹内操作， 因为默认生成到当前文件夹

1

2

3

4

5

6

7

8

9

10

11

Subfencun()

Application.ScreenUpdating = False

Foreach sht in thisworkbook.sheets

sht.copy

WithActiveWorkbook

.SaveAs Filename:=ThisWorkbook.Path & "\" & sht.name & ".xlsx"

.Close True

EndWith

Next

Application.ScreenUpdating = true

EndSub