Henrik_B Praktikant
24. januar 2014 - 12:43 Der er 1 kommentar

Backup af fil fra VBA macro.

Hejsa

Jeg vil gerne have en macro, der begynder med at lave en back-up af mit regneark, inden der skal ændres i data.

Jeg har forsøgt mig med følgende :


MsgBox "Arbejder med filen " & ThisWorkbook.Name
'Start med at lave en back-up af arket.
Dim sourcewb As Workbook
Dim p As Long
Dim FolderNavn As String, FilNavn As String

Set sourcewb = ActiveWorkbook
FolderNavn = sourcewb.FullName
MsgBox FolderNavn
p = InStrRev(FolderNavn, "\")
FilNavn = Right(FolderNavn, Len(FolderNavn) - p)
FolderNavn = Left(FolderNavn, p) & "Back-up\" & Format(Date, "YYYY-MM-DD") & " " & FilNavn
MsgBox " Nyt navn : " & FolderNavn
sourcewb.SaveAs Filename = FolderNavn, FileFormat = xlOpenXMLWorkbookMacroEnabled


Den displayer også fint mit filnavn, men derefter får jeg følgende fejlmeddelelese :

Run-time error '1004':

Method 'SaveAs' of object '-Workbook' failed


Jeg skal sige at det nye navn ser korrekt ud, og back-up folderen findes.

Jeg håber at der er nogen, der kan hjælpe.
supertekst Ekspert
28. januar 2014 - 11:54 #1
Er justeret lidt:

Sub test1()
Dim sourceWB As Workbook
Dim p As Long
Dim FolderNavn As String, FilNavn As String

'Start med at lave en back-up af arket.
'    MsgBox "Arbejder med filen " & ThisWorkbook.Name

    Set sourceWB = ActiveWorkbook
    FolderNavn = sourceWB.FullName
'    MsgBox FolderNavn
   
    p = InStrRev(FolderNavn, "\")
    FilNavn = Right(FolderNavn, Len(FolderNavn) - p)
    FolderNavn = Left(FolderNavn, p) & "Back-up\" & Format(Date, "YYYY-MM-DD") & " " & FilNavn
'    MsgBox " Nyt navn : " & FolderNavn
   
    Application.DisplayAlerts = False
    sourceWB.SaveAs Filename:=FolderNavn, FileFormat:=xlOpenXMLWorkbookMacroEnabled
   
    sourceWB.Close
    sourceWB.Application.Quit
    Set sourceWB = Nothing
End Sub
Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Premium
Test: Huaweis Matebook X er særlig laptop med en svaghed, som du skal være opmærksom på
Huawei beviser endnu en gang, at de sagtens kan mingle sig med de bedste pc-producenter. Men alligevel skyder selskabet lidt ved siden af, med sin nyeste maskine.
Computerworld
Bitcoinen nåede lige at kulminere igen – men så kom krakket
Der blev sat en ny rekord for bitcoinens værdi i år – men godt 24 timer efter blev der høvlet næsten 20.000 kroner af den.
CIO
Podcast: Her er seks gode råd om ledelse og digitalisering fra danske top-CIO'er
The Digital Edge: Vi har talt med 17 af Danmarks dygtigste digitale ledere - og samlet deres seks bedste råd om digitalisering og ledelse. Få alle rådene på 26 minutter i denne episode af podcasten The Digital Edge.
Job & Karriere
Se Waoos forklaring: Derfor har selskabet fyret topchef Jørgen Stensgaard med omgående virkning
Waaos bestyrelse opsiger fiberselskabets topchef, Jørgen Stensgaard, der fratræder med omgående virkning. Se hele forklaringen fra Waao her.
White paper
Gratis whitepaper: Hvad er EDI, og hvordan kan det styrke min forretning?
Overvejer du EDI, og ønsker du at undersøge, om EDI er den rette investering for din virksomhed? Har en af dine kunder eller leverandører for nyligt bedt dig om at udveksle elektroniske dokumenter (EDI)? Så hent dette whitepaper og få et overblik over, hvad EDI er, og hvilke fordele producenter og grossister som dig kan se frem til, når du investerer i EDI til din forretning.