两个不同的VBAProject之间的变量怎么传递？

清风_ll

以下是引用figfig在2005-6-3 20:47:00的发言： 该方法使变量在所有工程传递，直到退出EXCEL

谢谢,学习...

[此贴子已经被作者于2005-6-3 21:15:23编辑过]

SPAWN

以下是引用51082481在2005-6-3 19:00:00的发言：

你的留言我看见了．对不起本人中午不在！

１．如果能不需要调用另一个工程中的变量就别调用．（偶还未曾遇到过这种情况）

２．的确要调用的话，有以下方法：

　　（１）写注册表键值：有关注册表的写入或读去请自行参阅SaveSetting和GetAllSettings函数．

　　（２）写ｔｘｔ文件记录当前的变量值．请参阅相关ｏｐｅｎ（）＼ｉｎｐｕｔ（）＼ｗｒｉｔｅ（）语句．

　　（３）在文件本身ｓｈｅｅｔ表中存储变量值．（相对简单不再敖述）

如有问题再联系我！

第三点应该很有用,谢谢了

[此贴子已经被作者于2005-6-3 21:58:57编辑过]

foshan

以下是引用figfig在2005-6-3 19:46:00的发言：

工程1: 假设 zzz = abcdefg

Sub test1() Application.ExecuteExcel4Macro "SET.NAME(""zzz"",""abcdefg"")" End Sub

工程2: 获取zzz数值

Sub test22() MsgBox Application.ExecuteExcel4Macro("zzz") End Sub

第一次知道这个方法，收藏!

51082481

以下是引用figfig在2005-6-3 19:46:00的发言： >

反对

工程1:假设 zzz=abcdefg

Sub test1()

Application.ExecuteExcel4Macro "SET.NAME(""zzz"",""abcdefg"")"

End Sub

工程2:获取zzz数值

Sub test22()

MsgBox Application.ExecuteExcel4Macro("zzz") End Sub

７楼的方法　偶在２００３中无法通过编译！出现错误！

wwangfay

以下是引用51082481在2005-6-4 13:53:00的发言：

７楼的方法　偶在２００３中无法通过编译！出现错误！

我也试过了，报错：类型不匹配

Laolangsex

实际上是取值嘛，用一个函数不就搞定了

假设ZZZ="ABCD"

function X1()

x1=ZZZ

end function

sub X2()

msgbox X1()

end sub

plxmm

偶也是第一次在VBA里听说。

jackjackwangwan

报错：类型不匹配