Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Свойство файла
 
#1
28.07.2011 16:04:13
Доброго дня всем и удачного его завершения..  
Излазила все просторы форума ...много информации но то что нужно не нашла..  
Подскажите пожалуйста..  
Если правой кнопкой вызвать свойство файла и нажать вкладку "сводка" там есть пункт "категория; и "примечание"..как макросом прописать эти свойства...Есть две ячейки A1 и A2.  
Категория = A1  
Примечание = A2  
После запуска макроса и закрытия книги..в свойствах должны быть эти данные..  
Заранее всем спасибо...
 
 
 
#2
28.07.2011 16:41:32
К сожалению такого окошечка в свойствах у меня нету. Но попробуйте следующее  
ActiveWorkbook.BuiltinDocumentProperties.item(5).value = "Moy Commentar"    
ActiveWorkbook.BuiltinDocumentProperties.item(18).value = "Moya Kategorya"
 
 
 
#3
28.07.2011 16:56:17
про ячейки забыл  
ActiveWorkbook.BuiltinDocumentProperties.item(5).value = activesheet.range("A2")    
ActiveWorkbook.BuiltinDocumentProperties.item(18).value = activesheet.range("A1")
 
 
 
#4
28.07.2011 17:00:12
Огромное спасибо egonomist  
Всё работает...  
А откуда беруться значения..Item(5) и .Item(18)..почему именно 5 и 18 а не другие цыфры и как мне узнать какая цыфра будет для другой категории свойств...
 
 
 
#5
28.07.2011 17:13:21
их всего 30 - как я понял стандартный набор - номера в следующий раз будут те же.  
все значения перебирать не буду, но если интересно  запустите вот этот макрос  
 
Public Sub che_tam()  
Dim str As String  
str = ""  
For i = 1 To ActiveWorkbook.BuiltinDocumentProperties.Count  
 str = str & i & "-" & ActiveWorkbook.BuiltinDocumentProperties.Item(i).Name  
 str = str & Chr(13)  
Next i  
MsgBox str  
End Sub
 
 
 
#6
28.07.2011 17:57:41
Названия и номера свойств, а также пример из заполнения,  
можно посмотреть здесь:  
http://excelvba.ru/code/BuiltinDocumentProperties
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#7
29.07.2011 09:11:50
Делал для себя UDF для извлечения свойств из mp3 файлов. Но она работает и для других типов файлов. Надо только опытным путем подобрать второй параметр функции (от 1 до скольки не знаю...)  
 
Function mp3Information(FailFullName As String, infPar As Integer)  
   'Параметр infPar (справедливо для mp3, для других типов файлов цифры могут отличаться):  
   '1   -   Размер файла (кб)  
   '2   -   Тип файла  
   '3   -   Создан  
   '4   -   Изменен  
   '5   -   Открыт  
   '6   -   R - только чтение, H - скрытый, A - архивный  
   '10  -   Заголовок  
   '16  -   Исполнитель  
   '17  -   Альбом  
   '18  -   Год  
   '19  -   Номер записи  
   '20  -   Жанр  
   '21  -   Длительность  
   '22  -   Качество звука (кбит/сек)  
   '33  -   Частота дискретизации (кГц)  
   '34  -   Каналы (моно/стерио)  
 
   Dim PathSt  
   Dim NameSt  
   PathSt = Left(FailFullName, InStrRev(FailFullName, "\") - 1)  
   NameSt = Right(FailFullName, Len(FailFullName) - InStrRev(FailFullName, "\"))  
     
   Dim objShell As Object, objFolder As Object, objFile As Object  
   Set objShell = CreateObject("Shell.Application")  
   Set objFolder = objShell.Namespace(PathSt)  
   Set objFile = objFolder.ParseName(NameSt)  
     
   On Error Resume Next  
       mp3Information = objFolder.GetDetailsOf(objFile, infPar)  
   On Error GoTo 0  
 
   Set objShell = Nothing  
   Set objFolder = Nothing  
   Set objFile = Nothing  
     
End Function
 
 
 
Страницы: 1
Читают тему
Наверх