[es] - [Excel] VB Greska?

mixi
Milan Stojkovic
Miljakovac, Beograd

Član broj: 3433
Poruke: 47
*.eunet.yu.

Profil

^{09.10.2007. u 08:59 - pre 201 meseci}

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

.::. http://www.mixi.co.sr .::.

Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org

+116 Profil

Re: [Excel] VB Greska?

^{09.10.2007. u 09:55 - pre 201 meseci}

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'..

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Odgovor na temu

mixi
Milan Stojkovic
Miljakovac, Beograd

Član broj: 3433
Poruke: 47
*.eunet.yu.

Profil

Re: [Excel] VB Greska?

^{09.10.2007. u 10:08 - pre 201 meseci}

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?

.::. http://www.mixi.co.sr .::.

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
212.200.27.*

Sajt: www.gowi.rs

+109 Profil

Re: [Excel] VB Greska?

^{09.10.2007. u 11:00 - pre 201 meseci}

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

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu

mixi
Milan Stojkovic
Miljakovac, Beograd

Član broj: 3433
Poruke: 47
*.eunet.yu.

Profil

Re: [Excel] VB Greska?

^{09.10.2007. u 13:14 - pre 201 meseci}

Posto nisam preterano vest sa VB-om, da li bi mi neko pomogao da izmenim postojeci kod u odgovarajuci za 2007-icu?

.::. http://www.mixi.co.sr .::.

Odgovor na temu