电子表格如何将excel每列另存为单独的excel文件

1.如何将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 笨方法

希望采纳

2.EXCEL 怎样在保存的同时另存一份到指定的文件夹

可以用VBA解决这个问题，在EXCEL中按ALT+F11调出VBA窗口，按“插入-模块”插入一个用户模块，把下面代码粘贴进去：

Sub 保存文件（）

'要另存的位置在上面

ActiveWorkbook.SaveAs Filename:="\\192.168.5.6\备份\1.xlsm"

'下面这个是平时常用的位置

ActiveWorkbook.SaveAs Filename:="e：\文件\1.xlsm"

End Sub然后回到EXCEL表格窗口，插入一个按钮（或者插入一个文本框、艺术字等都行），用鼠标右键给它“指定宏”为“保存文件”，就可以了。

使用时点击这个按钮就能自动保存两份到指定位置。

说明：代码中上面的那个路径是服务器的，我没法测验是否能用，如果是本地硬盘上的路径，绝对没问题。

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

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

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

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

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

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