|
|
| Тема |
 Именоване на файл??? |
|
| Автор |
zvezdi4kata_ff (непознат
) |
|
| Публикувано | 21.03.12 10:21 |
|
|
|
Искам да попитам, съставих си сама този код по метода проба-грешка, но не успях да направя така, че част от името на файла да си го взема от определена клетка. А името е времеви период, който се променя периодично
Файла искам да се казва :"Проверки за периода от 01.01.2012 до 31.01.2012"
Ето го кода:
Private Sub Commandbutton1_Click()
Cells. Select
Selection. Copy
Workbooks. Add
ActiveSheet. Paste
Application. CutCopyMode=false
ActiveWorkbook.SaveAs Filename:= _
"D:\Проверки\2012\" & "Проверки за периода от" & Worksheets("Проверки"). range("A1").value & ".xls", FileFormat _
:=xlNormal, Password :="", WriteResPassword:="", ReadOnlyRecomended:= _
False, CreateBackup:=False
ActiveWindow. Close
Sheets("Rezultati"). Select
ActiveSheet. Protect
End Sub
Когато оставя за име само "Проверки за периода" - няма проблем, но когато трябва да си вземе датата от клетката - дава грешка!
Вероятно някъде съм сбъркала, но не мога да разбера каде?
Моля да ми помогнете, защото много ми трябва !
Още веднъж предварително ви благодаря!
| |
| |
| 
|
|
