将字符串转换为ASCII码

Question

我正在尝试使用Excel VBA编写一个函数来将字符串转换为其各自的ASCII编号。例如：

"ABCD" => "65666768" 

我写了这个代码，但它没有做到的转换：

Public Function asciien(s As String) As String 
' Returns the string to its respective ascii numbers 
    Dim i As Integer 

    For i = 1 To Len(s) 
     asciien = asciien & CStr(Asc(Mid(s, x, 1))) 
    Next i 

End Function 

Answer 1

此行

asciien = asciien & CStr(Asc(Mid(s, x, 1))) 

应该读

asciien = asciien & CStr(Asc(Mid(s, i, 1))) 

“× “没有价值