在VBA中附加正斜杠（Excel）

Question

我试图将正斜杠附加到某些文本文件的末尾，但是当我附加正斜杠时，它显示为“ /”而不是/

我为您提供了代码，非常感谢您能帮助我解决问题。

Sub AddBackslash()
  'Set variable R as Range for reading a whole list of column
  Dim R As Range
  Dim BK As String

  'Below variable is to hold string
  Dim SourcePath As String, DestPath As String, FName As String
  Dim myFile As String, text As String, textline As String, posLat As Integer, posLong As Integer

  'set sheet2 as active sheet for retrieve data at column A of sheet 2
  Worksheets("Sheet2").Activate

    BK = "/"


  'Visit each used cell in column A
  For Each R In Range("B2", Range("B" & Rows.Count).End(xlUp))

    'MsgBox "Name:" & R

    myFile = R
    Open myFile For Append As #1
    Write #1, Chr(47)
    Close #1

  Next
  ChangeSheet ("Sheet1")
End Sub

当前输出样本：

这是示例。“ /”

我希望输出如下：

这是示例。

Answer 1

您可以使用“打印”而不是“写”，因为“打印”将不包含双引号