| Вопрос: Excel, работа с другой книгой. Если не затруднит. | Добавлено: 13.08.02 14:43 |
Автор вопроса:  XM WS
|
|
Задача такая: Создать книгу, написать туда "что-нибуть" из другой книги (с неё запускается макрос), сохранить книгу в каталог заменяя существующую с таким именем. Буду благодарен за помощь. |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  MAGNUS Вопросов: 12 Ответов: 430 |
Профиль | | #1 | Добавлено: 13.08.02 15:14 |
|
Samij prostoj sposob , zapishi makros w Excel. Eto mojno sdelat na prakticheski lubie dejstwija s knigami i wsem chto est w Excel. A dla bolee podrobnoj raboti nujno delat wse eto iz VB. T.e. s objektnoj peremennoj. Ja eto uje 2 raza opisiwal w drugih topicah. http://www.vbnet.ru/forum/show.asp?id=2303 Esli ne pojmesh pishi...
|
||
|
Номер ответа: 2 Автор ответа:  Petrovich Вопросов: 9 Ответов: 84 |
Профиль | | #2 | Добавлено: 13.08.02 17:45 |
|
Вот под рукой было, как пример посмотри Const PATH_TO_SAVE = "C:\" Const WORK_SHEET_NAME = "Рабочий" Sub СохранитьЛист()
Dim dd As String, mm As String, yy As String, sNameFile As String Dim NewBook As Workbook
dd = Left$(Date, 2) mm = Mid$(Date, 4, 2) yy = Right$(Date, 2) sNameFile = PATH_TO_SAVE & & dd & "_" & mm & "_" & yy & ".xls" Application.ScreenUpdating = False Set NewBook = Workbooks.Add ThisWorkbook.Sheets(WORK_SHEET_NAME).Copy Before:=NewBook.Worksheets(1)
'чикаем кнопочки всякие Dim shap As Shape For Each shap In ActiveSheet.Shapes shap.Delete Next
NewBook.SaveAs sNameFile NewBook.Close Application.ScreenUpdating = True MsgBox "Файл " & sNameFile & " успешно сохранен.", vbInformation End Sub |
||
Страница: 1 |