Количество файлов в папке - Страница 2

Дата: Суббота, 23.06.2012, 11:09 | Сообщение № 21

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Так тебе-же все файлы нужно было. Нет?

Быть или не быть, вот в чем загвоздка!

Дата: Суббота, 23.06.2012, 11:12 | Сообщение № 22

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (RAN)

Так тебе-же все файлы нужно было. Нет?

Quote (Serge_007)

макросом подсчитать количество файлов Excel (разных версий, с разным расширением)

ЮMoney:41001419691823 | WMR:126292472390

Дата: Суббота, 23.06.2012, 11:57 | Сообщение № 23

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

А можно так

К сообщению приложен файл: 6556969.xls (45.0 Kb)

Быть или не быть, вот в чем загвоздка!

Дата: Суббота, 23.06.2012, 12:00 | Сообщение № 24

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (RAN)

можно так

Круто

Можно суммой в А1?

ЮMoney:41001419691823 | WMR:126292472390

Дата: Суббота, 23.06.2012, 12:12 | Сообщение № 25

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Quote (Serge_007)

Можно суммой в А1?

????

Быть или не быть, вот в чем загвоздка!

Дата: Суббота, 23.06.2012, 12:13 | Сообщение № 26

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (RAN)

????

Одной цифрой, в любом файле

ЮMoney:41001419691823 | WMR:126292472390

Дата: Суббота, 23.06.2012, 13:46 | Сообщение № 27

Группа: Авторы

Ранг: Форумчанин

Сообщений: 120

Репутация: 48 ±

Замечаний: 0% ±

Сереж, так что ли?

Ps. Ребят, зачем так много действий?
Можно ведь обойтись Like и Right smile

К сообщению приложен файл: PoiskF.xlsm (19.2 Kb)

E-mail: overseerpower@gmail.com
Skype: Bogdan_Rud
WMR: R166238237296

Дата: Суббота, 23.06.2012, 13:52 | Сообщение № 28

Группа: Авторы

Ранг: Форумчанин

Сообщений: 120

Репутация: 48 ±

Замечаний: 0% ±

Упс, чуток с очисткой не сложилось, исправил smile

Sub iClear()
Columns(3).ClearContents
Cells(1, 2).Value = Empty
Sum = 0
i = 0
End Sub

E-mail: overseerpower@gmail.com
Skype: Bogdan_Rud
WMR: R166238237296

Дата: Суббота, 23.06.2012, 13:53 | Сообщение № 29

Группа: Авторы

Ранг: Форумчанин

Сообщений: 120

Репутация: 48 ±

Замечаний: 0% ±

и файл туда же
(соедините, плиз, сообщения)

К сообщению приложен файл: 0358498.xlsm (19.9 Kb)

E-mail: overseerpower@gmail.com
Skype: Bogdan_Rud
WMR: R166238237296

Дата: Суббота, 23.06.2012, 13:58 | Сообщение № 30

Группа: Авторы

Ранг: Форумчанин

Сообщений: 120

Репутация: 48 ±

Замечаний: 0% ±

да, и уберите комментарий с On Error Resume Next

E-mail: overseerpower@gmail.com
Skype: Bogdan_Rud
WMR: R166238237296

Дата: Суббота, 23.06.2012, 14:06 | Сообщение № 31

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Лови с выводом. Лишнее уберешь!

К сообщению приложен файл: 8659210.xls (47.5 Kb)

Быть или не быть, вот в чем загвоздка!

Дата: Суббота, 23.06.2012, 18:22 | Сообщение № 32

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Андрей, мне не нужен расклад по файлам. Нужна сумма одной цифрой. Файлы Excel - это не только xls. xlt, например - это тоже файл Excel, а вот pdf (картинка) - уже нет.
Богдан, ближе к истине, но csv, например, не учитываются у тебя

ЮMoney:41001419691823 | WMR:126292472390

Дата: Суббота, 23.06.2012, 20:20 | Сообщение № 33

Группа: Авторы

Ранг: Форумчанин

Сообщений: 120

Репутация: 48 ±

Замечаний: 0% ±

Сереж, а ты уверен, что csv это формат Excel'я?
Вот исходник оф.сайта, где указаны все форматы Excel, а csv относится к текстовым, по сути csv это то же, что и txt.
http://office.microsoft.com/en-us....03.aspx

Ps. Но если тебе нужно, чтобы csv тоже учитывался - лови переделанный вариант.

К сообщению приложен файл: 3770878.xlsm (26.5 Kb)

E-mail: overseerpower@gmail.com
Skype: Bogdan_Rud
WMR: R166238237296