Здр.
Нормално една екселска книга има 3 листа .
Въпроса ми е , как примерно лист 1 да бъде записан ,като отелен файл(книга)
в именована папка намираща се в дял D:
Предполагам ,че трябва да създам команден бутон .
Благодаря на всеки отзовал се .

Кликаш десен бутон върху sheet1 примерно ( долу където се сменят листовете)

Избираш Move or copy... =>
После ти се появява една user form и там избираш (new book) и да не забравиш да отметнеш Creates copy

Кликаш Ok и всичко е готово и записваш файла където искаш. Но ако искаш с едно натискане на бутонче един лист да се запише като нов файл в указана папка под име което да отговаря на някакви правила. Тогава ти трябва макрос разбира се

P.S. --- Дано да съм обеснил добре и разбрал въпроса

Редактирано от f(x) на 06.08.08 09:55.

Здр.
Благодаря ти ,че се отзова !
Аз това с десния бутон ми е ясно как става.
По скоро ме интересува с макрос как би станало .
Някяква идея искам да погледана .

Същото става и от меню EDIT/MOVE OR COPY.
Ако искаш да го копнеш в съществуваща книга, първо я отвори, след това в прозореца на MOVE OR COPY избери книгата, в която ще го копираш

Здр.
Благодаря ти ,че се отзова !
Аз това с десния бутон ми е ясно как става.
По скоро ме интересува с макрос как би станало .
Някяква идея искам да погледана .

Приятелю, ето на бързо ти спретнах едно макросче. Лесно става. Както си в Ексел правиш:
Tool -> Macro -> Record new macro -> OK

След това си правиш каквото иска да прави макроса (десен бутон на таба, Move or copy sheet -> Creat a copy -> задаваш пътечката ->Save и т.н.)
накрая натискаш бутона Stop recording (едно синьо квадратче) и си готов.

Конкретно ето как изглежда кода при мен:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 06.08.2008 by koliu_m
'

'
Sheets("Sheet1").Select
Sheets("Sheet1").Copy
ActiveWorkbook.SaveAs Filename:= _
"C:\My Documents\Book2.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.ActivateNext
End Sub

този макрос копира Sheet1 в нов файл и сейва файла с име Book2.xls в My documents

ЗДР.
А как да го направя при запис на файла да присвои името на листа и до него да прибави днешна дата .
Защото иначе все ме пита дали да замести файла ,понеже съществувал файл с такова име .
А идеята ми е в една папка да се записват всички променени файлове

Виж това

Sub s()

Dim s As String ' името на фаила под което ще се записва копието


s = Workbooks("q").Sheets("sheet1").Name & " _" & Date & ".xls"

'q да се замени с името на файла в които е записам въпросния файл с данни


Workbooks("q").SaveCopyAs ("C:\" & s) '"C:\" да се замени с пътя където искате да се запише файла

Workbooks.Open ("C:\" & s)


' да се въведата листовете които иксат да се премахнат от новя файл

Workbooks(s).Sheets("Sheet2").Delete
Workbooks(s).Sheets("Sheet3").Delete



Workbooks(s).Save
Workbooks(s).Close

'MsgBox (s)


End Sub

За десет минутки толкова можах да измисля знам че не е добро и има какво да се доизпипва но аз не разполагам с никаква друга информация и какв логика искаш да използваш

Дано да съм помогнал поне малко . Пиши за отзиви

Редактирано от f(x) на 07.08.08 09:56.