- Codice: Seleziona tutto
Dim DataDa As Date
For DataDa = DateSerial(2012, 12, 31) To DateSerial(2000, 1, 1) Step -1
'
'le istruzioni
'
Next DataDa
La data "corrente" e' contenuta nella variabile DataDa
Ciao
Moderatori: Anthony47, Flash30005
Dim DataDa As Date
For DataDa = DateSerial(2012, 12, 31) To DateSerial(2000, 1, 1) Step -1
'
'le istruzioni
'
Next DataDa
Stai tranquillo, ci vuole altro per "stressarmi"; e comunque leggere e cercare di rispondere non me l' ha ordinato il medico, quindi leggo e cerco di rispondere perche' ne ho voglia (come credo valga per tutti gli altri che anche loro leggono e danno contributi).per non stressarti...
Credo che questo elenco non esista, e la cosa piu' vicina sia l' help on line del vba: selezioni una parola chiave del codice, premi F1 e ti si apre la guida relativa al significato e all' uso di quella parola chiave "nel contesto", con tanto di esempi; una vera miniera a portata di mano.. . . dove è possibile trovare un elenco dei comandi VBA (forse sono troppi veramente rispetto ai comandi di Excel) o un manuale ben fatto che spieghi come e quali usare ?
Questa e' quella che avrei suggerito io: lasci DataDa (con quella "Dim") in uso nel ciclo For /Next e usi la variabile DataD1 per calcolare la "stringa".questa potrebbe funzionare ? ma non penso sia giusta
DataD1 = Format(DataDa, "yyyy-mm-dd")
.RefreshStyle = xlOverwriteCells
If Range("A1")=Range("J1") Then
'azioni da fare se A1 e J1 sono uguali
Else
'azioni se A1 e J1 sono diversi
End If
Sub ODDSFAIRNET()
Sheets("prove prosoccer").Select
Mydate = Format(Range("eE1").Value, "yyyy-mm-dd")
'
For I = 0 To 60 Step 20 '<< Esistente
'AGGIUNGERE
aaa = ""
For Each WQ In ActiveSheet.QueryTables
aaa = aaa & WQ.Name & "--"
Next WQ
[dV1] = aaa & I '
myConn = "URL;http://www.oddsfair.net/en/index.php?date=" _
& Mydate & "&order=1x2desc&offset=" & I
With ActiveSheet.QueryTables("Offset_" & I)
.Connection = myConn
.Refresh BackgroundQuery:=False
End With
Next I
Range("BA10002:Bx20000").Select
Selection.ClearContents
Application.Wait (Now + TimeValue("0:00:10"))
Range("BQ4:Bx4").Select
Selection.AutoFill Destination:=Range("BQ4:Bx1000"), Type:=xlFillDefault
Range("BQ4:Bx1000").Select
Range("BA2:Bx1000").Select
Selection.Copy
Range("BA10000").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Range("$ba$10000:$bx$20000").RemoveDuplicates Columns:=3, Header:= _
xlYes
Range("BA10002:Bx20000").Select
ActiveWorkbook.Worksheets("prove prosoccer").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("prove prosoccer").Sort.SortFields.Add Key:=Range( _
"BB10002:BB20000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
ActiveWorkbook.Worksheets("prove prosoccer").Sort.SortFields.Add Key:=Range( _
"BA10002:BA20000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("prove prosoccer").Sort
.SetRange Range("BA10002:Bx20000")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.SmallScroll Down:=-78
Range("BA10002:Bx20000").Select
Selection.Copy
Sheets("txodds2").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Call newtx2
Call DATI_WEB_TxOdds_Archivio
End Sub
offset_0--offset_60--offset_40--offset_20--60
Torna a Applicazioni Office Windows
Supporto per Macro Query import pdf to excel Autore: JanVathek |
Forum: Applicazioni Office Windows Risposte: 10 |
Condizioni IIF nelle Query di Access Autore: GelriccaSud |
Forum: Applicazioni Office Windows Risposte: 2 |
Power query - scarire stessa tabella da più link Autore: Denis7 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 87 ospiti