Søg
Avatar billede morten_ha Nybegynder
09. januar 2002 - 21:52 Der er 4 kommentarer og
2 løsninger

Oprette mapper og overskrive filer

Jeg er ved at programere en makro, som skal køre en gang dagligt. Makroen skal hver dag oprette en mappe på C-drevet med datoen som tittel, hvori jeg skal gemme en excel-fil.

Hvordan opretter jeg en mappe??

Makroen skal til sidst overskrive en fil, uden at afviklingen af makroen standses med en dialogbox som spørger om den gamle fil skal slettes.

Håber at i kan hjælpe.

NB: Jeg er ny her, så jeg håber at 60 point er OK
Avatar billede bak Forsker
09. januar 2002 - 22:30 #1
For at oprette mappe:
Sub opretmappe()
dato = Left(CStr(Now), 10)
MkDir (\"c:\\\" & dato)
End Sub

For at overskrive uden advarsel:
Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=\"C:\\Dokumenter\\fejl.xlsApplication.DisplayAlerts = True
Avatar billede bak Forsker
09. januar 2002 - 22:32 #2
Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=\"C:\\Dokumenter\\fejl.xls
Application.DisplayAlerts = True
Avatar billede rvm Nybegynder
09. januar 2002 - 22:35 #3
Hej Morten_ha

Sådan opretter du en mappe:

Sub Opret()
    Dim fs, f
    Set fs = CreateObject(\"Scripting.FileSystemObject\")
    Set f = fs.CreateFolder(\"c:\\test1234\")
End sub

Overskrivning vender jeg tibage med.

Mvh

Richardt
Avatar billede rvm Nybegynder
09. januar 2002 - 22:37 #4
Nå - det behøver jeg ikke *S* Bare der dog var løbende opdatering :-)

Avatar billede bak Forsker
09. januar 2002 - 23:02 #5
Helt enig, Richardt, og jeg skal endda kalde op ind imellem :-)
Avatar billede morten_ha Nybegynder
10. januar 2002 - 20:48 #6
Tak Richardt og bak.

Det var lige hvad jeg havde brug for.
bak får 50 og Richardt 10 point.

Mvh
Morten
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
Se alle it-kurser fra Computerworld Kurser
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.
Se alle it-kurser

Flere spørgsmål fra Office & Kontorpakker kategorien

Titel Indlæg Oprettet Seneste aktivitet
Kan ikke resette PC med Windows 8.1 Af TTA i Office & Kontorpakker 12 24/04/202617:35 26/04/202612:13
Outlook classic "hænger" når jeg vil åbne vedhæftede filer Af torzen i Office & Kontorpakker 0 16/04/202622:13 -
OneDrive kan ikke tilgås Af Perba i Office & Kontorpakker 18 13/04/202616:33 30/04/202618:22
Office pakke LTSC vs Retail? Af Don G i Office & Kontorpakker 2 11/04/202608:32 13/04/202608:47
Outlook send/modtag manuelt Af pwn i Office & Kontorpakker 2 18/03/202623:30 19/03/202618:22
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 00:59 Mobilepay app virker ikke mere på Xiaomi Redmi Note 13 Pro Af henrixx i Apps til Android
I går 19:09 Download Win 11 - 25H2 Af ErikHg i Windows
30/0410:42 Access Import af csv fil - forkerte datatyper Af Henrik Berg Hansen i Andet software
29/0419:37 Hente CSV fil, indsætte CSV data i TABEL for JAVASCRIPT Af snestrup2000 i Programmeringsværktøjer
29/0412:23 Facebook Af hkv i Sociale medier
White papers
Flere white papers »