守柔版主，继续请教word和excel引用的问题（在19F）

守柔

QUOTE:

看来楼主很忙啊！

我暂时未用VBA，仅用域来解决，是因为楼主引用EXCEL中的数据并不多的原因。

原理：

1.       利用编辑/选择性粘贴/粘贴为链接/无格式文本的方式，将EXCEL工作表中的数据链接到Word中。（其域为LINK）

2.       利用ASK域，取得工作薄路径；利用REF域，取得ASK域中的路径，以代替所有LINK域中的EXCEL文件。

3.       每次更新EXCEL预算书后，无论文件名，只要其中的工作表名、引用数据单元格地址一致，文件名变更名，在ASK域中以“\\”分隔，输入EXCEL文件名即可。请全选WORD文档，按下F9键，以更新ASK域。

4.       如果是需要中文大写，请参考我的精华贴，建议在EXCEL中取得中文金额大写。

守柔

5.       域代码为:

{ ASK myXls "此处键入EXCEL工作薄的文件名,以'\\'作为路径分隔符!" \d "C:\\Documents and Settings\\shourou\\My Documents\\Temp\\预算.xls"}

{ QUOTE "此作供调试"{ REF myXls } }

六、总费用：

按交钥匙工程开口价承包。

2．本工程的开口承包价为人民币（大写） { ={ LINK Excel.Sheet.8 "{ myXls }" "表一!R7C10" \a \t } \* CHINESENUM2 }。

其中：设备费：{ LINK Excel.Sheet.8 "{ myXls }" "表二!R10C4" \a \t  \* MERGEFORMAT }元，主要材料费：{ LINK Excel.Sheet.8 "{ myXls }" "表二!R9C4" \a \t  \* MERGEFORMAT }元，

税  金：{ LINK Excel.Sheet.8 "{ myXls }" "表二!R11C4" \a \t }元，集 成 费：{ LINK Excel.Sheet.8 "{ myXls }" "表二!R8C4" \a \t }元，施工队伍调遣费： 0.00元

本合同签约生效后的十天内预付合同总价的30%，计人民币  { ={ LINK Excel.Sheet.8 "{ myXls }" "表一!R7C10" \a \t }*30% }  元。

BZywMvpN.rar (10.31 KB, 下载次数: 224)

2007-3-2 06:35 上传

点击文件名下载附件
请教守柔版主关于word和excel引用的问题（附件已上传）

lgfls

版主,我想请教你一下,我按照以下方式链接粘贴了,昨天修改Excel的数据Word会自动变化,今天同一台电脑就不能相应的自动改变了,换了台电脑也不行,是什么原因那?

1.       利用编辑/选择性粘贴/粘贴为链接/无格式文本的方式，将EXCEL工作表中的数据链接到Word中。（其域为LINK）

守柔

QUOTE:

以下是引用lgfls在2007-3-5 12:43:40的发言：

版主,我想请教你一下,我按照以下方式链接粘贴了,昨天修改Excel的数据Word会自动变化,今天同一台电脑就不能相应的自动改变了,换了台电脑也不行,是什么原因那?

1.       利用编辑/选择性粘贴/粘贴为链接/无格式文本的方式，将EXCEL工作表中的数据链接到Word中。（其域为LINK）
   

如果你的WORD文档已经打开，而此时你修改了Excel源数据后，需要手动更新域；如果你的EXCEL源数据更新后，再打开含有链接的WORD文档时，它会自动更新。

另外，需要检查一下，你是否锁定了域？如果您觉得您可能描述不清，请直接上传你的WORD文档即可。

lgfls

守柔版主,真的很感谢你的回复,按照你的方法,把Word文档关闭,再修改Excel源数据后,Word文档的数据也相应改变了!另外,我还想请问一下,你说的域是指Word中的插入域还是....?如果是插入域怎么样设定域属性,域选项和类别名称?

bobosuccess

QUOTE:

以下是引用守柔在2007-3-2 6:34:34的发言：

QUOTE:

看来楼主很忙啊！

我暂时未用VBA，仅用域来解决，是因为楼主引用EXCEL中的数据并不多的原因。

原理：

1.       利用编辑/选择性粘贴/粘贴为链接/无格式文本的方式，将EXCEL工作表中的数据链接到Word中。（其域为LINK）

2.       利用ASK域，取得工作薄路径；利用REF域，取得ASK域中的路径，以代替所有LINK域中的EXCEL文件。

