<?php
$out = $_GET["name"];
 
echo $out;
?>

Set XMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
XMLHTTP.Open "GET", URL, False
XMLHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
XMLHTTP.send
MsgBox XMLHTTP.responseText

Application.DisplayAlerts = 0

=$A$2:ИНДЕКС($A$2:$A$100; ПОИСКПОЗ(ПОВТОР("я";255);A2:A100))

=ВПР(C5;'[Книга1.xls]Лист1'!$F$1:$F$222;2;0)

Sub data()
    Dim nomer As Long 
    Application.ScreenUpdating = False
    Workbooks.Open "C:\data\Книга1.xls"    
    nomer = Sheets("Лист1").Cells(Rows.Count, 2).End(xlUp).Row    
    ActiveWorkbook.Close False  
    [A1] = nomer  
    Application.ScreenUpdating = True
End Sub

Sub data()

Dim sPath As String, sFile As String, sShName As String
Dim a As Long
a = 0
sPath = "С:\data\"
    sFile = "Книга1.xls"
    sShName = "Лист1"
    Application.DisplayAlerts = 0

For i = 3 To 500000
Sheets(1).Range("C3").Formula = "='" & sPath & "[" & sFile & "]" & sShName & "'!" & "B" & i
If Range("C3") = 0 Then
Exit For
Else
a = i
End If

Next i

Sheets(1).Range("B3").Formula = "=" & a


 Application.DisplayAlerts = 1

End Sub