追加斜槓

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不會包含雙引號