VBA Excel字符串转义退格字符

Question

我正在为进度报告创建一个宏，该宏将仅询问用户要添加的进度报告的日期，从而为用户更新总收入，成本和利润单元。 当所有文件都放在跳转驱动器上时，我已经可以正常工作了，但是当我将所有文件都移到硬盘驱动器上并更改了字符串，以便不在跳转驱动器中查找时，它将为每个单元格打开一个打开的对话框。 当您选择所需的文件时，它可以工作，但是我试图不必这样做。

一旦启动以指定格式要求日期的宏，我就会出现一个输入框。 这工作正常，只显示一次，这就是我想要的。

我认为该问题与\\ kb变量有关，与我的wkbk变量有关，因此找不到文件并打开每个单元格的打开对话框。

有没有办法在VBA中转义此字符？ 我发现的所有转义字符信息都是针对'或'的，别无其他。

    Range("J38:K38").Select
    myNum = Application.InputBox("Please enter the date of report to be added EX 5-12-13")
Dim wkbk As String
    wkbk = "Documents\Project for dad\Sent\PROGRESS REPORTS " & myNum & ".xls"

ActiveCell.FormulaR1C1 = _
    "=RC[-2]+'[wkbk]Day'!R38C10:R38C11"
Range("J39:K39").Select
ActiveCell.FormulaR1C1 = _
    "=RC[-2]+'[wkbk]Day'!R39C10:R39C11"
Range("J40:K40").Select
ActiveCell.FormulaR1C1 = _
    "=RC[-2]+'[wkbk]Day'!R40C10:R40C11"

Answer 1

您的代码有很多错误：

1. 如果文件路径错误，您将得到您描述的行为
2. 您没有正确使用.FormulaR1C1

这段代码将起作用，但是您的解决方案并不可靠：

Sub Test2()
  'Dim's go at the top
  Dim wkbk As String
  Dim RelativeOffSet As String
  Dim strRange

  'This is just the file name
  myNum = Application.InputBox("Please enter the date of report to be added EX 5-12-13")
  wkbk = "Documents\Project for dad\Sent\PROGRESS REPORTS"

  'gets the "C:\" from the cell relative to activeCell (h38 after 1st select)
  RelativeOffSet = "=RC[-2]"
  Range("J38:K38").Select
  strRange = "$J$38:$K$38"

  ActiveCell.FormulaR1C1 = RelativeOffSet
  ActiveCell.Value = "='" & ActiveCell.Value & wkbk & "[" & myNum & ".xlsx]Sheet1'!" + strRange 
End Sub