VBA van netwerkschijf naar lokale schijf

[roykes001]

Hallo,

Ik heb een Excel macro die van een netwerkschijf naar een lokale schijf is verplaatst. Sindsdien werkt de macro niet meer en krijg ik in Excel de volgende melding
Fout 9 tijdens uitvoering: Het subscript valt buiten het bereik

Als ik dan de foutopsporing doe geeft VBA in de volgende regel de melding:
Sheets("Uitvoer").Cells(Intuitvoerregel, 9) = Intmeetwaarde(1, 3) / 100

Echter lijkt het mij niet te maken hebben met het bereik daarvan maar meer dat de macro is verplaatst qua schijf en daardoor het vinden of het opslaan van de uitvoer?

Ik hoop dat jullie me kunnen helpen

Bijgevoegd het Excelbestand met daarin de macro (Gegevensbepaling) en het bestand waaruit de data komt (B51B0283002_1).
Ik kan de code helaas niet delen omdat deze te lang is om hier te plaatsen (meer dan 10.000 tekens).

 

[snb]

Ga met de cursor boven deze regel hangen en
- vertel wat de waarde is van Intuitvoerregel
- de waarde van Intmeetwaarde

Waarom het bestand niet teruggeplaatst op die netwerkschijf ?

 

[snb]

Ik zou eerst alle csv-bestanden integreren in 1 csv-bestand via het DOS-commando 'copy'

Daarna de gegevens in het integratiebestand inlezen in een array en correct wegschrijven in het Excelbestand.
Met een 20-tal regels VBA is dit wel te doen.

 

[roykes001]

Ga met de cursor boven deze regel hangen en
- vertel wat de waarde is van Intuitvoerregel
- de waarde van Intmeetwaarde

Waarom het bestand niet teruggeplaatst op die netwerkschijf ?

De Intuitvoerregel waarde is: 3
De Intmeetwaarde is: 695

We kunnen het bestand niet meer terugplaatsen omdat die netwerkschijf niet meer bestaat.
Verder ben ik zelf helaas geen VBA expert dus hoop ik echt op jullie informatie/input.

 

[snb]

De enige verwijzing in de code naar een station/directory is C:\users\.
Bestaat die nog ?
In welke directories staan de CSV-bestanden nu ?

 

[roykes001]

De enige verwijzing in de code naar een station/directory is C:\users\.
Bestaat die nog ?
In welke directories staan de CSV-bestanden nu ?

Die verwijzing naar C:\users\ heb ik zelf al naar die locatie aangepast. Dat is namelijk de nieuwe locatie.
De CSV-bestanden staan onder de map downloads van de C-schijf opgeslagen

 

[snb]

C:\users\

Dan vermoed ik dat deze verwijzing niet correct is, want je toelichting komt niet overeen met de padnaam.

Check met deze macro

Sub M_snb()
  msgbox dir("C:\Users\*.csv"),,"snb_1"
  msgbox dir("C:\users\download\*.csv"),,"snb_2"
  msgbox dir("C:\download\*.csv"),,"snb_3"
End Sub

Kontroleer in welk geval (snb_1, snb_2 of snb_3) de naam van een csv-bestand getoond wordt.

 

[edmoor]

Misschien ook wel deze:

msgbox dir(Environ("Userprofile") & "\Downloads\*.csv"),,"Tada"

 

[roykes001]

Ik heb het probleem op kunnen lossen door de invoerbestanden op een andere netwerkschijf op te slaan als het maar geen C-schijf is (had denk ik met rechten te maken om een document op te slaan). Het bestand met de tool zelf kon wel op de C-schijf staan.

Topic mag wat mij betreft gesloten worden.