向版主求救,如何把WORD文档中的表格用VBA代码写入EXCELL表中

ymzhang · 发表于 2007-1-31 17:10

尊敬的版主,

工作中我有很多WORD(WORD 2000)表格需要转成EXCELL表.我在WORD的VBA编辑期中已经写了一些VBA的代码,能把WORD表格中的数据读出来了.但我却不知道如何定义EXCELL的对象,因此就不能向EXCELL的单元格中写入这些数据.请各位版主给予指导. 谢咯哈!

hzfurongmu · 发表于 2007-1-31 17:20

版主咋不在呢？

楼主，能不能把您做的资料发个简单的上传上来，咱们接着做啊？
这样讲，好像过于笼统了……

在通用对象的声明过程中定义EXCEL对象:

Dim xlApp As Excel.Application Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
在程序中操作EXCEL表常用命令: Set xlApp = CreateObject("Excel.Application")

守柔 · 发表于 2007-1-31 17:28

QUOTE:

以下是引用hzfurongmu在2007-1-31 17:20:18的发言：

版主咋不在呢？

楼主，能不能把您做的资料发个简单的上传上来，咱们接着做啊？
这样讲，好像过于笼统了……

在通用对象的声明过程中定义EXCEL对象:

Dim xlApp As Excel.Application Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
在程序中操作EXCEL表常用命令: Set xlApp = CreateObject("Excel.Application")

第一，建议使用搜索功能，在本版以“Excel.Application ”为关键字搜索一下，

第二，应该请您把资料上传一下，让我们帮你看一下吧？

第三，您可以学习一下置顶贴子《守柔WORD编程代码集》，那儿有代码示例。

ymzhang · 发表于 2007-1-31 17:35

谢谢了.

我是论坛新手,不知道如何发附件,请指点.

另外,照你所说,执行代码时出错,说"用户自定义类型没定义"

hzfurongmu · 发表于 2007-1-31 17:49

一、刚才已经被守版主批评了，但我对版主仍然十分的尊敬……
二、发附件，可以在你的帖子后面点击“编辑”，出来的界面里面有“附件”的按钮，当然，这里最好是把文件压缩成rar格式的，一定要注意再点那个“上传”的按钮，不然就没有上传成功。

三、Word里面的VBA，这个可能会有用；

http://www.excelhome.net/Article/ShowArticle.asp?ArticleID=519

ymzhang · 发表于 2007-1-31 18:02

谢谢hzfurongmu兄,

请你原谅我只发了一张表式给你,表中的内容我也删了.

另外VBA代码中也有错,主要是针对表中前几行4列数据的.

6zQvVgSw.rar (5.77 KB, 下载次数: 13)

[此贴子已经被作者于2007-1-31 18:03:56编辑过]

hzfurongmu · 发表于 2007-1-31 18:09

Sub a()
Dim xlAPP 'As Object '''可以不加的
Dim xlBook

Set xlAPP = CreateObject("Excel.Application") '激活EXCEL
xlAPP.Visible = True '让EXCEL可见
Set xlBook = xlAPP.Workbooks.Open("d:\1.xls")
'假如D盘根目录下面有一个1.xls的excel文件

End Sub

=============我基本不用word里面的vba的，我也是新手……

高手过来下阿

hzfurongmu · 发表于 2007-1-31 18:27

QUOTE:

以下是引用ymzhang在2007-1-31 17:35:18的发言：

谢谢了.

我是论坛新手,不知道如何发附件,请指点.

另外,照你所说,执行代码时出错,说"用户自定义类型没定义"

VB本身提自动化功能可以读写EXCEL表，其方法如下：

　　1、在工程中引用Microsoft Excel类型库：

　　从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。

25N7suTX.rar (8.85 KB, 下载次数: 26)
如果不能运行，请再告知[word表格的事情，我就没有办法了]

[此贴子已经被作者于2007-1-31 18:29:05编辑过]

ymzhang · 发表于 2007-2-1 14:45

谢谢hzfurongmu兄

非常感谢,今天我的机器出问题了.等我试了后,在告诉你结果.再次感谢了.

ymzhang · 发表于 2007-2-1 15:31

hzfurongmu兄,

样表中的宏可以运行,谢谢了.

如果是对于已经打开了的EXCEL表(E:\样表.xls),又该如何写代码呢?

		自动登录	找回密码
密码			免费注册