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

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

Добрый день, есть проблема с прикреплением файла.  
Если в имени файла встречается символ "'" то файл не прикрепляется?  
как это можно обойти?  
Вот кусок кода:  
 
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

Нужно через бат, послать текущий (открытый) файл.  
У меня создается письмо, с нужной темой...  
Но вот файл не аттачиться.  
хотя в 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

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

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

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