VBA的变量值如何传递到VB6

2025-03-11 03:12:35

推荐回答（4个）

回答1：

两个不同的应用程序，变量是不能通用，无法传递，得通过相互都能引用的对象来传递，比如用剪贴板。以下代码通过剪贴板来传递，先运行VBA，再运行VB6看看结果
Sub VBAtest() 'VBA代码
测试 = 100
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText 测试
.PutInClipboard '将变量“测试”内容放到剪贴板
End With
End Sub
Sub VBtest() 'VB6代码
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.GetFromClipboard
测试 = .GetText(1) '将剪贴板内容赋值给变量“测试”
End With
MsgBox 测试
End Sub

回答2：

我一般是用文本文件传递的。第一个程序把值写入文本，第二个程序再从文本里读。

回答3：

测试定义成全局公开的变量就可以了

回答4：

public 测试