Add Marathon Bet live stats VBA scraper
- MarathonStats.bas: VBA module that fetches live sports data from marathonbet.by using curl (handles gzip compression), parses HTML for team names, scores, odds, and outputs to formatted Excel sheet - RunMarathon.ps1: PowerShell launcher to automate Excel macro execution - MarathonStats.xlsm: Pre-built workbook with sample output Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
This commit is contained in:
47
RunMarathon.ps1
Normal file
47
RunMarathon.ps1
Normal file
@@ -0,0 +1,47 @@
|
||||
$ErrorActionPreference = "Stop"
|
||||
|
||||
$basPath = "c:\Users\Alexei\Documents\VBA\MarathonStats.bas"
|
||||
$savePath = "c:\Users\Alexei\Documents\VBA\MarathonStats.xlsm"
|
||||
|
||||
Write-Host "=== Marathon Stats Launcher ===" -ForegroundColor Cyan
|
||||
Write-Host ""
|
||||
|
||||
Write-Host "[1/5] Starting Excel..." -ForegroundColor Yellow
|
||||
$excel = New-Object -ComObject Excel.Application
|
||||
$excel.Visible = $true
|
||||
$excel.DisplayAlerts = $false
|
||||
|
||||
Write-Host "[2/5] Creating workbook..." -ForegroundColor Yellow
|
||||
$workbook = $excel.Workbooks.Add()
|
||||
|
||||
Write-Host "[3/5] Importing VBA module..." -ForegroundColor Yellow
|
||||
try {
|
||||
$null = $workbook.VBProject.VBComponents.Import($basPath)
|
||||
Write-Host " Module imported OK" -ForegroundColor Green
|
||||
} catch {
|
||||
Write-Host "ERROR: Cannot access VBA project - $_" -ForegroundColor Red
|
||||
$excel.Quit()
|
||||
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null
|
||||
exit 1
|
||||
}
|
||||
|
||||
Write-Host "[4/5] Running FetchMarathonStats..." -ForegroundColor Yellow
|
||||
Write-Host " (curl will fetch page, then parse and format)" -ForegroundColor Gray
|
||||
try {
|
||||
$excel.Run("FetchMarathonStats")
|
||||
Write-Host " Macro completed" -ForegroundColor Green
|
||||
} catch {
|
||||
Write-Host " Macro error: $($_.Exception.Message)" -ForegroundColor Red
|
||||
}
|
||||
|
||||
Write-Host "[5/5] Saving workbook..." -ForegroundColor Yellow
|
||||
try {
|
||||
if (Test-Path $savePath) { Remove-Item $savePath -Force }
|
||||
$workbook.SaveAs($savePath, 52)
|
||||
Write-Host " Saved to: $savePath" -ForegroundColor Green
|
||||
} catch {
|
||||
Write-Host " Save error: $($_.Exception.Message)" -ForegroundColor Red
|
||||
}
|
||||
|
||||
Write-Host ""
|
||||
Write-Host "=== Done! ===" -ForegroundColor Cyan
|
||||
Reference in New Issue
Block a user