[kapi9]

mirki, pytanie dot. kodu #vba #excel #programowanie:

mam makro:

Sub ZapiszBezMakr()

ActiveWorkbook.Sheets.Copy ' tworzy kopię skoroszytu - bez makr; ta kopia jest teraz ActiveWorkbook

ActiveWorkbook.SaveAs Filename:="C:\dane\Raport.xlsx", FileFormat:=51 ' zapis kopii na dysku

ActiveWorkbook.Close ' zamknięcie kopii

End Sub

zapisuje mi dany arkusz do folderu dane, nazwa Raport. Problem sie pojawia w momencie gdy nie mam utworzonego tego folderu na dysku C, wywala błąd. Gdy utworze recznie folder, makro przejdize. Co umiescic w makrze aby w wypadku gdy danego folderu nie ma, aby utworzył?

[bianco86]

wywala błąd. Gdy utworze recznie folder, makro przejdize. Co umies

@kapi9: proponuję poczytać o klasie FileSystemObject - dzięku niej możesz sprawdzić przed zapisem czy folder istnieje i stworzyć jeżeli nie.

[kapi9]

@zarev: @bianco86:

If Len(Dir("F:\Templates", vbDirectory)) = 0 Then
MkDir "F:\Templates"
End If

tym poszło, dzieki wielkie