Excel宏以变量替换标签

时间:2019-03-02 08:03:47

标签: excel vba

我正在使用以下代码替换导出的qml文件中的一些文本和标签。

sTemp = Replace(sTemp, "<CONTENT>", "</CONTENT>")

但是现在我想用变量替换标签,如下所示:

sTemp = Replace(sTemp, "<CONTENT ID="0">", "<CONTENT ID="0"><![CDATA[")

感谢您的帮助。 谢谢

1 个答案:

答案 0 :(得分:2)

您的Replace需要两个字符串部分。
它们的限制双引号必须保持如下所示:

sTemp = Replace(sTemp, "...", "...")

如果您用字符串交换每个...,请将每个他们的双引号加倍,
但请保留上述限制条件。

示例:

Doublequote somewhere in the middle: <CONTENT ID="0">
                                     <CONTENT ID="0"><![CDATA[
sTemp = Replace(sTemp, "<CONTENT ID=""0"">", "<CONTENT ID=""0""><![CDATA[")

Doublequote at the end: ID="0"
                        "ID=1"
sTemp = Replace(sTemp, "ID=""0""", """ID=1""") 

Double-Doublequote: =IF(A1="you got it","yeah :)","")
Range.Formula = "=IF(A1=""you got it"",""yeah :)"","""")"