Question

我正在尝试创建一个宏，该宏可以从本地活动工作簿中的Excel电子表格中收集数据，然后创建头文件，我稍后将其合并到我的项目中。但是对于我的生活，我必须遗漏一些东西，所以DUMB我不能创建一个工作函数，它返回一个字符串（它将构造一个C ++结构）给调用函数。我已将示例代码简化为绝对最低限度以隔离问题，但我仍然无法弄清楚我做错了什么。我不是VBA的专家，但我知道如何创建代码，而我无法缩小VBA不满意的范围。我一直在＆＃34;编译错误，语法错误。＆＃34;请将以下代码复制到您的模块中，看看是否正确编译。如果你知道我哪里出错了，请告诉我。非常赞赏!!!

Sub CREATE_FACTORY_SETTING_HEADER()
    Dim FS, TSsource
    Set FS = CreateObject("Scripting.FileSystemObject")

    Dim TSout
    Set TSout = FS.Createtextfile("HeaderFile.h", True)

    Dim fileHeading As String
    fileHeading = "File Heading for Header file"

    Dim fileBody As String
    fileBody = "Some initial file body lines"

    fileBody = fileBody & createStructBody

    TSout.Write fileHeading & fileBody
    TSout.Close    
End Sub


Public Function createStructBody() As String
    Dim structBody As String
    structBody = "Hey I'm a struct body, but I can't be returned for some     reason"
    Return structBody
End Function

Answer 1

VBA和VBScript都使用'赋值给函数'（而不是'return'或'last statement of last'）来返回函数的结果。所以

Public Function createStructBody() As String
    createStructBody = "Hey I'm a string and can be returned."
End Function

无法在Excel宏中创建简单的VBA函数并调用它

1 个答案: