diff options
Diffstat (limited to 'wizards/source/access2base/DoCmd.xba')
-rw-r--r-- | wizards/source/access2base/DoCmd.xba | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/wizards/source/access2base/DoCmd.xba b/wizards/source/access2base/DoCmd.xba index d4f5706d51d2..ff3d5ae6b01c 100644 --- a/wizards/source/access2base/DoCmd.xba +++ b/wizards/source/access2base/DoCmd.xba @@ -1212,9 +1212,11 @@ Public Function OutputTo(ByVal pvObjectType As Variant _ , ByVal Optional pvEncoding As Variant _ , ByVal Optional pvQuality As Variant _ ) As Boolean +REM https://wiki.openoffice.org/wiki/Framework/Article/Filter/FilterList_OOo_3_0 REM https://wiki.openoffice.org/wiki/Documentation/DevGuide/Spreadsheets/Filter_Options +REM https://msdn.microsoft.com/en-us/library/ms709353%28v=vs.85%29.aspx 'Supported: acFormatPDF, acFormatODT, acFormatDOC, acFormatHTML for forms -' acFormatHTML, acFormatXLS, acFormatODS, acFormatTXT for tables and queries +' acFormatHTML, acFormatODS, acFormatXLS, acFormatXLSX, acFormatTXT for tables and queries If _ErrorHandler() Then On Local Error Goto Error_Function Const cstThisSub = "OutputTo" @@ -1230,8 +1232,8 @@ Const cstThisSub = "OutputTo" If pvOutputFormat <> "" Then If Not Utils._CheckArgument(UCase(pvOutputFormat), 3, vbString, Array( _ UCase(acFormatPDF), UCase(acFormatODT), UCase(acFormatDOC), UCase(acFormatHTML) _ - , UCase(acFormatXLS), UCase(acFormatODS), UCase(acFormatTXT) _ - , "PDF", "ODT", "DOC", "HTML", "XLS", "ODS", "TXT", "CSV", "" _ + , UCase(acFormatODS), UCase(acFormatXLS), UCase(acFormatXLSX), UCase(acFormatTXT) _ + , "PDF", "ODT", "DOC", "HTML", "ODS", "XLS", "XLSX", "TXT", "CSV", "" _ )) Then Goto Exit_Function ' A 2nd time to allow case unsensitivity End If If IsMissing(pvOutputFile) Then pvOutputFile = "" |