Szukaj…


Uwagi

VBA pośrednio konwertuje niektóre typy na łańcuchy, jeśli to konieczne i bez dodatkowej pracy programisty, ale VBA zapewnia również szereg jawnych funkcji konwersji łańcuchów, a także możesz napisać własny.

Trzy najczęściej używane funkcje to CStr , Format i StrConv .

Użyj CStr, aby przekonwertować typ liczbowy na ciąg

Const zipCode As Long = 10012
Dim zipCodeText As String
'Convert the zipCode number to a string of digit characters
zipCodeText = CStr(zipCode)
'zipCodeText = "10012"

Użyj Format, aby przekonwertować i sformatować typ liczbowy jako ciąg

Const zipCode As long = 10012
Dim zeroPaddedNumber As String
zeroPaddedZipCode = Format(zipCode, "00000000")
'zeroPaddedNumber = "00010012"

Użyj StrConv, aby przekonwertować tablicę bajtów znaków jednobajtowych na ciąg

'Declare an array of bytes, assign single-byte character codes, and convert to a string
Dim singleByteChars(4) As Byte
singleByteChars(0) = 72
singleByteChars(1) = 101
singleByteChars(2) = 108
singleByteChars(3) = 108
singleByteChars(4) = 111
Dim stringFromSingleByteChars As String
stringFromSingleByteChars = StrConv(singleByteChars, vbUnicode)
'stringFromSingleByteChars = "Hello"

Niejawnie konwertuj tablicę bajtów znaków wielobajtowych na ciąg

'Declare an array of bytes, assign multi-byte character codes, and convert to a string
Dim multiByteChars(9) As Byte
multiByteChars(0) = 87
multiByteChars(1) = 0
multiByteChars(2) = 111
multiByteChars(3) = 0
multiByteChars(4) = 114
multiByteChars(5) = 0
multiByteChars(6) = 108
multiByteChars(7) = 0
multiByteChars(8) = 100
multiByteChars(9) = 0
            
Dim stringFromMultiByteChars As String
stringFromMultiByteChars = multiByteChars
'stringFromMultiByteChars = "World"


Modified text is an extract of the original Stack Overflow Documentation
Licencjonowany na podstawie CC BY-SA 3.0
Nie związany z Stack Overflow