Onderstaande code gebruik ik zeker al 3 jaar en werkt uitstekend tot vandaag blijft hij hangen op de tranfer spreadsheet
Hij geeft de foutcode Fout 3001 tijdens uitvoering ongeldig argument
Al geprobeerd de tabel tussen [] te zetten, de bestandsnaam versimpelen (dis zonder datum en tijd enz. om te kijken of het daaraan ligt) acSpreadsheetTypeExcel12Xml
te vervangen door het cijfer 10
Ik weet echt niet nu wat er fout gaat bovendien heeft het 3 jaar gewerkt. Gewoon exporteren lukt wel via het menu maar de opzet is dat dit automitisch gebeurd bij bepaalde handelingen.
Hij geeft de foutcode Fout 3001 tijdens uitvoering ongeldig argument
Al geprobeerd de tabel tussen [] te zetten, de bestandsnaam versimpelen (dis zonder datum en tijd enz. om te kijken of het daaraan ligt) acSpreadsheetTypeExcel12Xml
te vervangen door het cijfer 10
Ik weet echt niet nu wat er fout gaat bovendien heeft het 3 jaar gewerkt. Gewoon exporteren lukt wel via het menu maar de opzet is dat dit automitisch gebeurd bij bepaalde handelingen.
HTML:
Dim Bestandsnaam As String
Dim Sysdate
Dim Systime
Sysdate = Format(Date, "yyyymmdd")
Systime = Format(Time, "hhmmss")
BestandsnaamMAT = "F:\Verwijderen\Backup Urenadministratie One drive\kluslijstMATERIAAL" + "-" + Sysdate + "-" + Systime + ".xlsx"
BestandsnaamUUR = "F:\Verwijderen\Backup Urenadministratie One drive\kluslijstUREN" + "-" + Sysdate + "-" + Systime + ".xlsx"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Tabel1_2", BestandsnaamMAT, True
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Tabel1_1", BestandsnaamUUR, True
DoCmd.Quit
Laatst bewerkt: