怎样把excel转化成word格式的文档？
有时候需要把excel里的表格插入到word文档里，如果将excel文档转化为word呢？下面来看看方法吧，方法应该不止这一个吧，在此偶只知道这一个，就抛砖引玉吧
首先，在excel编辑好表格之后，点击保存&&另存为
选择网页文件，点保存
然后找到刚才保存的.htm文件，点打开方式，点word
用word打开之后，点保存，另存为，选择word文档
ok了，以后就可以用word来打开这个表格了。
新客网原创，转载请注明出处：
如果您喜欢本文请分享给您的好友，谢谢！如想浏览更多更好的内容，请登录：
评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）怎样将word中的表格一次性转换成excel表格？我用的是2007版的。_百度知道查看: 3108|回复: 5
Word表格精确转换成Excel表格
阅读权限30
在线时间 小时
Word表格功能虽然强大，但还是不及Excel的
手上有大量Word表格，如何将其批量转到一个工作簿中变成Excel表格
要求就是打印出来效果一摸一样，同时具备Excel表格功能。
在线时间 小时
& & & & & & & &
〖Excel Home友情提示〗
很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！
通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：
1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。
为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：
* 发帖的技巧：
* EH技术论坛的最佳学习方法：
阅读权限70
在线时间 小时
Word表格转换到Excel后，其列宽、行高、表格线形及页面的调整是必然的，所谓的转换后“一模一样”是不现实的
若要将多种多样的Word表格（或一个Word中有多个表格）转换成Excel表格将是繁琐的，我想应该没有什么捷径。
若是将若干个相同格式的且一个文档只有一个Word表格转换为Excel，或许可以通过录制的宏来解决。
其他情形将是难题
阅读权限10
在线时间 小时
1、打开word文档，点另存为“网页”格式；& &&&2、用excel将此文件打开；& &3、再另存为excel文档格式。能保持一样的格式，行、列一样，稍微调整一下就好了。
阅读权限70
在线时间 小时
& & & & & & & &
网上找了一段代码，未修改测试
Sub 拆分word表到excel()
Dim tableCount As Integer, Fn As String, appexcel As New Excel.Application
Dim 当前路径, 文件名, 表名, SaveFileName$
Dim Fl As Object, shuchu As Object, shuru As Object
Set Fl = CreateObject(&Shell.application&) ' 调用shell控件来选择目录
Set shuchu = Fl.BrowseForFolder(0, &请选择输出文件夹&, 0, 17)
If Fl Is Nothing Then
'MsgBox IIf(IsError(fl.items.Item.Path), fl.Title, fl.items.Item.Path) '得到的路径fl.items.Item.Path，其后不含&\&
输出路径 = shuchu.items.Item.Path
SaveFileName = 输出路径 &\& '设置文件保存的路径和文件名，这里为表序号&
Set shuru = Fl.BrowseForFolder(0, &请选择输rudddd文件夹&, 0, 17)
If Fl Is Nothing Then
当前路径 = shuru.items.Item.Path '设置word文件路径
文件名 = Dir(当前路径 &\*.doc&)
Do While 文件名 &&
表名 = Mid(文件名, 1, InStr(UCase(文件名), &.DOC&) - 1)
On Error Resume Next
Documents.Open 当前路径 &\& 文件名
tableCount = ActiveDocument.Tables.Count '.Information(wdNumberOfPagesInDocument)
For i = 1 To tableCount '设置循环次数
ActiveDocument.Select
Selection.Tables(i).Select '选中表格
Selection.Copy '表格复制
appexcel.Workbooks.Add '添加excel
appexcel.ActiveSheet.Paste ' 在当前excel粘贴
ActiveWorkbook.SaveAs FileName:=SaveFileName 表名 i &(& i Mod 2 &)& &.xls & '当前excel另存为。。。
ActiveWorkbook.Save
'ActiveWorkbook.Close
' appexcel.Quit
Set appexcel = Nothing
ActiveDocument.Saved = True
ActiveDocument.Close
文件名 = Dir
阅读权限30
在线时间 小时
路过学习。。。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师更多公众号：Excel_2交流EXCEL运用心得，提供EXCEL问题咨询，专业定制。最新文章相关推荐搜狗：感谢您阅读word表格转excel表格，怎么才能保持格式不变？，本文可能来自网络，如果侵犯了您的相关权益，请联系管理员。QQ:}