| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Inability to add quotation mark around a variable by concatenation in VBA
Hi,
I am outputting some data for another programmer to parse. He has requested that I add quotation marks around each variable, but when I attempt to do it VBA will have none of it, and wants me to insert 2 quotation marks or none! Here's my code: Dim bCount As Byte For bBandNo = 1 To 9 If arrbBandValue(bBandNo) 0 Then bCount = bCount + 1 'Last one needs special treatment (no comma after and quotes at the end If bCount = bBandCount Then sBandValues = sBandValues & arrbBandValue(bBandNo) & ";" & bBandNo Exit For End If sBandValues = sBandValues & arrbBandValue(bBandNo) & ";" & bBandNo & "," End If Next bBandNo psBandValues = sBandValues I tried two approaches the first being to add them at the end which would be easiest. I just amended the last line: psBandValues = """ & sBandValues & """ However this destroys my variable returning instead of "MyVariableString" as I intend, instead it returns The second to do it 'at source' which yielded the same result. Maybe I am missing something (probably) but should it be so hard to simply add quotation marks around a variable??? Any help much appreciated, M. |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Inability to add quotation mark around a variable by concatenation in VBA
Try...
psBandValues = Chr(34) & sBandValues & Chr(34) -- Garry Free usenet access at http://www.eternal-september.org Classic VB Users Regroup! comp.lang.basic.visual.misc microsoft.public.vb.general.discussion |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Inability to add quotation mark around a variable byconcatenation in VBA
On Wednesday, April 9, 2014 10:40:37 AM UTC+8, Mark Stephens wrote:
Hi, I am outputting some data for another programmer to parse. He has requested that I add quotation marks around each variable, but when I attempt to do it VBA will have none of it, and wants me to insert 2 quotation marks or none! Here's my code: Dim bCount As Byte For bBandNo = 1 To 9 If arrbBandValue(bBandNo) 0 Then bCount = bCount + 1 'Last one needs special treatment (no comma after and quotes at the end If bCount = bBandCount Then sBandValues = sBandValues & arrbBandValue(bBandNo) & ";" & bBandNo Exit For End If sBandValues = sBandValues & arrbBandValue(bBandNo) & ";" & bBandNo & "," End If Next bBandNo psBandValues = sBandValues I tried two approaches the first being to add them at the end which would be easiest. I just amended the last line: psBandValues = """ & sBandValues & """ However this destroys my variable returning instead of "MyVariableString" as I intend, instead it returns The second to do it 'at source' which yielded the same result. Maybe I am missing something (probably) but should it be so hard to simply add quotation marks around a variable??? Any help much appreciated, M. Hey Garry, that worked like a dream thanks so much for the help, M. |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Inability to add quotation mark around a variable by concatenation in VBA
Hey Garry, that worked like a dream thanks so much for the help, M.
Glad to help... -- Garry Free usenet access at http://www.eternal-september.org Classic VB Users Regroup! comp.lang.basic.visual.misc microsoft.public.vb.general.discussion |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Inability to add quotation mark around a variable by concatenationin VBA
On 09/04/2014 03:40, Mark Stephens wrote:
Hi, I am outputting some data for another programmer to parse. He has requested that I add quotation marks around each variable, but when I attempt to do it VBA will have none of it, and wants me to insert 2 quotation marks or none! Here's my code: Dim bCount As Byte For bBandNo = 1 To 9 If arrbBandValue(bBandNo) 0 Then bCount = bCount + 1 'Last one needs special treatment (no comma after and quotes at the end If bCount = bBandCount Then sBandValues = sBandValues & arrbBandValue(bBandNo) & ";" & bBandNo Exit For End If sBandValues = sBandValues & arrbBandValue(bBandNo) & ";" & bBandNo & "," End If Next bBandNo psBandValues = sBandValues I tried two approaches the first being to add them at the end which would be easiest. I just amended the last line: psBandValues = """ & sBandValues & """ However this destroys my variable returning instead of "MyVariableString" as I intend, instead it returns The second to do it 'at source' which yielded the same result. Maybe I am missing something (probably) but should it be so hard to simply add quotation marks around a variable??? It isn't but you have to escape them in. So to add one " you need two. """" = " as a string So a = """" & "test" & """" debug.print a will print "test" Any help much appreciated, M. -- Regards, Martin Brown |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Single Quotation mark in CSV | Excel Discussion (Misc queries) | |||
| Single Quotation mark in CSV | Excel Discussion (Misc queries) | |||
| excel save as csv quotation mark | Excel Programming | |||
| how do I concatenate text that has a quotation mark | Excel Discussion (Misc queries) | |||
| chr() for quotation mark | Excel Programming | |||
Linear Mode
