包含撇号的字符串参数的VBA OnTime

Question

我遇到以下OnTime行的问题：

Application.OnTime printTaskTimers(UBound(printTaskTimers)), _
 "'PrintTask """ & cRng.Value & """, " & cRng.Offset(0, 1).Value & " '"

cRng.Value是工作表名称，cRng.Offset(0, 1).Value是页数。它适用于所有普通的工作表名称，除了2包含撇号。撇号很重要，我宁愿调整代码而不是更改工作表名称。有什么方法吗？

Answer 1

您已经知道如何在字符串中转义双引号。单引号以相同的方式转义。

Application.OnTime printTaskTimers(UBound(printTaskTimers)), _
  "'PrintTask """ & Replace(cRng.Value, "'", "''") & """, " & cRng.Offset(0, 1).Value & " '"