Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сохранение файла в Екселе / 3 сообщений из 3, страница 1 из 1
24.08.2006, 05:38:50
    #33939021
Kseniy
Kseniy
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сохранение файла в Екселе
Как написать макрос чтоб при нажатии на сохранить файлы(имя) сохранялись каждый раз на единицу больше

1.xls,2.xls,3.xls.........
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.08.2006, 09:11:28
    #33939147
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сохранение файла в Екселе
PERSONAL.XLS. Модуль класса Class1.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Public WithEvents App As Excel.Application

Private Sub App_WorkbookBeforeSave( _
  ByVal Wb As Workbook, _
  ByVal SaveAsUI As Boolean, _
  Cancel As Boolean)
    Dim strFileName As String
    Static lngCount As Long
    
    strFileName = "D:\1\"
    
    Cancel = True

    With App
        .EnableEvents = False
        Wb.SaveAs strFileName & (lngCount +  1 ) & ".xls"
        .EnableEvents = True
    End With
        
    lngCount = lngCount +  1 
End Sub

PERSONAL.XLS. Модуль книги.

Код: plaintext
1.
2.
3.
4.
Dim a As New Class1

Private Sub Workbook_Open()
    Set a.App = Excel.Application
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.07.2007, 18:01:14
    #34651307
goal1111111111
goal1111111111
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сохранение файла в Екселе
:)
Усложним задачу:
как из 2007 excell сохранить данные в формате аля excell 97-2003 ??



Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim NewBook As Workbook
            Set NewBook = Workbooks.Add
            With NewBook
                .Title = "Title"
                .Subject = "Subject"
                Call myRange.Copy(Worksheets("Лист1").Range("A1"))
                
                .SaveAs fileName:="c:\файл.xls"
            End With
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сохранение файла в Екселе / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 395ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2182629]:
 0ms
get settings:
 8ms
get forum list:
 26ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 133ms
get topic data:
 5ms
get forum data:
 1ms
get page messages:
 17ms
get tp. blocked users:
 1ms
others: 200ms
total:  395ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]