вложение 2-го файла

Здравствуйте форумчане! Прошу Вашей помощи. В SharePoint имеется 2 папки с файлами.  
1-я папка содержит Выходной документ    
2-я папка содержит файлы-источники для Выходного документа .Эти файлы в своем имени содержат дату.  
В Выходном  документе по дате, которая вводится в ячейку J2, производится заполнение ячеек данными из файлов-источников с той датой в имени, которую я указала в J2. Создала данный сценарий на диске С.  С помощью Вашего форума создала макрос заполнения ячеек значениями. Все прекрасно работало, но когда я перебросила эти файлы на SharePoint и попыталась заменить путь на https все перестало работать. Я не сильна в VBA. Прошу помощи, вероятно, я неправильно указываю синтаксис для доступа к данным.  
Прикрепляю 1-ый файл с макросом путь к диску С, 2-ой файл с https

Здравствуйте! Прошу помощи.  
Имеются 2 книги, которые лежат в разных папках.    
Например:  
Книга-итог  C:\TMP\Книга-итог    
Книга-источник C:\TMP\SOURCE\Книга-источник    
 
Как  в книгу-итог  в ячейку Итоговая сумма 1 вставить сумму всех ячеек из книги-источника?    
Как  в книгу-итог  в ячейку Итоговая сумма 2 вставить сумму 1-й и 2-й ячейки из книги-источника?

Подскажите, пожалуйста, как взять файлы с определенной датой , например за 27.11.2011 из папки с такой же датой? В примере в сводный отчет попадают данные за указанное число в сводном отчете. Хотелось бы брать данные из источника из папки с указанной датой.  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

Спасибо,Hugo! Добавила в код и как-то приятней стало смотреться, не мигает.Можно я Вам сейчас напишу сообщение на Ваш адрес и если Вы его получите, то ответите мне?

Сделала shrink to fit!

Shrinkt to fit это автоподбор ширины

Ну как же сделать автозаполнение ячеек (shrink to fit)? Я уже весь инет перевернула, не могу ничего найти

Что-то не получилось.Все в новом каталоге zip1

Повторно, первое с ошибкой в п.1  
'установили ширину строки  
[b3:h14].RowHeight = 15 ' - это высота!
К тому же вроде договорились, что это и  
UsedRange.EntireColumn.AutoFit 'а вот это автоширина столбцов!  
будете убирать, не менять формат таблицы кодом?  
"Автозаполнение тоже в VBA?" - можно и в VBA, но незачем, я думаю, что лучше/проще задать этот формат один раз вручную и забыть.  
 
 
Что из этого мне сделать?    
1.Высоту строк установила  
2.Пустой модуль удалю  
а дальше не поняла, что делать

'установили ширину строки  
[b3:h14].RowHeight = 15 ' - это высота!
К тому же вроде договорились, что это и  
UsedRange.EntireColumn.AutoFit 'а вот это автоширина столбцов!  
будете убирать, не менять формат таблицы кодом?  
"Автозаполнение тоже в VBA?" - можно и в VBA, но незачем, я думаю, что лучше/проще задать этот формат один раз вручную и забыть.  
 
 
Что из этого мне сделать?    
1.Ширину установила  
2.Пустой модуль удалю  
а дальше не поняла, что делать

Убрала и сделала модным

Автозаполнение тоже в VBA?

Наверное это будет то, что надо!

Все получилось! Правда тексты не помещаются в ячейки,т.е надо потом форматировать готовый отчет руками. Что-то с этим можно сделать?

Код в Лист1, а надо было вставить в Module1?

Извините, не тот файл прикрепила.Новый прикрепила

Sub test()  
If Not FileExists("C:\tmp\Елена\28.11.2011-процент.xlsx") Then  
MsgBox "Not Exist"  
Exit Sub  
Else  
MsgBox "Exist!"  
End If  
End Sub  
 
Function FileExists(FullFileName As String) As Boolean  
' returns TRUE if the file exists  
FileExists = Len(Dir(FullFileName)) > 0  
End Function  
 
Вот этот код вставила

Вставила этот код для случая когда нет файла 28.11.2011-цвет.Открылось окно для поиска файла и не выйдешь из него пока не пройдешь столько раз, сколько строк заказано для выбора из этого файла.

Я пошла через формулы.

Тогда лучше будет с календарём делать, и список файлов можно заранее не делать.  
При выборе даты получаем имя нужных файлов (полный путь заранее известен), проверяем их наличие.  
Если они есть - формируем формулы.  
Если нет всех или некоторых - извещаем пользователя.  
 
Это сложно сделать? Я решила идти через календарь, но основная проблема -если нет данных за дату.

Как в формулу, которая содержала в имени только дату добавить текст "-товар"?  
Например у нас было:  
[b4].Formula = "='C:\tmp\Елена\zip\[" & Target.Text & ".xlsx]Лист1'!$A$2"
где Target.Text был равен дате(27.11.2011.xlsx),а теперь имя файла содержит текст (27.11.2011-товар.xlsx) ?

А MID в excel 2007 это какая функция? У меня ее нет

Усложним задачу: в итоговый файл (Отчет за 27.11.2011) должны попасть данные из 3-ех и более таблиц, которые тоже за 27.11 2011. В дугой раз в этом же итоговом файле меняют дату отчета на 28.11.2011 и соответственно должны подтянуться данные из источников за 28.11.2011. Как будем поступать в этом случае? Примеры подготовлю завтра и выложу. Мне нужно решение такой задачи. У меня будет много таблиц за одно число и т.д. Всего планируем собирать 10 чисел.

Hugo,я Вас обожаю! xls* помогло,работает. А как же мне теперь дату отчета получать, вытянуть из имени?  Этот отчет будут печатать.Теперь календарь не нужен?

А как работает? Календарь на поле f1 работает? И данные выбираются по дате? Какое расширение мне использовать? У меня excel 2007

Я создала такой же путь к файлам как у Вас и ничего не получилось.

Что-то не получается...

На ошибку не обращайте внимание. Пока я ввела предложенный Вами код , Вы уже дали другой ответ. Буду работать с Вашим примером.

FilenamesCollection-ошибка