-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
convert Variant to string
- Thread starter amitbern
- Start date
Code:
Public Sub Demo()
Dim StringVal As String
Dim VariantVal As Variant
VariantVal = "test"
' CONVERT TO STRING <<<<<<<< EXAMPLE HERE <<<<<<<
StringVal = CStr(VariantVal)
End SubType Conversion Functions ( SOURCE VBA help file)
Each function coerces an expression to a specific data type.
Syntax
CBool(expression)
CByte(expression)
CCur(expression)
CDate(expression)
CDbl(expression)
CDec(expression)
CInt(expression)
CLng(expression)
CSng(expression)
CStr(expression)
CVar(expression)
Upvote
0
iknowu99
Well-known Member
- Joined
- Dec 26, 2004
- Messages
- 1,158
- Office Version
- 2016
how about when variant is a range?
like
StringVal = CStr(VariantVal)
is not working for me?
i would like to create a text file with the column C, i know i can make a loop and create the text string with vbCrLf and then export with
the loop part is taking forever. help!
like
Code:
VariantVal = Worksheets("Sheets1").Range("C2:C" & Sheets("Sheets1").Range("c1000000").End(xlUp).Row).ValueStringVal = CStr(VariantVal)
is not working for me?
i would like to create a text file with the column C, i know i can make a loop and create the text string with vbCrLf and then export with
Code:
' For c = 2 To Range("C1000000").End(xlUp).Row
' RtnPage = RtnPage & Cells(c, 3) & vbCrLf
' Next c
Set fs = CreateObject("Scripting.FileSystemObject")
Set ah = fs.CreateTextFile("C:\all.txt", True)
ah.Writeline (RtnPage)
ah.Closethe loop part is taking forever. help!
Last edited:
Upvote
0
Jon von der Heyden
MrExcel MVP, Moderator
- Joined
- Apr 6, 2004
- Messages
- 10,907
- Office Version
- 365
- Platform
- Windows
Upvote
0
Rick Rothstein
MrExcel MVP
- Joined
- Apr 18, 2011
- Messages
- 38,522
- Office Version
- 365
- Platform
- Windows
You should be able to replace that loop with the following single line of code and it should be much faster...
Code:
[table="width: 500"]
[tr]
[td]RtnPage = Join(Application.Transpose(Range("C2", Cells(Rows.Count, "C").End(xlUp))), vbNewLine)[/td]
[/tr]
[/table]Edit Note: Just realized I answered an old thread because someone made a strange reply to it today, however I decided to leave my response up as it might prove useful to someone who stumbles across this thread in the future.
Last edited:
Upvote
0
Rick Rothstein
MrExcel MVP
- Joined
- Apr 18, 2011
- Messages
- 38,522
- Office Version
- 365
- Platform
- Windows
Upvote
0
Jon von der Heyden
MrExcel MVP, Moderator
- Joined
- Apr 6, 2004
- Messages
- 10,907
- Office Version
- 365
- Platform
- Windows
I removed the strange reply (just thought I'd point it out otherwise someone may think you're being a bit odd!).
Upvote
0
