时间戳

首页 > 解决方案 > VBA 字符串作为命令文本（不带引号的字符串）

vba - VBA 字符串作为命令文本（不带引号的字符串）

问题描述

我有一个 Sub，它有一个参数字符串，并将其包含在命令文本中。我的问题是执行不接受命令行中的字符串（因为引号）。是否可以将命令文本等同于字符串并使系统不考虑引号？谢谢

Public Sub CreatView(ByVal NomeView As String)
NomeView ="View1" 'example

Dim Com As String
Dim Comando As Command
Set Comando = New Command
Com = "StringView_123.Value"
Com = Replace(Com, "123", NomeView)
Comando.CommandText = Com 'Don't work
Comando.CommandText = StringView_View1.Value 'Work fine

Aplicacao.BSO.DSO.BDAPL.Execute (Comando.CommandText)


End Sub

标签： vbastringquotes

解决方案

我用 CallByName 替换了“commandtext”，我的战斗是在“价值”中（它的位置很差）。

Public Sub CreatView(ByVal NomeView As String)
NomeView ="View1" 'example

Dim Com As String
Com = "StringView_123"
Com = Replace(Com, "123", NomeView)
Aplicacao.BSO.DSO.BDAPL.Execute (CallByName(Me, Com, VbMethod).Value)

End Sub

推荐阅读