Home > Forum Home > Automating Data Analysis Tasks > Help me with web query pls > But still have a problem...... Share

But still have a problem......

Excel Help for But Still Have A Problem...... in Automating Data Analysis Tasks


Forum TopicLogin

But Still Have A Problem......

Rate this:
(3/5 from 1 vote)
ConfusedSub Login_WebQuery()

Dim MyPost As String
Const MyUrl As String = "https://www.rast.hr/hr/moj-portfelj/index.html"
Const PostUser As String = "f[korisnik]=xxxxxxxxx" 'Change user name here
Const PostPassword As String = "f[zaporka]=yyyyyyy" 'Change password here
MyPost = PostUser & PostPassword
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & MyUrl, Destination:=Cells(1, 1))
.PostText = MyPost
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With
End Sub

I still have a problem, it stops on

.PostText=MyPost

Could you help me with that, do you know maybe what could be a reason?

Thanks in advance


 Ivan G
 Posted by on
 
View Full Post

Find relevant Excel templates and add-ins for But still have a problem...... in the