A
Amit
Hello group,
Below is the code that retrieves some information off a web server. As
you know better following code will place all information in cell A7
and following cells.
Now, since I need to create a progress bar I think that the best way
would be inserting all coming informatin into an array first. Then
afterwards, I will read the information from the array and will
populate the sheet then I can use a progress bar based on each row
being filled.
1) My question is how can I have this code to put information in an
array instead of sheet first?
2) I'm using these data to create a graph but all bars are stick to
each other! how can I make a gap between them?
3) how can I have them in one unique color rather than mulit color bar?
Thank you so much.
AK
Dim strRq1 As String
Dim strRq2 As String
Dim strRq3 As String
On Error Resume Next
'Clean up the page
ActiveWindow.ActiveSheet.UsedRange.Clear
'Populate the sheet from A7 cell on
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & strRq1 & strRq2 & strRq3, _
Destination:=Range("A7"))
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With
Below is the code that retrieves some information off a web server. As
you know better following code will place all information in cell A7
and following cells.
Now, since I need to create a progress bar I think that the best way
would be inserting all coming informatin into an array first. Then
afterwards, I will read the information from the array and will
populate the sheet then I can use a progress bar based on each row
being filled.
1) My question is how can I have this code to put information in an
array instead of sheet first?
2) I'm using these data to create a graph but all bars are stick to
each other! how can I make a gap between them?
3) how can I have them in one unique color rather than mulit color bar?
Thank you so much.
AK
Dim strRq1 As String
Dim strRq2 As String
Dim strRq3 As String
On Error Resume Next
'Clean up the page
ActiveWindow.ActiveSheet.UsedRange.Clear
'Populate the sheet from A7 cell on
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & strRq1 & strRq2 & strRq3, _
Destination:=Range("A7"))
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With