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 Seniormester
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
EG-direktør præsenterer første regnskab efter frasalg: "Vi har overgået vores egne forventninger - det har hjulpet til, at vi blev solgt for 3,7 milliarder"
Interview: EG har for første gang aflagt regnskab udelukkende for software-forretningen. Det sker efter, at serviceforretningen blev solgt fra i februar 2019. Selskabet leverer over egne forventninger "på alle væsentlige parametre," forklarer topchef Mikkel Bardram.
Computerworld
Overblik: Så meget betaler danske virksomheder i løn til it-medarbejderne - se listerne her
Overblik: Der er meget stor forskel på løn-niveauet for it-medarbejderne i de danske virksomheder. Få overblikket over, hvor lønnen er højest og lavest her.
CIO
The Digital Edge: Claus H. Andersen står i spidsen for at gøre dit indkøb nemmere i Salling Groups 1.500 butikker
Podcast: Salling Groups digitale chef, Claus H. Andersen, er på en digital mission: Det skal være nemmere at handle, nemmere at være kunde og nemmere være forbruger - i alle kædens 1.500 butikker. Hør hvordan den digitale chef arbejder.
Job & Karriere
"Vi var fem mennesker, der fik 400 millioner kroner, et lokale på 12 m2 og et stempel fra Undervisningsministeriet. Det kalder jeg mit første start-up. Det blev til IT-Universitetet. "
"Da jeg var færdig med PhD´en så var vi fem mennesker, der fik 400 millioner kroner, et lokale på 12 m2 og et stempel fra Undervisningsministeriet. Så skulle vi bare have et nyt universitet op og køre på seks måneder. Det kalder jeg mit første start-up. Det blev til IT-Universitetet."
White paper
Vil du snydes når du skal vælge printløsning?
Svaret er forhåbentlig/naturligvis nej, men sandheden er at det er et reelt problem for mange virksomheder. I langt de fleste tilfælde skrives der under på kontrakter, der binder virksomheder til unødigt kostbare og langvarige leasing og lejeforløb, og underskriften er desværre bindende. Derfor – der er mange penge at spare ved at få den rigtige rådgivning og sætte sig ind i aftalerne, og vi har samlet 5 gode råd i dette whitepaper.