追加斜杠

Question

我想追加斜杠一些文本文件的末尾，但是当我附上斜线，则显示为“/”，而不是A/

我为大家提供我的代码，我很感激你能否帮助我解决问题。

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 

样品电流输出：

这是例如 “/”

我想输出是这样：

这是example./

Answer 1

您可以使用Print而不是Write ，因为Print不会包含双引号