3.       每次更新EXCEL预算书后，无论文件名，只要其中的工作表名、引用数据单元格地址一致，文件名变更名，在ASK域中以“\\”分隔，输入EXCEL文件名即可。请全选WORD文档，按下F9键，以更新ASK域。

4.       如果是需要中文大写，请参考我的精华贴，建议在EXCEL中取得中文金额大写。

版主，您好，因前段时间一直很忙，而且家中网线接头接触不好一直上不了网。再次感谢您对我所所提出问题的详细解答与指导，谢谢。

bobosuccess

QUOTE:

以下是引用守柔在2007-3-2 6:35:44的发言：

5.       域代码为:

{ ASK myXls "此处键入EXCEL工作薄的文件名,以'\\'作为路径分隔符!" \d "C:\\Documents and Settings\\shourou\\My Documents\\Temp\\预算.xls"}

{ QUOTE "此作供调试"{ REF myXls } }

六、总费用：

按交钥匙工程开口价承包。

2．本工程的开口承包价为人民币（大写）
   { ={ LINK Excel.Sheet.8 "{ myXls }" "表一!R7C10" \a \t } \* CHINESENUM2 }。

其中：设备费：{ LINK Excel.Sheet.8 "{ myXls }" "表二!R10C4" \a \t  \* MERGEFORMAT }元，主要材料费：{ LINK Excel.Sheet.8 "{ myXls }" "表二!R9C4" \a \t  \* MERGEFORMAT }元，

税  金：{ LINK Excel.Sheet.8 "{ myXls }" "表二!R11C4" \a \t }元，集
  成
  费：{ LINK Excel.Sheet.8 "{ myXls }" "表二!R8C4" \a \t }元，施工队伍调遣费： 0.00元

本合同签约生效后的十天内预付合同总价的30%，计人民币  { ={ LINK Excel.Sheet.8 "{ myXls }" "表一!R7C10" \a \t }*30% }
    元。

守柔版主，本合同签约生效后的十天内预付合同总价的30%，算出来的人民币金额，如何转换成四舍五入的金额？如30%为1456.78，则四舍五入后为1460.00，这个如何实现？谢谢

守柔

QUOTE:

以下是引用bobosuccess在2007-3-18 8:20:44的发言：

守柔版主，本合同签约生效后的十天内预付合同总价的30%，算出来的人民币金额，如何转换成四舍五入的金额？如30%为1456.78，则四舍五入后为1460.00，这个如何实现？谢谢

1456.78→1460.00,这是四舍五入吗?

sylun

 楼主的要求讲得不够准确。如想使数值以四舍五入的方式精确到十位，且要保留两个小数位格式，可将域代码修改为：

{ =ROUND({ LINK Excel.Sheet.8 "{ myXls }" "表一!R7C10" \a \t }*30%,-1) \#0.00}

[此贴子已经被作者于2007-3-18 11:00:14编辑过]

bobosuccess

QUOTE:

以下是引用jiangrushu在2007-3-1 10:16:15的发言：

功能基本满足要求的

守柔版主,请帮忙优化一下.

我想还是可以用的.

谢谢指教.水平有限,不足之处请见凉.

 

 

说明:1.在没理解本程序前,不得改用文件:合同.DOC

        2.在没理解本程序前,不得改用文件:预算.XLS中的数据库表

        3.解压后,打开文件:预算.XLS,填写完表一至表五甲后,回到主控界面,点"合同生成",即可完成合同的填写.

        4.本程序引用了WORD2000对象,为9.0的,诺您的电脑安装的是WORD2003,请重新引用相应的对象.

谢谢jiangrushu能帮忙完成这个系统，当初写这个帖子的时候，希望解决主要功能，故其他细节上没详细描述，既然能做成一个系统，望jiangrushu能把其他一些小细节完善一下。现把需要实现的功能完整叙述如下：

希望在word某个指定地方自动生成和excle匹配的内容：
for example：
1、word文件为一合同模板：暂命名为“合同”
2、excle文件为预算：暂命名为“预算”

希望实现的功能：

a、把“预算”中的总金额（小写阿拉伯数字）在“合同”的开口承包价为人民币（大写）处自动生成，并体现为大写人民币金额。
b、在“合同”某些地方，正好对应“预算”表格中的某些数字或者某组数字的总和。

c、在“合同”某些地方，自动生成总金额的某个百分比的数字。（如生成总金额的30％、60％等），并使数值以四舍五入的方式精确到十位，且保留两个小数位格式。

d、在“合同”底部的日期处可自动生成某一指定日期

e、项目编号、项目名称、站    址、楼宇性质、覆盖面积等信息可从其他excel表格自行导入。