Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel

---

Do While Not Rs.EOF()
'Set Vork = Sheets.Add(before:=Sheets(Sheets.Count))
Set Vork = Sheets.Add
Vork.Name = Rs!imeprezime

Vidis ovo:
U ptlji dodajes Sheets sto znaci koliko petlja okrene toliko puta pokreces i shett odnosmno kreiras novi.

Treba da stoji:
Set Vork = Sheets.Add
Vork.Name = Rs!imeprezime
Do While Not Rs.EOF()
'Set Vork = Sheets.Add(before:=Sheets(Sheets.Count))

---