Public Sub Test()
Dim i As Integer, sFormula As String
sFormula = "="
For i = 1 To ThisWorkbook.Sheets.Count
If i >= 4 Then
sFormula = sFormula & "'" & ThisWorkbook.Sheets(i).Name & "'!R2C2+"
End If
Next
If sFormula <> "=" Then
sFormula = Left(sFormula, Len(sFormula) - 1)
ThisWorkbook.Sheets(1).Range("A1").FormulaR1C1 = sFormula
End If
End Sub
function parse ($url)
{
$curl = curl_init();
curl_setopt($curl, CURLOPT_URL, $url);
curl_setopt($curl, CURLOPT_USERAGENT, "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/49.0.2623.87 Safari/537.36");
curl_setopt($curl, CURLOPT_FOLLOWLOCATION, 1);
$result = curl_exec($curl);
return $result;
}
echo parse('https://sofifa.com/');
при парсинге данных под датой получаю число в ##
import requests
import json
response = requests.get("https://jcmellrudo.top/LiveFeed/GetChampZip?lng=ru&champ=1252965&partner=8&tf=10000")
fight_all = response.json()
rez = fight_all["Value"]["G"][1]["SC"]["S"][1]["Value"]
for i in json.loads(rez):
print(i["DI"])
//a[contains(@href,'command?PFILE=Server_Status')]