1

Тема: Копируем инфу в буфер обмена

Копируем инфу в буфер обмена:

function CopyToClipboard(sText)
 
        'Set objIE = CreateObject("InternetExplorer.Application")
        'objIE.Navigate("about:blank")
        'objIE.document.parentwindow.clipboardData.SetData "text", sText
        'objIE.Quit       
 
         'Через VB:
              Set WshShell = CreateObject("WScript.Shell")
              Set oExec = WshShell.Exec("clip")
              Set oBuff = oExec.stdIn
              oBuff.WriteLine sText
end function