Страницы: 1
RSS
indirect(CONCATENATE
 
Коллеги, день добрый.  
 
Возникла проблем с открытием файла с помощью функций indirect(CONCATENATE, подскажите пожалуйста, как правильно написать эту ссылку на лист что бы она работала  
For i = 1 To 3  
   Workbooks.Open indirect(CONCATENATE(""C:\Users\balashov\Desktop\08_AUGUST\1 aug\отчет ",i," августа 2012.xls""))  
   Windows("îò÷åò 1 àâãóñòà äåíü.xls").Activate  
   Sheets("âðåìåííûé ïåðñîíàë").Select  
   ActiveSheet.Range("$E$15:$S$500").AutoFilter Field:=5  
   Cells.Select  
   Application.CutCopyMode = False  
   Selection.Copy  
   Windows("Êíèãà1.xlsm").Activate  
   Sheets("Ëèñò2").Select  
   Range("A1").Select  
   ActiveSheet.Paste  
   Windows("îò÷åò 1 àâãóñòà äåíü.xls").Activate  
   ActiveWindow.Close  
   Next i  
End Sub
 
Экий гибрид :)))  
 
Workbooks.Open "C:\Users\balashov\Desktop\08_AUGUST\1 aug\отчет " & i & " августа 2012.xls"
Страницы: 1
Читают тему
Наверх