Gemme fil med foreslået navn

http://www.eksperten.dk/spm/751190

Jeg har prøvet det, men ville gerne have at gem som boxen kommer frem med et foreslået navn fra celle B6, som man evt. kan ændre inden gem.

Jeg har prøvet det, men ville gerne have at gem som boxen kommer frem med et foreslået navn fra celle B6, som man evt. kan ændre inden gem.

Har fået dennne af Kabbak.....

Sub gemb6()

    Dim strFilNavn As String
    Dim strHdMappe As String

    strHdMappe = "C:\"

    strFilNavn = InputBox("Gem regneark som:","Gem", Range("b6"))

    ActiveWorkbook.SaveAs Filename:=strHdMappe & strFilNavn    ' Aktiv efter gem

End Sub

Jeg har prøvet nedenstående som virker, men hvordan undgår jeg fejl, hvis jeg ikke ønsker at overskrive en eksisterende fil med samme navn. Jeg vil så gerne have mulighed for at ændre det foreslåede navn inden gem.

Sub gemb6()

    Dim strFilNavn As String
    Dim strHdMappe As String
   
    strHdMappe = ActiveWorkbook.Path & "\"
   
    strFilNavn = InputBox("Gem regneark som:", "Gem", "Privatforbrug - " & Range("b6") & " " & Range("b4"))

    ActiveWorkbook.SaveAs Filename:=strHdMappe & strFilNavn    ' Aktiv efter gem

End Sub

Sub gemb6()

    Dim strFilNavn As String
    Dim strHdMappe As String
    Application.DisplayAlerts = False
    strHdMappe = "C:\"

    strFilNavn = InputBox("Gem regneark som:", "Gem", Range("b6"))

    ActiveWorkbook.SaveAs Filename:=strHdMappe & strFilNavn
    Application.DisplayAlerts = True
End Sub

Har forsøgt, men den overskriver uden at give mig mulighed for at ændre navnet.

Får du ikke inputboxen op???

Det virker fint ved mig, hvis jeg forstår det rigtigt.

Jeg får inputboxen op og kan ændre navnet til et nyt, hvis jeg ikke ændre noget gemmer den bare, ellers laver den et nyt dokument.

Problemet er, at hvis man tilfældigvis har en fil med samme navn i forvejen, så vil denne makro overskrive den gamle fil uden at man er klar over det. Det var det som jeg gerne ville undgå.

Det vil sige at hvis der findes en fil med navnet, skal den advarer og spørge om nyt fil navn. Og hvis der ikke findes et filnavn magen til skal den bare gemme?

Ja, hvis der i forvejen findes en fil med det foreslåede navn i indputboxen, ville jeg gerne have en advarsel som siger man skal ændre navnet inden gem.

Hvad med denne??

Sub gemb6()

    Dim strFilNavn As String
    Dim strHdMappe As String
    Dim Strfilnavntest As String
   
    Application.DisplayAlerts = False
   
    strHdMappe = "p:\"
    Strfilnavntest = Range("b6") & ".xls"
    If Dir("strhdmappe" & "strfilnavntest") <> "" Then
    ActiveWorkbook.SaveAs Filename:=strHdMappe & Strfilnavntest
    Else
    strFilNavn = InputBox("Gem regneark som:", "Filnavnet findes i forvejen", Range("b6"))
   
    End If
    Application.DisplayAlerts = True
End Sub

UPS.  Den skulle jo gemme med det alternative filnavn.


Sub gemb6()

    Dim strFilNavn As String
    Dim strHdMappe As String
    Dim Strfilnavntest As String
   
    Application.DisplayAlerts = False
   
    strHdMappe = "p:\"
    Strfilnavntest = Range("b6") & ".xls"
    If Dir("strhdmappe" & "strfilnavntest") <> "" Then
    ActiveWorkbook.SaveAs Filename:=strHdMappe & Strfilnavntest
    Else
    strFilNavn = InputBox("Gem regneark som:", "Filnavnet findes i forvejen", Range("b6"))
    ActiveWorkbook.SaveAs Filename:=strHdMappe & strFilNavn
    End If
    Application.DisplayAlerts = True
End Sub

Desværre - I første forsøg kommer indputboxen og siger at filen findes, selvom den ikke er der.

Det kunne se ud som testen af filnavnet ikke virker rigtigt?

Virker dette efter hensigten?

Sub gemb6()

    Dim strFilNavn As String
    Dim strHdMappe As String
    Dim Strfilnavntest As String
   
    Application.DisplayAlerts = False
   
    strHdMappe = "p:\"
    strFilNavn = strHdMappe & Range("b6") & ".xls"
    If Dir(strFilNavn) = "" Then
    ActiveWorkbook.SaveAs Filename:=strFilNavn
    Else
    strFilNavnny = InputBox("Gem regneark som:", "Filnavnet findes i forvejen", Range("b6"))
    ActiveWorkbook.SaveAs Filename:=strHdMappe & strFilNavnny
    End If
    Application.DisplayAlerts = True
End Sub

Ja - den sidste er lige i "skabet". Tak for di ihærdighed!

det var så lidt.... man bliver jo bare lidt stædig..

god Weekend