спс, но сложно. мне проще в массив список и сверить.

В колекцию, это как?  
и как с ним потов работать?  
И как "сразу ясно"?

Подскажите можно ли сделать чтобы макрос какимто образом висел постоянно и ждал появления новых файлов в папке.  
 
Сам процесс простой,  
просканили папку, скинули в массив список файлов,  
через какойто промежуток времени(допустим минуту)  
просканили еще рас скинули в массив2, сравнили....  
 
как сделать эту паузу?  
если просто цикл, то это систему оч нагружает.

разабрался... на микрософт ком хороший хелп лежит......  
 
Вопрос назрел:  
Мне бы нужно, что бы макрос не всегда отрабатывал, а только при открытии определенной книги. так можно?

в "эта книга" и сохраняю....  
А при сохранении книги "эксель" спрашивает как сохранять с макросами или без, выбираю с поддержкой макросов.

Немогу понять куда вписывать "private sub workbook_open "  
добаляю макрос, кипипастю, сохраняю....  
он пропадает из книги и естественно не работает.  
гуглил тему, но вразумительно "куда вписать" так и не нашел  
хелп.

{quote}{login=KukLP}{date=13.01.2012 04:24}{thema=}{post}А может их просто так не называть?  
 
67997{/post}{/quote}  
Ну если бы было все так просто, я бы не просил помоч.  
Файлы не я создаю. и переименовывать немогу.

{quote}{login=}{date=13.01.2012 04:20}{thema=}{post}а может их просто удалять через Replace и всё будет ОК?{/post}{/quote}  
 
Удалять в названии файла?  
Нельзя, файл я получаю с опреденным названием, и с точно таким же должен отправить.

в продолжение...  
файл  Заказ 3455.xls    - прикрепляется  
файл  Заказ '3455'.xls   - не прикрепляется.  
 
Та же проблема с копированием файла.

Добрый день, есть проблема с прикреплением файла.  
Если в имени файла встречается символ "'" то файл не прикрепляется?  
как это можно обойти?  
Вот кусок кода:  
 
Sub Send_Mail()  
 
Dim nam  
Dim subj, subj1, subj2 As String  
 
'''''''''''  
Dim OldName As String, NewName As String  
nam = Range("B2")  
OldName = ActiveWorkbook.FullName  
 
Set wsh = CreateObject("WScript.Shell")  
TheBatPath = Chr(34) & "C:\Program Files\The Bat!\thebat.exe" & Chr(34)  
strsubject = "S=" & Chr(34) & nam & Chr(34)  
strattach = "ATTACH=" & OldName  
strattach = Chr(34) & strattach & Chr(34)  
Cmd = TheBatPath & " /MAILTO=22@yahoo.ca;" & strsubject & ";" & strattach  
wsh.Exec Cmd

Нашел проблему, незнаю как обойти..  
Проблема в длинных именах файлов и папок (больше 8символов)  
если книгу положить в папку "1" и назвать "1212" то все работает ))))  
Как лечить?

Да, бат использовать обязательно (  
Корректная строчка тоже не аттачит файл (((  
Может гдето кавычки нехватает? или ";" лишняя? )

Нужно через бат, послать текущий (открытый) файл.  
У меня создается письмо, с нужной темой...  
Но вот файл не аттачиться.  
хотя в strattach все прописано по уму, если в батнике прописать также, то все работает.  
в чем косяк?  
 
 
 
Sub Send_Mail()  
 
Dim subj, subj1, subj2 As String  
 
Dim lLastRow As Long  
 
Dim OldName As String  
 
OldName = ActiveWorkbook.FullName  
lLastRow = Cells(Rows.Count, 2).End(xlUp).Row  
   
   subj1 = Range("B" & lLastRow).Text  
   subj2 = Range("C" & lLastRow).Text  
     
subj = "(" + subj1 + "/" + subj2 + ")"  
 
Set wsh = CreateObject("WScript.Shell")  
TheBatPath = Chr(34) & "C:\Program Files\The Bat!\thebat.exe" & Chr(34)  
strTO = "TO=" & Chr(34) & "1111@yahoo.ca" & Chr(34)  
 
strsubject = "SUBJECT=" & Chr(34) & subj & Chr(34)  
 
strattach = "ATTACH=" & OldName  
'strattach = "ATTACH=" & Chr(34) & OldName & Chr(34)  
 
Cmd = TheBatPath & " /MAIL;" & strTO & ";" & strsubject & ";" & strattach & ""  
 
wsh.Exec Cmd    
For i = 1 To 30000: DoEvents: Next    
End Sub

как в принципе узнать название файла, открытой книги?  
Оно ж наверное в какойто переменной должно быть?

{quote}{login=egonomist}{date=04.08.2011 09:23}{thema=}{post}если не искать простых путей - то fso вам в помощь.{/post}{/quote}  
Мне бы по проще путь))

{quote}{login=KukLP}{date=04.08.2011 09:20}{thema=}{post}Name  OldName   As   NewName{/post}{/quote}  
 
Я незнаю названия файла...  
Нужно переместить "текущий" с тем же именем

спс

Мне нужно, что длина была меньше на 1символ.  
Допустим если в Б3 "123456"  
то мне надо, чтобы в переменной наме было "12345"  
как это зделать?  
 
 
 
Dim name  
 
   name = Range("B3")

Подскажите как переместить "текущий" файл?  
Макрос открывает документ, редактирует, потом закрывает.  
Нужно чтобы после этого файл был перемещен из папки с:\1  в папку с:\2

Dim lLastRow As Long  
lLastRow = Cells(Rows.Count,2).End(xlUp).Row  
 
 
в переменной lLastRow последняя ячейка второго столбца  
 
теперь надо скопировать начиная с ,7 и заканчивая переменной в столбец Ц  
 
 
 
если делать макрос, без переменной то выглядит он так:  
Range("B7:B19").Select  
   Selection.AutoFill Destination:=Range("B7:C19"), Type:=xlFillDefault  
   Range("B7:C19").Select  
----  
Как в ранж засунуть переменную?  
команда типа    
Range("B7:&lLastRow").Select  
непроходит.  
 
далее в таргете  
Destination:=Range("B7:C19")  
надо брать еще одну переменную, что бы сменить столбец.    
как ?

подскажите, как можно зделать макрос для сабжа  
Конкретно нужно скопировать 2ой столбец  начиная с 7строчки и заканчивая последней строчкой в которой есть данные. (скопировать в 3ий столбей, начиная также с 7строки)  
После чего разметить "все граници" на участке с 1столбца 1строки, заканчивая 3столбцов, и последней строчкой в которой есть данные.  
спс.