Excel VBA macro hangt

[rjvencken]

Deze VBA-n00b wil een macrootje bouwen dat een bestand aanmaakt vanuit een Excel-sheet. Dit heeft een keer gewerkt maar nu blijft de macro steevast op de 4e regel van de sheet hangen waarna de Task Manager aangeeft dat Excel 50% van de CPU nodig heeft. Heb niet het flauwste idee waar te gaan debuggen.

Als bijlage uiteraard het MS Excel 2003 bestand.

 

[MDN111]

Hallo !

Op lijn 124 staat de volgende code:

Do Until oApp.Namespace(Zippath).items.Count = 1
  Application.Wait (Now + TimeValue("0:00:01"))
Loop

Vanaf het moment dat je het 2de bestand gekopieerd hebt, wordt het aantal items in Zippath dus 2. En dat blijft zo. De macro blijft voor eeuwig in die loop draaien.

Vraagje: Ik heb opgemerkt dat de variabele Zippath verwijst naar een bestand, terwijl je dat gebruikt als foldernaam in de Namespace-property. Heb je dat bewust gedaan?

Grtz,
MDN111

 

[rjvencken]

Hallo !

Op lijn 124 staat de volgende code:

Do Until oApp.Namespace(Zippath).items.Count = 1
  Application.Wait (Now + TimeValue("0:00:01"))
Loop

Vanaf het moment dat je het 2de bestand gekopieerd hebt, wordt het aantal items in Zippath dus 2. En dat blijft zo. De macro blijft voor eeuwig in die loop draaien.

Vraagje: Ik heb opgemerkt dat de variabele Zippath verwijst naar een bestand, terwijl je dat gebruikt als foldernaam in de Namespace-property. Heb je dat bewust gedaan?

Grtz,
MDN111

Tnx! Hier kan ik waarschijnlijk wel wat mee!