Каким образом можно вычистить весь код из рабочей книги Excel?

@nap2k · Регистрация: 27.09.2009

Author24 — интернет-сервис помощи студентам

Я имею в виду макросы.

@T@sh · 26.10.2009, 08:30

программно? а почему встал такой вопрос если не секрет?

@Labuda · 26.10.2009, 13:27

Мне бы тоже хотелось получить ответ на поставленный вопрос. Это не вирус, просто нужно автоматом создавать копию worksheet в виде снимка, т.е. без формул и макросов, только значения. формулы удалить не трудно, а вот как уничтожить макросы - не знаю.

@Штурмaн · 26.10.2009, 14:21

А так не пойдет, если листов не много

Visual Basic

Sub Макрос2()
'
' Макрос2 Макрос
' Макрос записан 19.08.2003 (Штурман)
'
 
'
    Windows('Книга2').Activate
    Cells.Select
    Selection.Copy
    Windows('Книга1').Activate
    Sheets('Лист1').Select
    Cells.Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range('A1').Select
    Windows('Книга2').Activate
    Range('A1').Select
    Sheets('Лист2').Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Range('A1').Select
    Windows('Книга1').Activate
    Sheets('Лист2').Select
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range('A1').Select
    Windows('Книга2').Activate
    Sheets('Лист3').Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Range('A1').Select
    Windows('Книга1').Activate
    Sheets('Лист3').Select
    Cells.Select
    
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range('A1').Select
End Sub

предварительно создав книгу

@Штурмaн · 26.10.2009, 14:25

чет я парюсь, уж лучше через

Visual Basic

1	Sheets('НужныйЛист').Copy Before:=Workbooks('НужнаяКнига').Sheets(1)

@nap2k · 27.10.2009, 13:20 **[ТС]**

Все-таки хотелось бы получить ответ. Вдобавок еще один вопрос - как загузить VB-код в рабочую книгу.

Excel активно используется из внешней программы, но т.к. это out-process сервер, на вызовы тратится ОООООочень много времени. Если выполнять код на стороне Excel это занимает намного меньше времени. Для этого собственно мне и нужно знать как загрузить/выгрузить код из Excel.

@Labuda · 27.10.2009, 17:13

http://www.relib.com/forums/topic.asp?id=779618

@nap2k · 27.10.2009, 17:30 **[ТС]**

Вопрос отпадает. Это сделать невозможно из-за недостатка прав по умолчанию для доступа к объекту VBProject.

@nap2k 0 / 0 / 0 Регистрация: 27.09.2009 Сообщений: 74
		1
	Каким образом можно вычистить весь код из рабочей книги Excel? 25.10.2009, 17:48. Показов 1362. Ответов 7 Метки нет (Все метки) Я имею в виду макросы. 0

@T@sh 0 / 0 / 0 Регистрация: 21.09.2009 Сообщений: 65
	26.10.2009, 08:30	2
	программно? а почему встал такой вопрос если не секрет? 0

@Labuda 0 / 0 / 0 Регистрация: 21.05.2009 Сообщений: 101
	26.10.2009, 13:27	3
	Мне бы тоже хотелось получить ответ на поставленный вопрос. Это не вирус, просто нужно автоматом создавать копию worksheet в виде снимка, т.е. без формул и макросов, только значения. формулы удалить не трудно, а вот как уничтожить макросы - не знаю. 0

@nap2k 0 / 0 / 0 Регистрация: 27.09.2009 Сообщений: 74
	27.10.2009, 13:20 [ТС]	6
	Все-таки хотелось бы получить ответ. Вдобавок еще один вопрос - как загузить VB-код в рабочую книгу. Excel активно используется из внешней программы, но т.к. это out-process сервер, на вызовы тратится ОООООочень много времени. Если выполнять код на стороне Excel это занимает намного меньше времени. Для этого собственно мне и нужно знать как загрузить/выгрузить код из Excel. 0

@Labuda 0 / 0 / 0 Регистрация: 21.05.2009 Сообщений: 101
	27.10.2009, 17:13	7
	http://www.relib.com/forums/topic.asp?id=779618 0

@nap2k 0 / 0 / 0 Регистрация: 27.09.2009 Сообщений: 74
	27.10.2009, 17:30 [ТС]	8
	Вопрос отпадает. Это сделать невозможно из-за недостатка прав по умолчанию для доступа к объекту VBProject. 0

Опции темы