Moderatori: Anthony47, Flash30005
WebDisableDateRecognition = True
Sub NuovoAggiornamentoE()
On Error GoTo errore
'Application.ScreenUpdating = False
'Application.Calculation = xlManual
Worksheets("Appoggio").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.lottoced.com/superenalotto/Estrazioni.aspx" _
, Destination:=Range("A1"))
.Name = "dati"
.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 = "6"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True 'False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
errore:
If Err <> 0 Then
MsgBox Err.Number & " " & Err.Description, vbCritical
End If
'Application.ScreenUpdating = True
'Application.Calculation = xlCalculationAutomatic
End Sub
Sub Macro1()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.lottoced.com/superenalotto/Estrazioni.aspx", Destination:= _
Range("A1"))
.Name = "Estrazioni"
.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 = "14"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
Torna a Applicazioni Office Windows
Supporto per sviluppo macro VBA Ordinare per data Autore: Carletto Ribolla |
Forum: Applicazioni Office Windows Risposte: 3 |
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 5 |
Eliminare righe diverse dalla prima data del mese Autore: dipdip |
Forum: Applicazioni Office Windows Risposte: 4 |
Visitano il forum: Nessuno e 19 ospiti