Господа, доброго дня вам!
Возникла вот такая трудность, никак не понимаю как её решить.
Делаю копирование листа из одной книги в другую, ну ещё попутно небольшие манипуляции.
вот код:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
Sub Макрос3()
Workbooks.Open Filename:= _
"D:\Структура.xls"
Application.CutCopyMode = False
Worksheets( 1 ).Activate
Cells.Select
Selection.Copy
'отключаем сообщения об ошибках
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
'удаляем
Workbooks.Add
Visible = False
Workbooks( 1 ).Activate
'отключаем сообщения об ошибках
Application.DisplayAlerts = False
'удаляем листы
For i& = 1 To Sheets.Count - 1
Sheets( 1 ).Delete
Next i&
Application.DisplayAlerts = True
Sheets( 1 ).Name = "XXXXXX"
ActiveSheet.Paste ' вставляем
Application.CutCopyMode = False
'отключаем сообщения об ошибках
Application.DisplayAlerts = False
'сохраняем
ActiveWorkbook.SaveAs Filename:="C:\Program Files\ARIS6.2\for_Aris\ExcelTemp.xls"
'включаем сообщения об ошибках
Application.DisplayAlerts = True
Application.Quit
End Sub
Вопрос:
1) Копирование происходит только если я макрос выполняю пошагово....., если я не пошагово его выполняю то при открытии результирующего скрипта мне выдаётся сообщение - "Отключить макросы или нет", при любом ответе у меня документ не открывается и никаких ошибок (остаётся открытым только приложение)
КАК ЭТО ИСПРАВИТЬ ?
2)
Если же я всётаки макрос выполняю пошагово, то получаю в результирующем файле скопированные данные (и только доанные !) без форматирования (без границ , таблиц).
ЧТо у меня не так в этом случае ?
З.Ы. макрос который я запускаю - хранится в PERSONAL.XLS
Господа , есть у кого нить догаткиб что происходит ?
Я знаю, что ничего не знаю.
Сократ.
