На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Организуем VBA-FAQ! Если у Вас есть предложения, выскажитесь здесь: Пишем FAQ, интересно Ваше мнение
Популярные разделы FAQ:    user posted image Общие вопросы    user posted image Особенности VBA-кода    user posted image Оптимизация VBA-кода    user posted image Полезные ссылки

1. Старайтесь при создании темы указывать в заголовке или теле сообщения название офисного приложения и (желательно при работе с Office 95/97/2000) его версию. Это значительно сократит количество промежуточных вопросов.
2. Формулируйте вопросы как можно конкретнее, вспоминая (хотя бы иногда) о правилах ВЕЛИКОГО И МОГУЧЕГО РУССКОГО ЯЗЫКА, и не забывая, что краткость - сестра таланта.
3. Не забывайте использовать теги [сode=vba] ...текст программы... [/code] для выделения текста программы подсветкой!
4. Темы с просьбой выполнить какую-либо работу полностью за автора здесь не обсуждаются и переносятся в раздел ПОМОЩЬ СТУДЕНТАМ.
Модераторы: Old Bat, MIF
  
> Получение свойств закрытого файла , нужно значение свойства .Comments
    Ребят, привет!

    Помогите, пожалуйста: мне надо получить значение свойства .Comments из закрытого excel-файла, при этом у меня в переменной типа String хранится полный путь к этому файлу (с именем). Путь до этого берется с помощью Application.GetOpenFilename - пользователь сам выбирает файл, т.к. он может находиться в произвольном месте. Файл открывается позднее, значение свойства .Comments нужно еще до открытия.

    Насколько я понял, мне нужно использовать метод GetDetailsOf объекта Folder из WSH, но там используется следующая конструкция:

    ExpandedWrap disabled
      objFolder.GetDetailsOf(objItem, i)


    Так вот, собсна вопрос: как мне из своего String'ового пути файла и имени (например, C:/test.xls) получить имя папки в objFolder и имя файла в objItem?

    Извините, если криво выражаюсь, но я, мягко говоря, не силен во всех этих Shell'ах и иже с ними.

    Спасибо.
      ExpandedWrap disabled
        Dim tmp() As String
        '.......
        tmp = split(Application.GetOpenFilename, "\")
        objItem = tmp(ubound(tmp))
        tmp(ubound(tmp)) = ""
        objFolder = join(tmp, "\")
        Akina, дружище, спасибо тебе, только вот загвоздка: после твоего кода пишу

        ExpandedWrap disabled
          TestVar = objFolder.GetDetailsOf(objItems, 1)


        и получаю ошибку "Object required", типа objFolder и objItem - не объекты. Как сделать их таковыми?

        Добавлено
        В общем, MSDN пришел ко мне на помощь ;) Содрал оттуда пример ;) и адаптировал для себя


        ExpandedWrap disabled
          Sub Temp1()
           
          Dim tmp() As String
          Dim objFolder As Object
          Dim objShell As Object
           
          '.......
          tmp = Split(Application.GetOpenFilename, "\")
          tmpFileName = tmp(UBound(tmp))
          tmp(UBound(tmp)) = ""
          tmpFilePath = Join(tmp, "\")
           
          Set objShell = CreateObject("Shell.Application")
           
          Set objFolder = objShell.Namespace(tmpFilePath)
           
          If (Not objFolder Is Nothing) Then
                      
                      Dim objFolderItem
           
                      Set objFolderItem = objFolder.ParseName(tmpFileName)
           
                      If (Not objFolderItem Is Nothing) Then
                          
                          Dim objInfo
                                                
                          objInfo = objFolder.GetDetailsOf(objFolderItem, 14)
                                                          
                      End If
                      
                      Set objFolderItem = Nothing
                  End If
                  
                  Set objFolder = Nothing
                  Set objShell = Nothing
                  
          End Sub
        0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
        0 пользователей:


        Рейтинг@Mail.ru
        [ Script execution time: 0,0275 ]   [ 16 queries used ]   [ Generated: 21.06.24, 02:38 GMT ]