[求助]启动word 中关于启用宏的问题 附件

scorpoin

如果提高 word 链接 excel 数据的速度（N多活动数据链接），请指点。 phbxdcfO.rar (167.85 KB, 下载次数: 27)

2005-6-29 10:17 上传

点击文件名下载附件
[求助]启动word 中关于启用宏的问题 附件

scorpoin

由于我对word 编程不太熟悉，我的数据自动处理全部在excel中完成的。

我考虑,提高速度的方法。1：表格作为 图片做活动链接。问题是如果将word文件转换为web 是存在问题。

2：考虑 减少 数据链接量，也就是在 word 中，表格的一部分数据自动计算（正在找相关的学习资料）。

3：更好的办法，直接在word 中编程（目前不会)。

守柔

这个东东,我看得太累了,其实使用WORD的ATUOMATION可以非常方便的实现,但是你这个链接太多了,我抽空做一个示例,你再据实修改一下.

scorpoin

谢谢。ATUOMATION 我在 word 的帮助中没有找到相关资料。

守柔

以下是引用scorpoin在2005-6-29 16:24:17的发言： 谢谢。ATUOMATION 我在 word 的帮助中没有找到相关资料。

你可以下载一下置顶贴子<守柔WORD编程代码集>,有详细地EXCEL-WORD间的ATUTOMATION实现过程代码示例.

守柔

我简单地做了一个范例，请照此修改其余表格数据，文件说明部分已就绪

注意事项：

一，确保数据源与WORD文档处于同一文件夹中

二，确保引用了EXCEL

三，确保WORD宏安全性为低。

suipkoQH.zip (60.49 KB, 下载次数: 39)

2005-6-30 07:22 上传

点击文件名下载附件
[求助]启动word 中关于启用宏的问题 附件

以下代码供参考：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-6-30 07:22:03 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Example() '运行此程序时,请确认已在VBE/工具/引用中引用了Microsoft Excel 10.0 Object Library Dim xlObj As Excel.Application, xlWb As Excel.Workbook, xlSt As Excel.Worksheet Dim RowId As Integer, ColId As Byte, TempString As String, TF As Boolean On Error Resume Next '忽略错误 '如果任务栏中有Excel程序则调用该现有程序,反之则创建一个新的EXCEL程序 If Tasks.Exists("Microsoft Excel") = True Then Set xlObj = GetObject(, "Excel.Application") TF = True Else Set xlObj = CreateObject("Excel.Application") End If ' xlObj.Visible = True '设为可见 Application.ScreenUpdating = False '关闭屏幕更新 Set xlWb = xlObj.Workbooks.Open(ThisDocument.Path & "\旬报报表模板.xls") '打开指定的工作薄 Set xlSt = xlWb.Sheets("参数表") With xlSt Me.Fields(1).Code.Text = "QUOTE " & """" & .[H3] & """" Me.Fields(2).Code.Text = "QUOTE " & """" & .[D4] & """" Me.Fields(3).Code.Text = "QUOTE " & """" & .[F3] & """" '1、 市场动态 Me.Fields(4).Code.Text = "QUOTE " & """" & .[G14] & """" Me.Fields(5).Code.Text = "QUOTE " & """" & .[G15] & """" Me.Fields(6).Code.Text = "QUOTE " & """" & .[G13] & """" End With Set xlSt = xlWb.Sheets("水情") With xlSt '2、 流域水情 Me.Fields(7).Code.Text = "QUOTE " & """" & .[B7] & """" Me.Fields(8).Code.Text = "QUOTE " & """" & .[H12] & """" Me.Fields(9).Code.Text = "QUOTE " & """" & .[F10] & """" Me.Fields(10).Code.Text = "QUOTE " & """" & .[H13] & """" Me.Fields(11).Code.Text = "QUOTE " & """" & .[H9] & """" End With With xlWb ' 3、 发供电 Me.Fields(12).Code.Text = "QUOTE " & """" & .Sheets("隔河岩").[D17] & """" Me.Fields(13).Code.Text = "QUOTE " & """" & .Sheets("生产信息").[C11] & """" Me.Fields(14).Code.Text = "QUOTE " & """" & .Sheets("数据仓库").[I20] & """" Me.Fields(15).Code.Text = "QUOTE " & """" & .Sheets("隔河岩").[I23] & """" Me.Fields(16).Code.Text = "QUOTE " & """" & .Sheets("生产信息").[B12] & """" Me.Fields(17).Code.Text = "QUOTE " & """" & .Sheets("生产信息").[C12] & """" Me.Fields(18).Code.Text = "QUOTE " & """" & .Sheets("数据仓库").[I21] & """" Me.Fields(19).Code.Text = "QUOTE " & """" & .Sheets("隔河岩").[I24] & """" Set xlSt = .Sheets("生产信息") End With '生产信息表一 With Me.Tables(1) For RowId = 2 To 3 For ColId = 2 To 12 TempString = VBA.IIf(xlSt.Cells(RowId + 9, ColId).Value < 1 And xlSt.Cells(RowId + 9, ColId).Value <> 0, VBA.Format(xlSt.Cells(RowId + 9, ColId).Value, "0.00%"), VBA.Format(xlSt.Cells(RowId + 9, ColId), "0.00")) .Cell(RowId, ColId).Range = TempString Next Next End With xlWb.Close False '关闭并不保存工作薄 '如果原来没有EXCEL程序打开,则退出程序 If TF = False Then xlObj.Quit: Set xlObj = Nothing '更新域 Me.Fields.Update Application.ScreenUpdating = True '恢复屏幕更新 End Sub '----------------------

scorpoin

谢谢。我试试。