[ 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


[ 3okc @ 09.10.2007. 09:55 ] @
Citat:
mixi: .. 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?
Ne mogu da ispitam osobine ponašanja nove verzije jer je nemam, za to ćeš sačekati nekoga ko je koristi, ali iz ovoga što si napisao prilično dobro se može locirati problem. Dakle, kao što ti se i kaže, objekat ne podržava metod FileSearch.

Koji je razlog za to? Sad, možda je nova verzija dobila nove objekte za istu stvar (drugačijeg imena), možda ti stroži nivo zaštite zabranjuje da čeprkaš po fajlovima, tja, mnogo je razloga, samo, kad već znaš ovoliko jel problem otvoriti HELP i pročitati osobine konkretnog objekta? Verovatno ti je objašnjenje 'nacrtano'..
[ mixi @ 09.10.2007. 10:08 ] @
Nemam ni ja 2007, vec sam poslao file jednom drugaru, jer je njemu potrebna ta skripta, a on ima 2007-icu. Kada odem do njega pogledacu help, pa cu videti sta je "nacrtano". Da li je moguce da ima neku osakacenu verziju office-a koja u sebi nema objekte potrebne za VB?
[ Jpeca @ 09.10.2007. 11:00 ] @
U pravu si Application.FileSearch više nije podržano u Excelu 2007.
Eventualno da pokušaš da iskoritiš FileSystemObject koji je dostupan iz VB Scripta
http://msdn2.microsoft.com/en-us/library/2z9ffy99.aspx
[ mixi @ 09.10.2007. 13:14 ] @
Posto nisam preterano vest sa VB-om, da li bi mi neko pomogao da izmenim postojeci kod u odgovarajuci za 2007-icu?