Avatar billede yxos Nybegynder
04. februar 2014 - 14:27 Der er 1 løsning

Hvordan finder jeg datostempel for en anden fil?

Via en macro, opdaterer jeg indholdet af en Excelfil, som hedder "TEST.xls" ud fra en XML-fil.

Når den er færdig med det, indsætter jeg NOW() i celle J1 i ark "Opslag".

Men det er jo ikke helt rigtigt; det er jo kun et udtryk for hvornår macroen er eksekveret.

Kan man ikke hente dato/klokkeslet for XML filen (strXMLFullName), og indsætte den i fx. celle J2?

Dette er min kode:
[code]    strFileName = ActiveWorkbook.Name
    strXMLName = "STREGKODER.XML"
    strXMLFullName = "\\servernavn\STREGKODER\" & strXMLName
   
'Ryd nuværende indhold i arket "Stregkodedump Gældende":
    Sheets("Stregkodedump Gældende").Select
    Cells.Select
    Selection.ClearContents
    Range("A1").Select
'Åbn den XML fil, der skal kopieres nyt indhold fra, og kopier alle celler:
    Workbooks.Open Filename:=strXMLFullName
    Cells.Select
    Selection.Copy
'Gå tilbage til den første Excel, og Paste ind:
'  Windows("TEST Stregkodedump.xls").Activate
    Windows(strFileName).Activate
    Application.StatusBar = "Opdaterer med nye Stregkoder - Indsætter ny fil..."
    ActiveSheet.Paste
'Luk XML filen igen:
'  Windows("STREGKODER.XML").Activate
    Windows(strXMLName).Activate
    Application.CutCopyMode = False
    ActiveWindow.Close
'Indsæt dato for opdatering i ark "Opslag" i celle J1:
    Sheets("Opslag").Select
    Range("J1").Select
    ActiveCell.FormulaR1C1 = "=NOW()"
    Range("J1").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
'Gem filen:
    ActiveWorkbook.Save
'Positioner i A2 i det aktive ark; "Opslag":
    Range("A2").Select[/code]
Avatar billede yxos Nybegynder
04. februar 2014 - 14:46 #1
FileDateTime(Filnavn)

Den burde jeg vist kunne have fundet, uden at have oprettet et spm her... :-/
Avatar billede 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. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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