在VBA中使用撇号

问题描述 投票:0回答:1

我正在尝试编写一段VBA,其中我将文本的fixed部分粘贴到文本的variable部分。但是,在我的固定文本部分中,出现了许多撇号,而VBA不喜欢它,因此出现错误。

这是我正在使用的代码部分,其中包含撇号:

For j = 1 To nrOfItems
For i = 1 To nrOfLanguages

Set c1 = Nothing
Set c2 = Nothing
    If Not IsEmpty(Sheets("INPUT IMAGE WITH MOUSEOVER").Cells(j + 2, i * 2).Value) Then
        Set c1 = Sheets("INPUT IMAGE WITH MOUSEOVER").Cells(j + 2, (i * 2) + 1)
        Set c2 = Sheets("INPUT IMAGE WITH MOUSEOVER").Cells(j + 2, i * 2)

        code = code + "if(GETVALUE(""SD1TAAL"") ==" + _
        CStr(Sheets("INPUT WITH MOUSEOVER").Cells(1, i * 2).Value) + ")" + _
        "{ my $image =  '<img src=" ' . GRAPHICSPATH() . ' " + _
        fnConvert2HTML (c1) + _
        ".png "/>' ; my $toolTip =' " + _
        fnConvert2HTML (c2) + _
        "'; return TOOLTIP($image, $toolTip); } "
    End If

Next i
    Sheets("OUTPUT_IMAGE_WITH_MOUSEOVER").Cells(j, 1).Value = begincode + code + endcode
    code = ""
Next j

['。GRAPHICSPATH()出问题了。”向前。有人可以通过解释我如何替换撇号]并使它工作吗?

非常感谢蒂娜

我正在尝试编写一段VBA,在其中我将文本的固定部分粘贴到文本的可变部分。但是,在我的文本固定部分中,出现了一些撇号,VBA不喜欢这些撇号,并且...

excel vba apostrophe
1个回答
0
投票

不需要专门替换任何撇号。足以避免双引号加倍:

© www.soinside.com 2019 - 2024. All rights reserved.