Устанавливаю главный Excel 2003 командой /regserver. Но периодически все сбрасывается и все документы начинают открыватся в 2007. Может есть какие настройки где указывается какой Excel открывать по умолчанию?

..так и не нашел я ListView с группами для VBA. Тему можно закрвать.

Очень нужен ListView с группами, (c коллекцией groups). Такой компонент есть в Visual Basic .Net, но это .Net платформа. Может знаешь такую dll или ocx, чтобы подключить в VBA или Visual Basic 6.0?

Прочитать удалось, а как записать эти атрибуты ("Автор" и "Тема")?

The_Prist Респект! То что нужно! Спасибо большое!

{quote}{login=Юрий М}{date=09.10.2009 07:27}{thema=}{post}Да я не про это. Файл JPEG - это графический формат. Какие поля могут быть, например, на фотографии?{/post}{/quote} :)

Прошу прощения не Параметры а Сводка

{quote}{login=Юрий М}{date=09.10.2009 07:10}{thema=}{post}А что - в файлах .JPEG есть поля?{/post}{/quote} Правой кнопкой на файлике мышкой, Свойства, Параметры, увидите поля Автор, Тема, Комментарии и др.

Как с помощью VBA получить доступ к полям "Автор" и "Тема" в файле JPEG? Эти поля видно в Свойствах файла.

извиняюсь, допустил ошибочку, исправил  
 
Private Sub Workbook_Open()  
 
On Error Resume Next  
pathSave = "c:\Архив"  
 
Set fs = CreateObject("Scripting.FileSystemObject")  
curFolderExists = fs.FolderExists(pathSave)  
 
'Удалите эту строчку из макроса, чтобы не раздражала других ползователей  
If curFolderExists = False Then MsgBox "На том компьютере, где будет создана папка для резерва, будут создаваться архивные копии" + Chr(10) + "для этого создайте папку " + pathSave + " для архива"  
 
fname = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)  
fname = pathSave + "\" + fname + "_" + Format(Now, "DD_MM_YY") + ".xls"  
curFileExists = fs.FileExists(fname)  
If curFileExists = False Then  
Application.DisplayAlerts = False  
ThisWorkbook.SaveCopyAs fname  
Application.DisplayAlerts = True  
End If  
 
End Sub

Можно использовать доступ ftp, но для этого нужен fpt сервер. Вы лучше расшарьте папочку для архива с именем Архив$ (последний символ доллар, у обычного пользователя такие папки по умолчанию не видно)

Можно и Application.OnTime TimeValue("17:00:00"), "Backup_Active_Workbook", но где вероятность что в это время Excel будет запущен и архивация произойдет.  
 
Если хотите сохранять архив и быть уверенными что бэкап произойдет в нужное время, лучше используйте сторонние программы архивации, например AzovSky Verison Safe.    
 
Архивацию можно сделать при каждом запуске файла excel, как только откроется сам файл. Написал пример, где архивация будет производится один раз в день при открытии файла.  
 
Private Sub Workbook_Open()  
 
On Error Resume Next  
pathSave = "c:\Архив"  
 
Set fs = CreateObject("Scripting.FileSystemObject")  
curFolderExists = fs.FolderExists(pathSave)  
 
'Удалите эту строчку из макроса, чтобы не раздражала других ползователей  
If curFolderExists = False Then MsgBox "На том компьютере, где будет создана папка для резерва, будут создаваться архивные копии" + Chr(10) + "для этого создайте папку " + pathSave + " для архива"  
 
fname = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)  
fname = pathSave + "\" + fname + "_" + Format(Now, "DD_MM_YY") + ".xls"  
curFileExists = fs.FileExists(pathSave)  
If curFileExists = False Then  
   Application.DisplayAlerts = False  
   ThisWorkbook.SaveCopyAs fname  
   Application.DisplayAlerts = True  
End If  
 
End Sub

Без макросов не знаю, сделал с макросами, может применятся как универсальный код для создания списка ячеек с комментариями и картинками

