VBA Excel modul - save path

AndrejK

Fizikalc
7. sep 2007
1.279
3
38
SI
Programiram en mali modulček v excelu. Vse mi je uspelo ok sprogramirati, edino ne znam določiti lokacijo, na katero mi bo shranil generiran fajl.
Ta lokacija bi morala biti "My Documents\Mesecni podatki", ne glede na to, kje točno se My Documents nahaja...
Bi kdo znal to "spedenati"?
 

AndrejK

Fizikalc
7. sep 2007
1.279
3
38
SI
Correction
smile-1.gif

Pot znam določiti, malo mi dela težave preverjanje, ali mapa "Mesecni podatki" obstaja. Če je ni, bi jo moral napraviti.
 

AndrejK

Fizikalc
7. sep 2007
1.279
3
38
SI
Pronašao sam i to
smile-1.gif
:
Function CheckFolderExists(strPath As String) As Boolean
On Error Resume Next
Err.Clear
ChDir strPath
If Err.Number = 0 Then CheckFolderExists = True
End Function

in potem:

If CheckFolderExists(Pot) = False Then
MkDir (Pot)
End If

Če bo kdo kdaj kje iskal
smile-1.gif