excel表格中怎么另存文档

1.如何把EXCEL表中每一行单独另存为一个EXCEL文件

'功能：用当前工作薄每条记录创建一个新的工作薄，每个新建工作薄以第一行为标题行，第二行为记录，以A列记录为工作薄名称自动保存。

'友情提示：

1、如何把下面的代码添加到VBA环境：点击“开发工具”-“visual Basic”进入vba编辑环境，在左侧的“工程”树里点击鼠标右键，选择“插入”-“模块”，然后把下面的代码粘贴到右侧的编辑区里。

2、如何使用：可创建热键调用，也可点击“开发工具”-“visual Basic”进入vba编辑环境，在该过程代码里点击一下，然后点击工具栏上的运行按钮（是一个实心三角形，鼠标放上去停留一会，有提示“运行子过程/。”）。

Sub SplitExl()

Application.DisplayAlerts = False '新建的文档存在时，不发送警示，覆盖式保存

Dim lngRs&, lngCs&, cx&, strEndCl$

Dim topR(), EveryR(), oExl As Object, oWk As Workbook

Dim strPath$

strPath = ThisWorkbook.Path & "\"

With ActiveSheet.UsedRange

lngRs = .Rows.Count

lngCs = .Columns.Count

End With

strEndCl = Replace(Replace(Cells(1, lngCs).Address, "$", ""), "1", "")

topR = Range("A1:" & strEndCl & "1") '数据标题行

For cx = 2 To lngRs

EveryR = Range("A" & Format(cx) & ":" & strEndCl & Format(cx)） '把每行记录放入数组

Set oWk = Application.Workbooks.Add

With oWk

'.Parent.Visible = True

With .Sheets(1)

.Range("A1:" & strEndCl & "1") = topR '把标题行放入另建的工作薄

.Range("A2:" & strEndCl & "2") = EveryR '把单个记录放入同一另建的工作薄

End With

.SaveAs Filename:=strPath & EveryR(1, 1) & ".xls" '以每行A列记录为工作薄名称

.Close

End With

Next

Set oWk = Nothing

Set oExl = Nothing

Erase topR: Erase EveryR

Application.DisplayAlerts = True

End Sub

2.请问EXCEl表格如何另存为WORD文档?

1、首先打开需要转格式的电子表，调成好尺寸，打印预览确认没问题。

2、在左上角的菜单中找到另存为，选择“其他格式”，这里需要一个中间格式作为媒介。3、另存的格式为“单个文件网页mht”。

4、保存前注意选择“选择：工作表”，没必要保存整个工作簿。5、保存以后会弹出一个发布窗口，发布路径可以修改，这里发布到桌面。

6、保存好的mht文件不要双击打开，因为是网页文件，会默认用浏览器打开，右键选择用Word打开。7、打开以后，视图方式需要修改，因为是网页文件，默认视图方式为“Web版式视图”，这里改为“页面视图”，就是我们最常用的视图方式了。

8、多余的空格可以删掉，页面布局中主要是页边距可以调整一下，使页面更协调。9、最后就是另存为“Word文档”，然后就可以编辑其他内容了。

3.如何把多个excel表格另存为word文档

分两个步骤：

1.07版EXCEL 的专用文件格式为xlsx,03版的格式为xls;

A.EXCEL 2007打开这个文件，选择另存为（快捷键F12）在下面的版本中选择97-2003格式就可以了；

B.假如你的OFFICE 是2003 ，可以装一个office2007兼容包，就可以用03打开07版本的文件了，然后在下面的版本中选择97-2003格式就可以了；

2.打开WORD 。启动WORD→新建文档→插入→对象→microsoft Excel工作表→由文件创建→浏览→找到xls文件双击→（可以选择工作表，更改版式等操作）→保存为.doc后缀即可。

4.如何将excel每列另存为单独的excel文件

Sub 拆分（） Dim TWK As Workbook Dim XWK As Workbook Dim i As Long Set TWK = ThisWorkbook Application.ScreenUpdating = False For i = 1 To Range("IV1").End(xlToLeft).Column Set XWK = Workbooks.Add TWK.Sheets(1).Columns(i).Copy XWK.Sheets(1).Columns("A:A") XWK.SaveAs Filename:=TWK.Path & "\" & XWK.Sheets(1).Range("A1") & ".xls" XWK.Close Next i Application.ScreenUpdating = True End Sub 笨方法

希望采纳