Moderatori: Anthony47, Flash30005
For I=1 to 1000
With Range("B2").QueryTable
.Connection = "URL;http://www.base-della-query" & I
.Refresh BackgroundQuery:=False
End With
'Istruzioni per mettere in ordine le info ottenute dalla query
Next I
Sub Macro1()
'
' Macro1 Macro
'
' Scelta rapida da tastiera: CTRL+q
'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.odcec-rc.it/cgi/intranet.pl?_cgifunction=form&_layout=albo_commercialisti&keyval=albo_commercialisti.albo_commercialisti_id=" _
, Destination:=Range("$B$2"))
.Name = _
"intranet.pl?_cgifunction=form&_layout=albo_commercialisti&keyval=albo_commercialisti.albo_commercialisti_id=711"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "4"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
Sub Macro2()
'
' Macro2 Macro
'
' Scelta rapida da tastiera: CTRL+w
'
For I = 1 To 1000
With Range("B2").QueryTable
.Connection = "URL;http://www.odcec-rc.it/cgi/intranet.pl?_cgifunction=form&_layout=albo_commercialisti&keyval=albo_commercialisti.albo_commercialisti_id=" & I
.Refresh BackgroundQuery:=False
End With
'Istruzioni per mettere in ordine le info ottenute dalla query
Next I
End Sub
Range("Z1:AD1").Copy
Sheets("Foglio2").Cells(Rows.count,1).End(xlup).Offset(1,0).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 5 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 33 ospiti