宏怎么返回结果

[DWGZ]

外部程序执行Excel中的宏, 要求返回一个字符串, 我现在是通过间接把这个结果写到一个Execel中的一个单元格中, 再去读这个单元格, 感觉笨笨的, 宏不可以返回结果吗?

Sub Test
Cells(1, 1) = "Hello"
End Sub


Function Test As String
Test = "Hello"
END Function

[crycoming]

直接用宏返回值没有试过，不过你可以通过宏来赋值给你的程序

• 打赏
• 举报

回复 赞

[flyingZFX]

说是宏，其实就是VB里的过程

能返回值的就是函数，即 Function 才可以。

• 打赏
• 举报

回复 赞

[jxgzay]

返回结果用函数。
如要宏返回结果，可以将结果写入文本文件或数据库。然后取文本文件或数据库的数据。

• 打赏
• 举报

回复 赞

[dqhuaying]

如要宏返回结果，可以将结果写入文本文件或数据库。然后取文本文件或数据库的数据
--------------------------------------------------------------------------------
如何写入文本文件?

• 打赏
• 举报

回复 赞

[DawnPine]

open filename for output as #1
print #1,"test"
close #1

• 打赏
• 举报

回复 赞

[jxgzay]

将结果写入文件或数据库

• 打赏
• 举报

回复 赞

[jam021]

Set objfso = CreateObject("Scripting.FileSystemObject")
Const ForAppending = 8
Set outTextFile = objfso.OpenTextFile _
(App.Path & "\out.txt", ForAppending, True)
outTextFile.WriteLine ("111")

outTextFile.Close
Set outTextFile = Nothing
Set objfso = Nothing

• 打赏
• 举报

回复 赞

[conrad_wan]

function不行么？

• 打赏
• 举报

回复 赞