Søg
Avatar billede hnto Nybegynder
31. juli 2003 - 15:18 Der er 5 kommentarer og
1 løsning

access 97 VBA export

jeg har lavet nedenstående script, men jeg ville gerne at min outputfil kom til at hedde jto_now(), hvor now() er lig dags dato med tid

Function eksporter_til_excel()
Dim a
a = Now()
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "Ny_Master_korrekt_sorteret_JTO_tryk", "\\dkedbs02\ssp_billeder$\jto\data\jto_'& a'.xls", True
MsgBox "jeg er nu færdig med denne opgave... ;-)"
End Function

hvad er det jeg gør galt ?
Avatar billede terry Ekspert
31. juli 2003 - 15:29 #1
well you dont give any indication as to what problem you are having but guessing

Function eksporter_til_excel()
Dim a
a = Now()
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "Ny_Master_korrekt_sorteret_JTO_tryk", "\\dkedbs02\ssp_billeder$\jto\data\jto_" & a & ".xls", True
MsgBox "jeg er nu færdig med denne opgave... ;-)"
End Function
Avatar billede hnto Nybegynder
31. juli 2003 - 15:39 #2
dit script kan ikke 'create file'

det den gør i mit script er at den gemmer filen som :
jto_'& a'.xls istedet for jto_31-07-03-1640
Avatar billede terry Ekspert
31. juli 2003 - 15:52 #3
hnto>Dont reject the answer until you close the question that way I only need to place a comment!
Try testing on a simple version of the filename.

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "Ny_Master_korrekt_sorteret_JTO_tryk", "C:\jto_" & now() & ".xls", True
Avatar billede terry Ekspert
31. juli 2003 - 15:53 #4
I have NO idea if the path exists but I am sure (99%) that "C:\jto_" & now() & ".xls" should work
Avatar billede hnto Nybegynder
31. juli 2003 - 15:55 #5
Terry :
stadig runtime error 3436
faliure creating file
Avatar billede hnto Nybegynder
31. juli 2003 - 15:58 #6
har løst det selv..

Man kan ikke gemme en fil der hedder noget med tiden... kun dato

derfor har jeg bare ændret min a= now() til a=date

så virkede det.
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
Access kurser
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser
Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel Indlæg Oprettet Seneste aktivitet
en word dotx fil stilles om til at blive gemt i skyen Af per2edb i Access 9 16/04/202620:11 21/04/202615:43
AI integreret i Access Af per2edb i Access 3 06/04/202610:42 06/04/202612:58
Autonummerering Af hlnviv i Access 2 06/03/202606:24 06/03/202607:48
stigende sortering på et Link felt Af hlnviv i Access 6 03/03/202613:18 04/03/202608:09
Access database udskriver ikke rammer korrekt Af Uvanga i Access 8 18/11/202500:24 18/11/202510:25
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 går 13:35 Bruger på Win11 Af lurup i Browsere
07/1022:52 Google beskeder har/havde en bug, så den sendte tilfældige gamle beskeder gemt indeni nye beskeder efter skifte til ny Samsungtelefon via Samsung Smart Switch Af KennethLykke i Apps til Android
05/1010:31 Min IPAD vil ikke oplade. Af Nørdnot i Mac
04/1018:04 Findes der et "Papir-kurv" symbol, man kan sætte på Firefox og Google Chrome ? (For oven) Af Ikke-ekspert i Browsere
03/1012:14 Ang udskrift Canon mb5050 Af made18 i Printere
White papers
Flere white papers »