在此, 先恭祝 各位朋友 新年快乐, 万事如意!!目前我只能将图片中的一堆TextBox与计算出来后的一堆Label数组控件,保存在 .INI 文件.并且以VBA语句导入预存的空白.xls 模版中, 生成 .xls 文件 (如附件) 现在我想将这个 .XLS 以 "最高效" 的方式导出为 Word的 .DOC 格式..XLS 中可能有几张不同的 Sheets
附件:http://cbm666.net.data/yl4.xls

解决方案 »

  1.   

    更正:附件:http://cbm666.net/data/yl4.xls
      

  2.   

    1、用"select.copy"命令,但转化成图形了。
    2、用Ole对象(AddOLEObject),然后再保存。
    不知道有用没用?
      

  3.   

    lz的意思还没彻底看明白是不是把你提供的excel转换成word就可以了?
    在具体一些就是,把你提供的excel转换一个word文件,这个文件有4个页,每个页对应内容与excel相同?
      

  4.   

    谢谢 3F 4 F 的关注谢谢 5F dingyanwei 的回复,也感谢你的帮忙1.将我提供的excel转换一个word文件,这个文件有4个页,每个页对应内容都要与excel相同,如果有限制的地方无法相同, 则我可以再以VBA来完成不足的地方,不单单是这个文件,因为陆续都会有新的excell文件, 但模版都是与我的附件相同的.2.因工作上的需要与表格的顺序对应,我现在只能以VBA语句将一堆变量低效的导入excell中,生成.xls文件, 当生成完这个新的.xls文件后, 我希望能快速的直接将这个新生成的.xls转换为内容图表完全一样的 .doc3.请问是否有转换的工具直接将.xls转为 .doc ? 
      

  5.   


    1、这个文件有4个页,每个页对应内容都要与excel相同
       应该是对应excel相应页数内容相同吧
       如果是我理解的意思,那么选择通过excel的range选择后,再做复制操作,再到word当中粘贴应该是可以完成整体复制,且一般不会发生比较严重的错误,我使用鼠标选择并复制了第一页内容测试,没有发现不妥。
       完成第一页复制后,增加一个换页符并不是一个复杂的操作,lz应该没有问题
       依此类推
       当然,这种方式可能不是lz需要的高效方法,因为这种方式lz应该会做2、如果必须生成word文件,我认为目前没有特别高效的方法来解决,而且一定会面临可能因为转换带来的部分格式丢失、图像丢失等等可能3、这种转换工具貌似不会有特别好的效果另辟思路:
    1、不知道lz为什么一定要转换成word,对于打印excel可以做到,对于传输excel也可以做到,甚至安装有word的计算机一般99.99%都会安装有excel2、可以尝试转换成mht格式,这种格式可以使用浏览器来观看,貌似没有格式的丢失,转换比较完美。
      

  6.   


    非常感谢 dingyanwei, 我试试看1.目前我所产生的Excell表格,客户非常满意,但因为使用部门多,客户应该另有用途,故而要求Word文档,身为编程员能办得到的话,理应尽力满足客户的需求2.mht格式我没用过,不知道效果,请问下你有材料可以让我参考吗?谢谢!
      

  7.   

    Word是文档,PDF也是文档,为什么建议你的客户使用PDF文档呢?这样就相当简单了。
      

  8.   


    哈哈 谢谢Veron_04.xls转为.doc是客户的要求, 我只能尽力满足啦只要有好方法,我们是可以建议客户的, 请问下.xls能写进 .pdf吗?谢谢!
      

  9.   

    不需要写进,只需要打印即可。很简单。
    sheet.printout
    后台执行打印命令。当然,前提是你要安装Adobe 阅读器。且要专业版,具备虚拟打印功能的。
      

  10.   

    要是转换成rtf也成。直接用word打开就是了。
    rtf格式微软是公开的。
      

  11.   

    回9F:
    呵呵,xls本身有另存为.mht,以前都没注意到,谢谢.
    不过用word打开它,它还是调用excell来打开,对客户来说没啥差别.回13F:
    可能我的不是专业版,我又下载了两个版本,都不支持.xls的格式,能打印与否并不重要,问题是不能看,而且一般的PDF打开都不是宽型版面的,不能看的话,,对客户来说没啥意义,谢谢你啦回14F:
    转成.rtf 或xml, htm...等也没有意义,还是要谢谢你的关心.唉,看来也只能 低效的写代码来将.xls 转换为 .doc 了, 肯定能写,只是真不想这么 低效.继续等待..........
      

  12.   

    至于版面,你可以设置Excel的“页面设置”来设置
    我认为PDF的和Word对于用户而言惟一的区别就在于Word能够修改,PDF不能修改。
      

  13.   


    唉,不能修改也不行, 因为数据计算关系复杂,将有许多地方得靠人为经验来调适数据的,谢谢啦.另 dingyanwei提到的mht格式,在excell下保存后,虽然可以更改它的打开方式,让Word来打开, 原有的数据与图片都在, 但Cell的宽度与高度完全变型, 还得去一一修改,如果不用修改Cell的宽高度,mht格式就是最完美的解答了.
      

  14.   


    变形是因为横向表格内容过多导致的,如果生成前把横向内容变为竖向的,就不会变形了,毕竟word最宽只能支持50多厘米而已,你可以只保留一个表格,然后生成看看,就只知道了。
      

  15.   

    dingyanwei 你牛......太感谢了我干掉最后一张表后可以正常的显示了,并再将.mht保存为 .doc如果客户不接受,我只能给他分为两个 .doc 否则他们只能去找微软理论了,哈哈哈...
      

  16.   

    mht只是一个中介,依赖于word的强大功能!
      

  17.   

    老刘:我听说AutoCAD有报表转换功能,比如Word转成Excel,Excel转成Word。不过,有点不切实际,这样的工具太繁琐。还是20楼这个好!
      

  18.   


    谢谢, 里面每张页面都有图片的,问题是Word宽度 拉到 188 再也动不了啦,晕死....
      

  19.   


    注意是mht不是htm或html,所以不会出现你说的问题
      

  20.   


    这个没有办法,因为word的宽度就支持到50多厘米,胎带来的问题根本无法解决
    可以这样做,利用vba在excel中新建一个sheet,并将其改成竖列排放,因为excel已经启动,改格式的速度应该非常快,甚至可以忽略掉这个时间,然后再另存这个sheet为mht,顺便改个名字就ok了。
      

  21.   

    我下载了XLS文件看了,一个SHEET打印出四页,转为WORD,也是四页。
    如果我做,我会这样:WORD做一个DOT模板文件,里面的表格跟EXCEL里一样的,只是Excel里的四页是横排,Word里四页是竖排。
    OK,Excel里你是怎么填数据进去的,WORD里也是怎么填数据,
    Word里使用TABLE对象来操作表格。这样就根本不存在什么转不转的问题。都是往模板里填数据而已。本人专业从事OFFICE二次开发。相互交流。
      

  22.   

    vansoft 谢谢用代码将excell的内容全部写进word 我没有问题的.问题是WORD宽度的问题,4页必须是横排的,(客户的要求)
      

  23.   

    至于WORD的宽度问题,这是没办法的,受置于纸张的大小。
    而纸张的大小又受置于打印机支持哪些纸张。我不知道为什么你的客户SB到在WORD里要四页横排在一页上。
      

  24.   

    这年头 编程员索要面对的 对象 是客户,你得看他的 属性, 才能决定你的 方法......没办法 客户说了算 因为他们不懂编程,懂的话就不会花钱让你做了,他们想得到的是工作上的便利罢了.在理解的大前提下, 我决定使用 dingyanwei 的方法,就用三页交差,分两个.DOC
      

  25.   


    哈哈哈 非应付交差 程序里让他点击按钮 一切全自动 .xls---.doc
      

  26.   

    在理解的大前提下, 我决定使用 dingyanwei 的方法,就用三页交差,分两个.DOC没看到你是按客户的要求交文件啊 分两个doc你自己可能都会觉得麻烦吧
      

  27.   

    从沟通上讲,是可以让用户理解WORD里四页是竖排的。而不是横向连在一起的。