Unable to create Tinyurl with & symbol

[Azman Ali M.Habib Rahman]

Dear All,

I would like to create Tinyurl from long URL that's contain & symbol.

The coding that I use is as below:

Function GetTinyUrl(url As String) As String
' based on http://chandoo.org/wp/2009/02/05/twitter-from-excel/
' tinyurl API creation link from:
' http://www.wprecipes.com/how-to-automatically-provide-tinyurls-for-your-wordpress-blog-posts

Dim xml As Object
Set xml = CreateObject("MSXML2.XMLHTTP.6.0")

xml.Open "POST", "http://tinyurl.com/api-create.php?url=" & url, False
xml.Send

GetTinyUrl = xml.ResponseText
End Function

For example below URL

http://www.aweber.com/thankyou-coi.htm?m=text&l=chandoo-org

The Tinyurl only will create until below URL

http://www.aweber.com/thankyou-coi.htm?m=text

The remaining will be cut when using this fuction.

Hope can guide me to solve this issue.

Thanks in advance

 

[Hui]

Azman

Firstly, Welcome to the chandoo.org Forums

You can add the character by using Chr(38) in place of & in VBA

ie:
xml.Open "POST", "http://tinyurl.com/api-create.php?url=" & Chr(38) & url, False

or

xml.Open "POST", "http://tinyurl.com/api-create.php?url= &" & url, False

 

[Azman Ali M.Habib Rahman]

Hola Hui,

Thank you for your reply. I already try as per your suggestion but I still get the same result.

 

[Hui]

Can you please post the calling sub that is calling that function ?

 

[Azman Ali M.Habib Rahman]

Hola Hui,

Below is the sub that calling that function

'http://www.codeforexcelandoutlook.com/blog/2009/06/create-tiny-urls-using-vba/
Sub Test_GetTinyURL()


Dim c As Excel.Range

For Each c In Selection

c.Offset(0, 2) = GetTinyUrl(c.Value, c.Offset(0, 1).Value)

Next c


End Sub