如何将<em>excel</em>里的多个表格，保存成一个表格一个的单独文件？-excel 分成

如果真的需要分成几十个文件，可以试用一个工具“ Excel Data Helper(Excel数据助手)”，用它的拆分功能，但拆分前，要添加一列作为拆分条件，该列即为即将保存的文件名。

示例操作百步骤如下：

我们需要的工具有：电脑、EXCEL

1、首先打开excel表格，进入需要单独保存的”工作簿“度内。

2、在”工作簿“上方单击右键，选择”移动或复制“选项内。

3、对话框里”工作簿“选项选择”新工作簿“，下方钩上”建立副本“选项即可。这样这个工作簿就容会新生成一个单独文件保存就好，而原有的文件内容也不会受影响。

1、打开表格，可以看到一个工作簿中有多个工作表copy。

2、右击工作表名称，点击查看代码(V)。

3、显百示如下页面。

4、空白处，复制黏贴如度下代码：

Private Sub 分拆工作表()

Dim sht As Worksheet

Dim MyBook As Workbook

Set MyBook = ActiveWorkbook

For Each sht In MyBook.Sheets

sht.Copy

ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式

ActiveWorkbook.Close

Next

MsgBox "文件已经被分拆完毕知!"

End Sub

5、点击运行-运行子过程/用户窗体。

6、完成后，保存，显示如下，工作表已经拆分成单独的道文件了。

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

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

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文件的操作。