VBA Excelstring退格退格字符
我正在制作一个进度报告的macros，它只会向用户询问要添加的进度报告的date，从而更新用户的总收入，成本和利润单元格。 当所有的文件都在一个跳转驱动器上时，我有这个工作，但是当我把它们全部移到我的硬盘驱动器，并改变了string，所以它没有在跳转驱动器看它popup每个单元打开对话框。 它在你select你想要的文件的时候起作用，但是我不想这样做。
只要您启动要求指定格式的date的macros，就会显示一个input框。 这工作正常，只出现一次，这就是我想要的。
我认为这个问题与我的wkbkvariables有关，因为\字符，因此没有find文件并打开每个单元格的打开对话框。
有没有办法在VBA中逃脱这个angular色？ 我发现的所有转义字符信息都是为了“或者”而不是别的。
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" 您的代码中有许多错误：
- 如果文件的path不好，你会得到你描述的行为
- 您没有正确使用
.FormulaR1C1
这个代码将工作，但你的解决scheme是不健壮的：
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