Я сделал следующий скрипт в VBS, но, хотя он работает в Windows XP и Vista, я не могу заставить его работать в Win7 как в 32, так и в 64-битной версии.
set myclip = createobject("clipbrd.clipboard")
bcode = myclip.gettext
if len(bcode) > 0 then
set wb = getobject("C:\DB.xlsx")
wb.sheets("1").range("a2").value = bcode
myclip.clear
myclip.settext wb.sheets("1").range("c2")
set wb = nothing
end if
set myclip = nothing
Через повышенный cmd regsvr32
я получаю
Regsvr32 DllRegisterServer in clipboard.dll succeded
.
Однако, когда я пытаюсь запустить vbs, я получаю следующую ошибку:
Line: 1 Char: 1 ActiveX component can't create object 'clipbrd.clipboard' Code: 800A01AD S
Есть идеи как его пройти?