Как изменить расширенные свойства файла с помощью vba

Используя эту ссылку, я смог написать программу в vba, которая читает расширенные свойства файла. Теперь я хотел бы создать программу, которая может редактировать расширенные свойства файла – в частности свойство 22, «предмет» файла. Итак, учитывая путь к файлу, как вы можете редактировать тему, связанную с этим файлом?

Это невозможно, используя метод, который вы используете сейчас. Вы можете установить и использовать Microsoft ActiveX dsofile.dll для получения и установки расширенных свойств с помощью VBScript.

Set objFile = CreateObject("DSOFile.OleDocumentProperties") objFile.Open("C:\My Path\MyFile.doc") objFile.SummaryProperties.Subject = "My Subject" objFile.Save set objFile = Nothing 

‘Сделать файл только для чтения

 SetAttr "c:\temp\Sample.txt", vbReadOnly 

‘Сделать файл скрытым

 SetAttr "c:\temp\Sample.txt", vbHidden 

«Обратите внимание, что если вы меняете один атрибут, существующий атрибут перезаписывается. Для создания файла как для чтения, так и для скрытого использования оба атрибута в функции

 SetAttr "c:\temp\Sample.txt", vbHidden + vbReadOnly 

‘Удалить все атрибуты – конвертировать файл только для чтения в файл чтения-записи, отобразить файл и т. Д.

 SetAttr "c:\temp\Sample.txt", vbNormal 
  • Показывать или скрывать строки в листе excel при значении конкретной ячейки (excel 2007 и Windows 7)
  • Функция IsDate возвращает неожиданные результаты
  • Какова продолжительность жизни глобальной переменной в excel vba?
  • Показывать временную метку при изменении ячейки
  • Код в циклах VBA и никогда не заканчивается. Как это исправить?
  • Как скопировать диаграмму из Excel в PowerPoint?
  • Как добавить пользовательскую вкладку Ribbon с помощью VBA?
  • Как извлечь группы чисел из строки в vba
  • Как найти последнюю строку, содержащую данные на листе Excel с макросом?
  • Как вставить изображение в Excel в указанной ячейке с помощью VBA
  • Как я зацикливаю таблицу excel 2010, используя его имя и колонку?
  • Interesting Posts
    Давайте будем гением компьютера.