Error 75

[Tjordaske]

I'm creating a script that needs to create for each value in a list a new folder on the same location where the Excel with the list of values is saved.
It seems to work because my script is creating a folder for each value, but I get an error 75 each time I execute the script:

i = 1
a = Workbooks("Overzicht categorieën.xlsx").Sheets(1).Cells(i, 1).Value

Do While a <> ""
For Each cell In OutRng
dirname = Cells(i, 1).Value
MkDir (FilePath & "\" & dirname)
Next cell

i = i + 1
Loop

What goes wrong?

 

[Candyman8019]

It looks like it may be trying to create folders that already exist. I would try removing the Do loop since the for/next will do the looping through each cell.

 

[Tjordaske]

Hi @Candyman8019, don't I need a loop because when my script is only this:

For Each cell In OutRng
dirname = cell.Value
MkDir (FilePath & "\" & dirname)
Next cell

It's creating only a folder for the first value in the list, but not for the other values.
I don't have the error 75 now, but not the result I'm hoping for.

 

[Candyman8019]

move your I=I+1 before 'Next Cell so that it increments

For Each cell In OutRng
dirname = Cells(i, 1).Value
i = i + 1
MkDir (FilePath & "\" & dirname)
Next cell


I think you could also use the Do loop instead if you prefer.
Do While a <> ""
dirname = Cells(i, 1).Value
MkDir (FilePath & "\" & dirname)
i = i + 1
Loop

 

[Tjordaske]

Your first possibility is creating only a folder for the first value and it stops there. But no error.

Your second possibility is creating a folder for each value, but the error is back

 

[Candyman8019]

Here's what I had to do to get this working:

i = 1
a = Workbooks("Book1.xlsm").Sheets(1).Cells(i, 1).Value
filepath = "C:"
Do While a <> ""
dirname = Cells(i, 1).Value
MkDir (filepath & "\" & dirname)
i = i + 1
a = Workbooks("Book1.xlsm").Sheets(1).Cells(i, 1).Value
Loop

The filepath was the main thing that was missing. Then I added a line to update the 'a' variable after the value was incremented.