none
无效的过程调用或参数 RRS feed

  • 问题

  • 我是用的专业版2016,VB脚本在我电脑上面无法运行并报警“无效的过程调用或参数”,但是同样文件在别的电脑是可以正常运行,不知是否EXCEL哪里有什么设置,求解!

    非常感谢!

    VB代码

    Public Sub GenDB20()
    Dim sHeader As String
    Dim sData As String
    Dim wsElem As Worksheet
    Dim wsDB As Worksheet
    Dim i, iEnd, iEl As Integer
    Dim iOrte, iBGLTX As Integer
    Dim res As Variant


    Set wsElem = Worksheets.Item("Elements")
    Set wsDB = Worksheets.Item("DB20")

    sHeader = wsDB.Cells(1, 1).Value
    iEnd = 1000 + 3
    sData = ""
    For i = 4 To iEnd
       
        If (wsElem.Cells(i, 2).Value < 1 Or wsElem.Cells(i, 2).Value > 1000) Then
            res = MsgBox("Wrong value in column ""ST"" (A) row: " & i, vbCritical)
            Exit Sub
        End If
       
        iEl = wsElem.Cells(i, 2).Value

        iOrte = 0
        iBGLTX = 0
        If IsNumeric(wsElem.Cells(i, 3).Value) Then iOrte = CInt(wsElem.Cells(i, 3).Value)
        If IsNumeric(wsElem.Cells(i, 5).Value) Then iBGLTX = CInt(wsElem.Cells(i, 5).Value)
       
       
        sData = sData & "EL[" & iEl & "].ORTE := " & iOrte & ";" & vbLf
        sData = sData & "EL[" & iEl & "].BGLTX := " & iBGLTX & ";" & vbLf

    Next i

    res = Application.GetSaveAsFilename(Filefilter:="S7 Source, *.awl")
    If res <> False Then
        Set TS = mFSO.CreateTextFile(res, True)
        TS.Write (sHeader & vbLf & sData & "END_DATA_BLOCK") '在这里会无法执行
        TS.Close
    End If

    End Sub

    2019年7月31日 13:17

全部回复

  • 您好,

    由于您的问题涉及到使用VBA code,很抱歉这类开发问题超出了我们支持的范围。建议你到这个开发论坛提问:

    https://social.msdn.microsoft.com/Forums/en-US/home?forum=exceldev

    该论坛是专门解决开发类问题的论坛,你可以从中得到更专业的技术支持。但是这是一个英文论坛,所以请在发帖的时候使用英文。
    如果有关于非开发类Office的问题,你以后也可以发帖到我们论坛,我们很乐意帮助你解决。

    另外,为了关闭这个主题贴,请您将我的回复标记为答案。这样也可以帮助本论坛中其他有类似问题的用户快速找到合适的提问地点。非常感谢您的理解。

    此致,

    敬礼

    Bella Wu


    如果以上回复对您有所帮助,建议您将其标记为答复。如果您对我们的论坛支持有任何的建议,可以通过此邮箱联系我们:tnsf@microsoft.com.

    点击了解更多或者访问我们的 专用论坛,与我们的技术专家一起分享探索 Microsoft Office 2019

    2019年8月1日 3:21
    版主
  • 你好,

    我正在检查该主题帖的状态,为了关闭当前主题帖,请您将我的回复标记为答案。这样也可以帮助本论坛中其他有类似问题的用户快速找到合适的提问地点。非常感谢您的理解。

    此致,

    敬礼

    Bella Wu


    如果以上回复对您有所帮助,建议您将其标记为答复。如果您对我们的论坛支持有任何的建议,可以通过此邮箱联系我们:tnsf@microsoft.com.

    点击了解更多或者访问我们的 专用论坛,与我们的技术专家一起分享探索 Microsoft Office 2019

    2019年8月5日 9:43
    版主