Userform i VBA

Ja - prøver at konstruere et eksempel.....

Problemet er at jeg ikke er særligt godt til vba.

Her er koden: - men hvis du sender en mail til: pb@supertekst-it.dk
- så returnere jeg hele filen


Private Sub CommandButton1_Click()          'Gem
    If Me.t_drev <> "" And Me.t_mappe <> "" And Me.t_filnavn <> "" Then
        udførGem
    End If
End Sub
Private Sub udførGem()
Dim sti As String

Rem check drev
    On Error GoTo fejl_drev
    ChDir Me.t_drev

Rem drev OK
    sti = Me.t_drev
    If Right(sti, 1) <> "\" Then
        sti = sti + "\"
    End If
   
Rem check mappe
    On Error GoTo opret_mappe
    sti = sti + Me.t_mappe
    ChDir sti
   
opret_mappe:
    MkDir Me.t_mappe

Rem gem filen
    ActiveWorkbook.SaveAs sti + "\" + Me.t_filnavn + ".xls"
    Exit Sub
   
fejl_drev:
    MsgBox ("Fejl i Drev-angivelse")
End Sub
Private Sub CommandButton2_Click()          'Annuller
    Unload UserForm1
End Sub

Endelige kode i Userform:

Private Sub CommandButton1_Click()          'Gem
    If Me.t_drev <> "" And Me.t_mappe <> "" And Me.t_filnavn <> "" Then
        udførGem
        CommandButton2_Click
    End If
End Sub
Private Sub udførGem()
Dim sti As String

Rem check drev
    On Error GoTo fejl_drev
    ChDir Me.t_drev

Rem drev OK
    sti = Me.t_drev
    If Right(sti, 1) <> "\" Then
        sti = sti + "\"
    End If
   
Rem check mappe
    On Error GoTo opret_mappe
    ChDir sti + Me.t_mappe
   
Rem gem filen
    ActiveWorkbook.SaveAs sti + Me.t_mappe + "\" + Me.t_filnavn + ".xls"
    Exit Sub
   
opret_mappe:
    MkDir sti + Me.t_mappe
    Resume Next
   
fejl_drev:
    MsgBox ("Fejl i Drev-angivelse")
End Sub
Private Sub CommandButton2_Click()          'Annuller
    Unload UserForm1
End Sub
Private Sub userform_activate()
    Me.t_drev = "C:\Budget"
End Sub