Уже сижу не первый день на форумах разработчиков. Мы все в тупике. Учитывая, что тут много умных людей и это Ваша специфика, надеюсь, что тут кто поможет.
Заказчик уже на грани, поэтому простите.
Предыстория:
Написал макрос VBA на Excel 2007. Проверил у себя на ПК на Ексель 2007 и 2010, проверил на других машинах с Ексель 2010 - всё работает. У заказчика не работает на Ексель 2010 - выдает ошибку.
Сделал маленькую тестовую функцию, в которой просто ошибок не может - у всех работает, у него не работает.
[vba]
Код
Public Const SheetCfg As String = "cfg"
Sub Test()
Dim Target As Excel.Worksheet Dim Source As Excel.Worksheet
ClientName = ActiveWorkbook.Name 'куда копировать Set Target = Workbooks(ClientName).Worksheets(SheetCfg) 'откуда копировать Set Source = Workbooks(ClientName).Worksheets(SheetCfg) 'Копирование листа Source.Copy Before:=Target !!!! ОШИБКА ЗДЕСЬ !!!!
End Sub
[/vba]
ошибка Run-Error 1004 метод Copy не может быть выполнен.
Уже поставил ему свой Excel 2010 отключил антивирус сделал все updates windows отключил firewall запускал Excel от имени администратора
не работает. я в тупике, помогите!!!
на переустановку ОС не согласен.
клиент признался только, что у него были "вирусы" и какой-то антивирусник нашел у него тысячи файлов с вирусами и потер всё. поэтому думаю, что он попортил свой Windows этим "антивирусом"
Уже сижу не первый день на форумах разработчиков. Мы все в тупике. Учитывая, что тут много умных людей и это Ваша специфика, надеюсь, что тут кто поможет.
Заказчик уже на грани, поэтому простите.
Предыстория:
Написал макрос VBA на Excel 2007. Проверил у себя на ПК на Ексель 2007 и 2010, проверил на других машинах с Ексель 2010 - всё работает. У заказчика не работает на Ексель 2010 - выдает ошибку.
Сделал маленькую тестовую функцию, в которой просто ошибок не может - у всех работает, у него не работает.
[vba]
Код
Public Const SheetCfg As String = "cfg"
Sub Test()
Dim Target As Excel.Worksheet Dim Source As Excel.Worksheet
ClientName = ActiveWorkbook.Name 'куда копировать Set Target = Workbooks(ClientName).Worksheets(SheetCfg) 'откуда копировать Set Source = Workbooks(ClientName).Worksheets(SheetCfg) 'Копирование листа Source.Copy Before:=Target !!!! ОШИБКА ЗДЕСЬ !!!!
End Sub
[/vba]
ошибка Run-Error 1004 метод Copy не может быть выполнен.
Уже поставил ему свой Excel 2010 отключил антивирус сделал все updates windows отключил firewall запускал Excel от имени администратора
не работает. я в тупике, помогите!!!
на переустановку ОС не согласен.
клиент признался только, что у него были "вирусы" и какой-то антивирусник нашел у него тысячи файлов с вирусами и потер всё. поэтому думаю, что он попортил свой Windows этим "антивирусом"Andrey_Russe
Ошибка скорее всего не в коде, и даже не в Excel. Одно время было из за плагина к скайпу. На прошлой наделе довелось изрядно поработать вручную с буфером, так сообщение типа "не могу освободить буфер??" изрядно достало. Чем вызвано, не разбирался.
Ошибка скорее всего не в коде, и даже не в Excel. Одно время было из за плагина к скайпу. На прошлой наделе довелось изрядно поработать вручную с буфером, так сообщение типа "не могу освободить буфер??" изрядно достало. Чем вызвано, не разбирался.RAN