Lasse Olsen Juniormester
14. september 2018 - 13:12 Der er 3 kommentarer og
1 løsning

Åben fil med dato

Hej CW
Jeg har en kode som unzipper en zipped fil og gemmer den i en ny mappe der bliver kaldt MyUnzipFolder(dagen dato).
Mappen der bliver oprettet hedder altså MyUnzipFolder efterfulgt af dagens dato. Min kode fejler så ved min makering(##) - da den ikke forstår strData når den skal åbne filen, hvad gør jeg galt?
If Fname = False Then
                    'Do nothing
                Else
                    'Root folder for the new folder.
                    'You can also use DefPath = "C:\Users\Ron\test\"
                    DefPath = "P:\"
                    If Right(DefPath, 1) <> "\" Then
                        DefPath = DefPath & "\"
                    End If
           
                    'Create the folder name
                    strDate = Format(Now, " dd-mm-yy")
                    FileNameFolder = DefPath & "MyUnzipFolder " & strDate
           
                    'Make the normal folder in DefPath
                    MkDir FileNameFolder
           
                    'Extract the files into the newly created folder
                    Set oApp = CreateObject("Shell.Application")
           
                    oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(Fname).items
           
                    On Error Resume Next
                    Set FSO = CreateObject("scripting.filesystemobject")
                    FSO.deletefolder Environ("Temp") & "\Temporary Directory*", True
                    End If
##                             
                    Dim xx As Workbook
                    Set xx = Workbooks.Open("P:\MyUnzipFolder & strData\ lmpriser_eSundhed_180813.xlsx")
supertekst Ekspert
14. september 2018 - 13:49 #1
Er strDate defineret?
Og i givet fald som hvad
claes57 Ekspert
14. september 2018 - 14:05 #2
Prøv at skifte
              strDate = Format(Now, " dd-mm-yy")
Til
        strDate = cStr(Format(Now, " dd-mm-yy"))
claes57 Ekspert
14. september 2018 - 14:08 #3
Hvis du bruger datoformatet yyyymmdd så kommer mapperne i logisk rækkefølge. Som du har det, vil første jan og første feb ligge lige efter hinanden derefter anden jan osv.
RogerWilco Mester
14. september 2018 - 18:06 #4
Du mangler da et par anførselstegn, og "strData" er stavet forkert.

Set xx = Workbooks.Open("P:\MyUnzipFolder" & strDate & "\lmpriser_eSundhed_180813.xlsx")
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
IBM kommer med kortfattet kommentar: "Vi påtænker at nedlægge cirka 90 stillinger"
IBM bekræfter nu, at selskabet internt har annonceret, at det vil nedlægge omkring 90 stillinger. Den amerikanske virksomhed forsøger at nedbringe antallet af stillinger, lyder det.
Computerworld
Danske tech-topfolk blæst bagover efter besøg i Kina: Danmark er nødt til at gøre noget
Danmark skal i den grad op i gear, hvis ikke vi skal køres helt bag ad dansen af Kina, lyder det fra bekymrede danske techfolk efter besøg i Kina.
CIO
Forleden reparerede en mekaniker min bil: Det kostede 4.200 kroner, som min hjerne snød mig til at betale med et smil
De rationelle it-beslutninger du træffer er måske en illusion. Det lærte jeg da min bil gik i stykker og min hjerne snød mig til at tro, at alt var fint. Til gengæld fandt jeg tre fælder dine it-beslutninger kan falde i.
Job & Karriere
Manden bag Stack Overflow til softwareudviklere og folk i it-branchen: Disse ting skal du lære, hvis du vil undgå at blive tromlet totalt
Interview: Manden bag Stack Overflow og Trello har en opsang til folk i it-branchen. Her er de kompetencer, som du bare skal tilegne dig nu.
White paper
Sådan vælger du det bedste intranet
At vælge den bedste, eller skal vi kalde det, den rette intranetplatform til din virksomhed eller organisation, er ikke nødvendigvis nogen let opgave. Sammenlignet med andre stykker software eller værktøjer til udførelse af specifikke behov, ja så er et intranet typisk en platform, der skal implementeres på tværs af hele virksomheden. Det med det faktum, at det også vil berøre mere eller mindre samtlige ansatte og funktionsområder, hvorfor man alt andet lige skal gøre sig ekstra umage – både mht. valg af hvilken platform, men også mht. udarbejdelse af business case, implementering, udrulning samt adoption og uddannelse. Dette er en 40 siders udførlig guide til dig som skal i gang med at vælge intranetplatform til din virksomhed, og mangler inspiration til, hvordan hele processen bør køre fra start til slut.