[ mixi @ 09.10.2007. 08:59 ] @
U kodu koji bi trebalo da kopira odredjenu oblast iz svih xls file-ova u folderu u jednu tabelu, Excel 2007 mi prijavljuje gresku 554 "Object doesn's support this action" na liniji "With Application.FileSearch", dok u Excel-u 2003 sve radi kako treba. Da li neko zna u cemu je problem? Code: Sub NisuStigle() Dim Bazna As Workbook Dim Otvorena As Workbook Dim i As Long Dim j As Long Dim Putanja As String Putanja = ThisWorkbook.Path j = 1 n = 1 Application.ScreenUpdating = False Application.DisplayAlerts = False With Application.FileSearch .NewSearch .LookIn = Putanja .Filename = "*" & ".xls" .SearchSubFolders = False .FileType = msoFileTypeExcelWorkbooks If .Execute() > 0 Then Set Bazna = ThisWorkbook For i = 1 To .FoundFiles.Count Set Otvorena = Workbooks.Open(.FoundFiles(i)) Otvorena.Worksheets("Nisu Stigle").Unprotect Otvorena.Worksheets("Nisu Stigle").Range("e1").Copy Bazna.Activate Cells(j, 2).PasteSpecial j = j + 1 Otvorena.Worksheets("Nisu Stigle").Activate Range(Cells(10, 2), Cells(19, 5)).Copy Bazna.Activate Cells(j, 1).PasteSpecial Otvorena.Close savechanges:=False j = j + 10 Next i End If End With Bazna.Activate Rows.RowHeight = 30 End Sub |