Sub test()
    MsgBox GetMetadata(ThisWorkbook.Path & "\Раздел 5. Подраздел 4.3.pdf", "Modify Date*")
    ' выводит результат 2024:06:20 22:18:58+03:00
End Sub

Function GetMetadata(ByVal filename$, ByVal meta$)
    On Error Resume Next: Dim cmd$
    AppPath$ = ThisWorkbook.Path & "\exiftool.exe"
    cmd$ = """" & AppPath$ & """ -""" & meta$ & """ -charset Cyrillic """ & filename$ & """"
    GetMetadata = ShellRun(cmd$)
    GetMetadata = Trim(Replace(Split(GetMetadata, ":", 2)(1), vbNewLine, " "))
End Function

Public Function ShellRun(sCmd As String) As String
    On Error Resume Next: Dim oShell: Set oShell = CreateObject("WScript.Shell")
    ShellRun = oShell.Exec(sCmd).StdOut.ReadAll
End Function

Public Function GetForm()
    Set GetForm = UserForm1
End Function

Sub test3234()
    Set form = Run("Форма.xls!GetForm")
    form.Show
    form.Controls("textbox1") = 444
    form.CommandButton1_Click
End Sub

Private Sub CommandButton4_Click()
    Frame1.Left = -204
    For i = -204 To 200 Step 2
        Frame1.Left = i
        For j = 1 To 1000: DoEvents: Next
    Next
End Sub

Private Sub CommandButton4_Click()
    Image2.Left = -204
    For i = -204 To 12 Step 3
        Image2.Left = i
        For j = 1 To 4000: DoEvents: Next
    Next
End Sub

Set Child = XML.createElement("date")
Child.Text = IIf(Range("start_common").Offset(13, 2) = "", "01.01", Range("start_common").Offset(13, 2))
stamp.appendChild Child

Sub FollowFormulaHyperlink()
    ' макрос открытия формульной гиперссылки из активной ячейки
    URL$ = GetCellHyperlinkAddress(ActiveCell) ' получаем ссылку
    CreateObject("WScript.Shell").Run URL$ ' открываем её
End Sub

Function GetCellHyperlinkAddress(ByRef cell As Range, Optional AllowInactiveURL As Boolean = False) As String
    On Error Resume Next
    Dim v$
    With cell.MergeArea.Hyperlinks(1)
        GetCellHyperlinkAddress = .Address
        If Len(GetCellHyperlinkAddress) Then
            If Len(.SubAddress) Then GetCellHyperlinkAddress = GetCellHyperlinkAddress & "#" & .SubAddress
            
            If GetCellHyperlinkAddress Like "..*" Then GetCellHyperlinkAddress = cell.Worksheet.Parent.Path & "\" & Replace(GetCellHyperlinkAddress, "/", "\")
            Exit Function
        End If
    End With   
    
    Dim txt$, Brackets&, Quotes&, i&
    If GetCellHyperlinkAddress = "" Then
        If cell.Formula Like "=HYPERLINK*" Then
            txt$ = Mid$(cell.Formula, 12)
            txt$ = Left(txt, Len(txt) - 1)
            For i& = 1 To Len(txt)
                Select Case Mid(txt, i, 1)
                    Case "(": Brackets& = Brackets& + 1
                    Case ")": Brackets& = Brackets& - 1
                    Case """": Quotes& = Quotes& + 1
                    Case ","
                        If (Brackets& = 0) And (Quotes& Mod 2 = 0) Then
                            txt = Left(txt, i - 1)
                            Exit For
                        End If
                End Select
            Next
            GetCellHyperlinkAddress = Evaluate(txt)
        End If
    End If
    Err.Clear
End Function

Range("a1:a5").Copy Range("b8")

objXls5.Sheets("Реестр").Range("W6:X" & llastr).SpecialCells(12).Copy  objXls6.Sheets("Форма").Range("H" & llastr2)

        TimeStamp = Timer
        Do While (.Busy = True) Or (.readyState <> 4)
            DoEvents
            If Abs(Timer - TimeStamp) >= 2 Then Exit Do
        Loop

WebDriver.GetScreenshot.SaveAsFile filename$, 1