VBA - kopírovanie z viacerých súborov do jedného

Ahojte,

poradte prosím. V nejakom reportingovom systeme si stahujem excel subory (nestahujem, iba otvorim, neuklada sa mi to do downloads). Subory sa volaju napr. subor_a(1), subor_b(1), subor_c(1). Z nejakeho dovodu ale maju niekedy nazvy subor_a(2), subor_b(3) alebo subor_c(4). Proste sa tam to cislo meni podla toho, ci som uz subor s takym nazvom uz predtym otvarala alebo nie, neviem presne podla coho.

Takze viem ako napisat makro, aby mi data z tychto troch suborov nakopirovalo do jedneho. Problem je, ze tie subory nemaju vzdy rovnaky nazov (lisiaci sa v tom cisle) a teda sa to makro neda vzdy pouzit.

Da sa to nejako osetrit? Nejakou podmienkou? Ak je otvoreny subor_a(1) urob toto, ak nie, tak ak je otvoreny subor_a(2) urob toto, ak nie, tak ak je otvoreny subor_a(3) urob toto....(Viac ako tri to asi nebude)

Dufam, ze som pisala zrozumitelne

Dakujem

Zuz

Jsou zobrazeny jen nové odpovědi. Zobrazit všechny

Předmět	Autor	Datum
Já bych to řešil cyklem, v něm skládal název souboru a následně kontroloval jeho existenci. Tedy něc… Zdenál 16.02.2016 16:06	Zdenál	16.02.2016 16:06
dříve či později se dostane i za 9 ;-) touchwood 16.02.2016 16:32	touchwood	16.02.2016 16:32
Cyklus se dá samozřejmě rozšířit, ale asi máš pravdu Ty v prvním příspěvku. poslední Zdenál 16.02.2016 18:43	Zdenál	16.02.2016 18:43

Já bych to řešil cyklem, v něm skládal název souboru a následně kontroloval jeho existenci. Tedy něco takového:

For i = 1 To 9
  NameFile = "subor_a(" & Trim(Str(i)) & ")"
  ...       ' Zde doplnit do NameFile plnou cestu
  If Len(Dir(NameFile)) > 0 Then  ' OK, soubor existuje, vyskocim z cyklu
    Exit For
  End If
Next i

dříve či později se dostane i za 9

Cyklus se dá samozřejmě rozšířit, ale asi máš pravdu Ty v prvním příspěvku.

Zpět do poradny Odpovědět na původní otázku Nahoru