В прикрепленном архиве две книги "ежесуточный анализ" материнский файл  
"сутки1"(всего таких 30 штук)- донор, не могу никак настроить макрос чтобы данные перекопировались

актуально

вот в таком коде не копирует с листа №2,3 и тд, где я напутал?  
помимо этого как мне построить код чтобы если по адресу "C:\тест\сутки_15.xls" нет файла, то пропустить действие и продолжить со следующего файла "C:\тест\сутки_16.xls"    
 
Sub test1()  
With GetObject("C:\тест\сутки_1.xls")  
With .Sheets(1)  
.[d5].Copy [c5]
.[c5].Copy [f5]
.[d5].Copy [i5]
.[E5].Copy [l5]
.[f5:j5].Copy [n5]
.[k5:q5].Copy [t5]
End With  
.Close 0  
End With  
With GetObject("C:\тест\сутки_1.xls")  
With .Sheets(2)  
.[c5].Copy [c4]
.[d5].Copy [f4]
.[E5].Copy [i4]
.[f5:S5].Copy [k4]
End With  
.Close 0  
End With  
With GetObject("C:\тест\сутки_1.xls")  
With .Sheets(3)  
.[c5].Copy [c5]
.[d5:e5].Copy [E5]
.[c5].Copy [c5]
.[f5].Copy [g5]
.[g5:h5].Copy [i5]
.[i5:p5].Copy [m5]
End With  
.Close 0  
 
End With  
End Sub

Как написать код Hugo, чтобы копировалось с sheets(1) на sheets(2) или sheets(3), потому что не все данные хранятся именно на 1 листе

Рабочая область это где находятся ячейки с данными, подскажите как сделать кнопку

Мне нужно чтобы к имени файла вообще не было привязки потому-что это не возможно

Меня интересует именно можно ли кнопку расположить в рабочей области

1. Есть 30 книг в каждой уникальный идентификатор (кодовое слово в защищенной ячейке), нужно чтобы макрос выбрал из папки именно эти 30 отсек повторы и открыл их для дальнейшего copy/past  
 
2. Мой макрос которы копирует привязан к имени файла и приходится вручную выбирать из огромного списка подходящие по условию и поправлять название файлов чтобы макрос понимал, к примеру должно быть "сутки_1, сутки_2....." а присылают "сутки_чтовголовувзбредет_1, сутки_яупапы_дура_2_25.04.2012.xls.xls... И далее полнейший хаос"

Добрый день, вопрос состоит в следующем:  
Нужно в рабочей области расположить кнопку при нажатии которой исполнялся vba код: сам код будет переименовывать файл и отправлять книгу на заданный мэйл с установленной темой письма

Макрос в аутлуке который сохраняет почту в папку уже есть в наличии

Допустим в файлах которые нужны будет индикатор (кодовое слово в скрытой ячейке) макрос должен перебрать все файлы в папке на предмет наличия скрытого кода и открыть нужные файлы

Доброе время суток уважаемые!  
 
Проблема возникла в следующем:  
1. Макрос в аутлуке сохраняет все входящие в отдельную папку на харде.  
2. Макрос в экселе должен  выбрать из этих файлов всеголишь 30 xls файлов  подходящих по условию и открыть их.(названия всех файлов рандомные)

Вбил ваш макрос во встроенном в аутлук вба и почему-то не работает выполняется не выдает никаких ошибок но не работает

заработало теперь копируется я из строки ""arg$ = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)"  
удалил ".Range("A1")"  
 
теперь в процедуре пишу в "a = "D145" ' интересующая нас ячейка" ячейку из копируемого файла, все работает кроме: если пишу "D145:W145" то диапазаон не копируется

(a = "D145" ' интересующая нас ячейка) в этой ячейке у меня находится число "567"  
при выполнении макроса в исходную книгу вставляется 0???  
еще не до конца понял значение этой строки    
"arg$ = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)"  
а именно что означает "Range("A1").Address(, , xlR1C1)"

не могу разобраться в  общедоступном примере  
 
Function GetValue(path, file, sheet, ref)  
   'Функция GetValue получает в качестве параметров:  
  ' path – путь к закрытому файлу (например, "d:\files");  
  ' file – название рабочей книги (например, "budget.xls");  
  ' sheet – название рабочего листа (например, "Лист1");  
  ' ref – ссылка на ячейку (например, "C4").  
     
   If Right(path, 1) <> "\" Then path = path & "\"  
     
   ' проверяем наличие файла по заданному пути  
  If Dir(path & file) = "" Then GetValue = "Файл не найден": Exit Function  
     
   ' формируем строку запроса  
  arg$ = "'" & path & "[" & file & "]" & sheet & "'!" & _
          Range(ref).Range("A1").Address(, , xlR1C1)  
     
   ' считываем значение из закрытой книги  
  GetValue = ExecuteExcel4Macro(arg$)  
     
   ' вместо ошибки возвращаем сообщение об ошибке  
  ' к примеру, если лист не найден, или указана несуществующая ячейка  
  If IsError(GetValue) Then GetValue = "<ошибка>"  
End Function  
 
Sub ПримерИспользования_GetValue()  
   p = "C:\Documents and Settings\Бухгалтерия" ' папка с файлом  
  f = "расход.xls" ' имя файла  
  s = "доходы" ' название листа  
  a = "D145" ' интересующая нас ячейка  
     
   ' выполняем загрузку данных из закрытой книги Excel  
  ЗначениеЯчейки = GetValue(p, f, s, a)  
     
   Debug.Print ЗначениеЯчейки ' выводим результат в окно Immediate  
End Sub  
 
на сколько я понял мы сначала передаем параметры для работы функции, а потом ее вызываем, не понятно что значит "значение ячейки"? и не вижу где писать диапазон для вставки  
   ЗначениеЯчейки = GetValue(p, f, s, a)

Ищу сенсея, для удаленной поддержки в написании макросов  
 
Уровень потребности: vba, excel, acces,+  
Время сотрудничества с 20.до 03;  
icq 610_790_683  
 
p/s стучите в оффлайн.

Доброго времени суток, вопрос немного не по теме: нужно реализовать автоматического сохранение входящих вложений в отдельную папку на жестком диске