Makro sletter fil
Jeg har følgende makro:Sub KopiAfSkattesatser()
'Kontrol om der er skriveadgang ned i Skattesatser
'Kopier og indsætter data fra filen Skattesatser til Stamdata
'og laver MsgBox der fortæller at data er opdateret
Dim x As Boolean
Dim stStiOgFil As String
Dim BeskedAdgang As String
Dim BeskedIngenAdgang As String
Set Opdateringsår = Worksheets("Beregninger").Range("D23")
'-------------Her skal sti og navn på stamdata indsættes----------------
stStiOgFil = "C:\Documents and Settings\Henrik Søndergaard\Dokumenter\IT ideer\Skat\Fremtidssikret version\Stamdata.xls"
x = test_server(stStiOgFil)
If x = True Then
Application.ScreenUpdating = False
'Skriver stinavn og filnavn
Sheets("Beregninger").Range("C25") = ActiveWorkbook.FullName
Sheets("Beregninger").Range("C26") = ActiveWorkbook.Name
'Åber Stamdata
Workbooks.Open Filename:= _
"C:\Documents and Settings\Henrik Søndergaard\Dokumenter\IT ideer\Skat\Fremtidssikret version\Stamdata.xls"
'Kopi af stinavn fra C25 og C26
Sheets("Beregninger").Range("C25:C26").Copy
'Aktiver Stamdata
Windows("Stamdata.xls").Activate
'Indsætter Stinavn og Filnavn ind i arket Beregninger i C25 og C26
Sheets("Beregninger").Range("C25:C26").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Besked om at Skattesatser er opdateret
BeskedAdgang = MsgBox("Skattesatser er opdateret til og med år " & Opdateringsår & "!", vbOKOnly + vbInformation, "Data opdateret")
Else
'Besked hvis der ikke er skriverettigheder ned på server
sLangTekst = "Du har ikke skrive-adgang til G-drevet, så du kan ikke opdaterer data!" & vbNewLine
sLangTekst = sLangTekst & "" & vbNewLine
sLangTekst = sLangTekst & "Tilslut dig netværket og prøv igen!"
BeskedIngenAdgang = MsgBox(sLangTekst, vbOKOnly + vbCritical, "Ingen adgang til serveren")
End If
End Sub
Når makroen skal åbne filen Stamdata.xls går der noget galt: Filen slettes og så kan den selvfølgelig ikke findes.
Hvad går der galt?
