Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: програмно открыть файл не зная его имени Добавлено: 15.04.09 12:23  

Автор вопроса:  mixman13
Необходимо из макроса открыть экселевский файл из известной папки свежайший по дате.
Подскажите как определить имя свежайшего



 ChDir "G:\Logistic\Mpz\Материалы"

?
?
?
?

Application.Workbooks.Open (filename)

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 mixman13



Вопросов: 3
Ответов: 3
  Профиль | | #1 Добавлено: 15.04.09 13:12
Сам нашел ответ на свой вопрос.

  1.  
  2. Dim filename As String, path As String, filepath As String
  3.  
  4. path = "G:\Logistic\Mpz\Материалы"
  5.  
  6. With Application.FileSearch
  7.   .LookIn = path
  8.   .SearchSubFolders = True
  9.   .FileType = msoFileTypeAllFiles
  10.   
  11.   If .Execute(SortBy:=msoSortByLastModified, _
  12.       SortOrder:=msoSortOrderDescending) > 0 Then
  13.    filepath = .FoundFiles(1)
  14.   End If
  15. End With
  16.  
  17. Application.Workbooks.Open (filepath)
  18.  
  19. MsgBox "OK"
  20.  
  21. filename = Mid(filepath, (Len(path) + 2))
  22.  
  23. Workbooks(filename).Close SaveChanges:=False
  24.  

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам