Καλημέρα.Ο κώδικας δουλεύει μια χαρά αλλά τον έω φτιάξει σε visual basic for aplication.
Και ήθελα αν γίνεται να μετατραπεί σε python .
Μέχρι τώρα χρησιμοποιώ το excel γα την αντληση των δεδομενων.
Επειδή θέλω να περάσω ubuntu sto laptop moy αλλά όμως θέλω να έχω αυτο το αρχειο excel για να παίρνω τα δεδομένα.
Ομως αν μπορεί κάποιος να φτιάξει αυτόν το κώδικα και να πηγαίνουν κατευθείαν σε έναν πινακα mysql θα ήταν τέλειο.
Αλλιώς αν γίνεταιαυτός ο κώδικας να δουλέψει σε libre calc
κωδικας:
επεξηγηση:
Range("AA3")=πόσες φορές θα τρέξει ο κώδικας
LastROW=επικολεί τα δεδομένα σε νέα γραμμή
NUM=id πρωταθλήματος
Το τεελευταίο κομμάτι του κώδικα επικολεί το όνομα του πρωταθλήματος δίπλα στα αποτελεσματα.
Sub keraro()
'
' makroentoli
'
'
Dim i As Long
Dim NUM As Long
i = 1
Do While i <= Range("aa2")
i = 1 + i
With ActiveSheet
LastRow = (.Cells(.Rows.Count, "E").End(xlUp).Row)
End With
NUM = Range("b" & i)
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.aragon.ws/soccerdb/league/matchesAll.php?stageId=" & NUM & "", _
Destination:=Range("c" & LastRow + 1))
.Name = "matchesAll.php?stageId=" & NUM & ""
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
ActiveWorkbook.Connections("Óýíäåóç").Delete
With ActiveSheet
FirstRow = (.Cells(.Rows.Count, "E").End(xlUp).Row)
End With
LastRow = LastRow + 1
Range("U" & i & ":Y" & i & "").Select
Selection.Copy
Range("I" & FirstRow & ":I" & LastRow).Select
ActiveSheet.Paste
Loop
End Sub
