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

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Excel (нужна помошь) Добавлено: 21.06.13 11:10  

Автор вопроса:  Ramil
Доброго времени суток.

Есть проблема, помогите пожалуйста выйти из ситуации ...
В папке есть и будут добавляться новые файлы одного типа. Нужен код который вычислит сколько документов ексель (фактур) находятся в папке и просуммирует колонку ("Н").
Надеюсь я правильно смог прояснить ситуацию ...

Ответить

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

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



Вопросов: 15
Ответов: 93
  Профиль | | #1 Добавлено: 25.06.13 09:40
Подсчет файлов в папке можно реализовать c помощью функции Dir()

  1. im s, tmp As String
  2. Dim n, i As Integer
  3. Sub Макрос1()
  4. i = 0
  5. s = "c:\t\" 'Папка где лежат файлы *.xls
  6. ' Макрос1 Макрос
  7. tmp = Dir(s)
  8. Do While Len(tmp) > 0
  9. 'MsgBox (tmp)
  10. 'Выделение расширения файлов
  11. n = InStr(1, tmp, ".")
  12. s = Mid$(tmp, n + 1, 3)
  13. If s = "xls" Then 'Если файл xls, то включаем счетчик
  14. i = i + 1
  15. End If
  16. tmp = Dir()
  17. 'MsgBox (tmp)
  18. Loop
  19.  
  20. MsgBox i 'Количество файлов xls в папке
  21. '
  22. '
  23. End Sub

Ответить

Страница: 1 |

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



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