C
cultfigure
I'm trying to post information from an excel 2004 VBA macro, everything
works except the POST info is not sent. GET vars are sent to my web
page just fine, but I need to send a lot more data. The code works
fine on Windows XP running Office 2003:
Dim qtsQueries As QueryTables
Dim qtQuery As QueryTable
Dim strPost As String
strPost = "data=testing a lot of text data here"
Set qtsQueries = ActiveSheet.QueryTables
Set qtQuery = qtsQueries.Add( _
Connection:="URL;http://my_site.com/sys.php?u=blah&p=fjkls", _
Destination:=Range("C5") _
)
With qtQuery
' Posted data
.PostText = strPost
.Refresh
If .FetchedRowOverflow Then
MsgBox "Your request returned too many results. " _
& "Please refine your search.", vbInformation, "Result Error"
End If
.Delete
End With
Any suggestions would be great, thanks!
works except the POST info is not sent. GET vars are sent to my web
page just fine, but I need to send a lot more data. The code works
fine on Windows XP running Office 2003:
Dim qtsQueries As QueryTables
Dim qtQuery As QueryTable
Dim strPost As String
strPost = "data=testing a lot of text data here"
Set qtsQueries = ActiveSheet.QueryTables
Set qtQuery = qtsQueries.Add( _
Connection:="URL;http://my_site.com/sys.php?u=blah&p=fjkls", _
Destination:=Range("C5") _
)
With qtQuery
' Posted data
.PostText = strPost
.Refresh
If .FetchedRowOverflow Then
MsgBox "Your request returned too many results. " _
& "Please refine your search.", vbInformation, "Result Error"
End If
.Delete
End With
Any suggestions would be great, thanks!