Åben og gemmefunktion i VBA

Hej

Jeg har følgende funktion til at gemme en Excel-mappe med efter import af en tekstfil:

    fileTosave = Split(ActiveWorkbook.Name, ".")(0)
    Flt = "Excel mappe(*.xls),*.xls,"
    Titel = "Gem Som!"
    Filnavn = Application.GetSaveAsFilename(fileTosave, Flt, 1, Titel)
    If Filnavn <> False Then
        ActiveWorkbook.SaveAs Filnavn
    End If

Mit problem er, at ovenstående ikke gemmer korrekt, da Excel ved afslutning af programmet endnu engang beder om at få filen gemt, da det eksisterende filformat kan medføre tab af funktioner i arket. Er der en der kan tilpasse ovenstående så den gemmer korrekt første gang i korrekt Excel-mappe format?


Jeg har ligeledes en åben funktion:

FuldStiOgFil = Application.GetOpenFilename

Workbooks.OpenText Filename:= _
FuldStiOgFil, Origin:=xlWindows _
, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(2, 4), Array(12, 1 _
), Array(40, 1), Array(49, 1), Array(90, 1), Array(102, 1), Array(116, 1), Array(130, 1), _
Array(144, 9)), TrailingMinusNumbers:=True

Er der en der kan tilpasse denne til automatisk af stille sig til C:, da filen ligger her?

Hilsen

TVC