strDate = Format(Now, "dd/mm/yy hh-mm")  
заменить на  
strDate = Format(Now, "dd/mm/yy)  
будет сохранятся раз в день.  
 
На сколько я помню в общем доступе макросы не работают.

как то так

Файл можно сжать архиватором, предварительно удалив все данные, которые не нужны

не знаю, как вам нужно, предположу что так

Возможно здесь ошибка, копировал со своего кода, поэтому не заметил  
замени Set MyLabelMas(cnt - 1) = New MyClassLabel  
на Set MyLabelMas(cnt) = New MyClassLabel

Мики    
 
"а если еще и формулы в колонки можно воткнуть как в Вычисляемом поле сводной например вообще чудо", к сожалению не не пользовался сводной таблицей, вкратце можно про это, может и сделаю

Скорее всего дело в библиотеке календаря... к сожалению, единого календаря который бы можно было вставлять в код и он работал на всех компьютерах видимо просто нет... Для тех у кого 2007 офис переделал на другой календарь.    
 
Кстати вы можете этот файл подстроить под себя, таблицу можно полностью переделать...  
 
Gleod, если вам действительно нужен этот файл, напишите вашу операционную систему и версию офиса, постараюсь помочь

Сделал с выбором даты из формы. Чтобы выбор даты заработал, тип формата ячеек в столбце должен быть Дата. Если еще есть пожелания, пишите.    
 
Gleod я не знаю что у вас за проблемы, у меня таких нет, так что посоветовать ничего не могу.  
 
Думаю, вариант последний, еще кончечно можно сделать в виде надстройки... Если есть умельцы...дерзайте...

Блин, забыл новый объект создать... вобщем вот  так надо  
 
Создаешь класс, назови его, например, MyClassLabel  
 
В классе  
Public WithEvents MyLabel As MSForms.Label  
 
Private Sub MyLabel_Click()  
MsgBox "Сработало событие"  
End Sub  
 
В модуле  
Dim MyLabelMas(256) as MyClassLabel 'это описание массива в самом верху модуля  
 
 
В цикле добавления    
....  
cnt = -1  
.....  
cnt = cnt + 1  
 
Set MyLabelMas(cnt - 1) = New MyClassLabel  
Set MyLabelMas(cnt).MyLabel = Prosmotr.MultiPage1.Pages(0).Controls.Add("Forms.Label.1")  
 
Set obj = MyLabelMas(cnt).MyLabel 'вот твой Label делай с ним что хочешь

Создаешь класс, назови его, например, MyClassLabel  
 
В классе  
Public WithEvents MyLabel As MSForms.Label  
 
Private Sub MyLabel_Click()  
MsgBox "Сработало событие"  
End Sub  
 
В модуле  
Dim MyLabelMas(256) as MyClassLabel 'это описание массива в самом верху модуля  
 
 
В цикле добавления    
....  
cnt = -1  
.....  
cnt = cnt + 1  
Set MyLabelMas(cnt).MyLabel =  Prosmotr.MultiPage1.Pages(0).Controls.Add("Forms.Label.1")  
 
Set obj =  MyLabelMas(cnt).MyLabel 'вот твой Label делай с ним что хочешь

{quote}{login=Alexander_V}{date=05.08.2009 06:53}{post}как создать форму, которая будет заполнять таблицу{/post}{/quote}  
Вам, как я понял, никто форму с датой так и не сдалал, так что держите, вроде все работает, форма не автоматическая, а специально под ваш файл...

Возможно :) Я вот вообще думаю, зачем взялся за это...

Еще разок, и в предыдущей ошибки

Да действительно была неточность, поправил...

Что именно?

В выборе шапки съезжали столбцы... исправил... Т.к. взался за универсальный автоматический вариант доведу до конца, вдруг кому пригодится... выбор даты можно добавить, пожалуй, это будет удобно, но к сожалению сейчас просто нет времени... если вам действительно это нужно, ждите - завтра после завтра будет... Если решать вопрос автора темы, быстрее будет сделать не автоматический вариант и в нужном месте прикрутить выбор даты... но мне это не интересно...

Ну если комуто дейсвительно нужно, пожалуйста, настраиваемый вариант формы, можно самому выбирать шапку, поддерживает объединненные ячейки в шапке...  
 
На счет даты... в предыдущем примере просто введена дата с двойным годом, если вводить в виде 01.01.2009, то проблем не будет.