本文由日文译成中文。
这是在 Excel VBA 中保存文件时更改默认文件格式的记录。
保存文件时，“另存为 ”有特定的文件类型。
通常是“.xlsx”（Excel 书）。
要手动设置默认文件类型，请转到文件 > 额外功能 > 选项 > 保存 > 文件保存格式。
由 VBA 设置。
使用 “DefaultSaveFormat”属性获取和设置默认文件类型。
< Sponsored Links >
句法 “DefaultSaveFormat”
ApplicationObjedt.DefaultSaveFormat = XlFileFormat
获取或设置保存文件的默认格式。
【XlFileFormat】
| 名前 | 値 | 説明 | 拡張子 | |
|---|---|---|---|---|
| xlAddIn | 18 | Microsoft Excel 97-2003 Add-In | *.xla | |
| xlAddIn8 | 18 | Microsoft Excel 97-2003 Add-In | *.xla | |
| xlCSV | 6 | CSV | *.csv | |
| xlCSVMac | 22 | Macintosh CSV | *.csv | |
| xlCSVMSDOS | 24 | MSDOS CSV | *.csv | |
| xlCSVUTF8 | 62 | UTF8 CSV | *.csv | |
| xlCSVWindows | 23 | Windows CSV | *.csv | |
| xlCurrentPlatformText | -4158 | Current platform text | *.txt | |
| xlDBF2 | 7 | Dbase 2 form | *.dbf | |
| xlDBF3 | 8 | Dbase 3 form | *.dbf | |
| xlDBF4 | 11 | Dbase 4 form | *.dbf | |
| xlDIF | 9 | DIF file | *.dif | |
| xlExcel12 | 50 | Excel Binary Book | *.xlsb | |
| xlExcel2 | 16 | Excel version 2.0 (1987) | *.xls | |
| xlExcel2FarEast | 27 | Excel version 2.0 far east (1987) | *.xls | |
| xlExcel3 | 29 | Excel version 3.0 (1990) | *.xls | |
| xlExcel4 | 33 | Excel version 4.0 (1992) | *.xls | |
| xlExcel4Workbook | 35 | Excel version 4.0 Book Format (1992) | *.xlw | |
| xlExcel5 | 39 | Excel version 5.0 (1994) | *.xls | |
| xlExcel7 | 39 | Excel 95 (version 7.0) | *.xls | |
| xlExcel8 | 56 | Excel 97-2003 book | *.xls | |
| xlExcel9795 | 43 | Excel version 95 and version 97 | *.xls | |
| xlHtml | 44 | HTML form | .htm。.html | |
| xlIntlAddIn | 26 | International Add-In | without file extension | |
| xlIntlMacro | 25 | International Macro | without file extension | |
| xlOpenDocumentSpreadsheet | 60 | OpenDocument spreadsheet | *.ods | |
| xlOpenXMLAddIn | 55 | XML Open add-ins | *.xlam | |
| xlOpenXMLStrictWorkbook | 61 (&H3D) | XML Open files strictly | *.xlsx | |
| xlOpenXMLTemplate | 54 | XML Open template | *.xltx | |
| xlOpenXMLTemplateMacroEnabled | 53 | Open XML template with macros enabled | *.xltm | |
| xlOpenXMLWorkbook | 51 | XML Open a book | *.xlsx | |
| xlOpenXMLWorkbookMacroEnabled | 52 | Open an XML book with macros enabled | *.xlsm | |
| xlSYLK | 2 | Symbolic link format | *.slk | |
| xlTemplate | 17 | Excel template format | *.xlt | |
| xlTemplate8 | 17 | template 8 | *.xlt | |
| xlTextMac | 19 | Macintosh text | *.txt | |
| xlTextMSDOS | 21 | MSDOS text | *.txt | |
| xlTextPrinter | 36 | printer text | *.prn | |
| xlTextWindows | 20 | Windows text | *.txt | |
| xlUnicodeText | 42 | Unicode text | without file extension *.txt | |
| xlWebArchive | 45 | Web archive | .mht。.mhtml | |
| xlWJ2WD1 | 14 | Japanese 1-2-3 | *.wj2 | |
| xlWJ3 | 40 | Japanese 1-2-3 | *.wj3 | |
| xlWJ3FJ3 | 41 | Japanese 1-2-3 form | *.wj3 | |
| xlWK1 | 5 | Lotus 1-2-3 form | *.wk1 | |
| xlWK1ALL | 31 | Lotus 1-2-3 form | *.wk1 | |
| xlWK1FMT | 30 | Lotus 1-2-3 form | *.wk1 | |
| xlWK3 | 15 | Lotus 1-2-3 form | WK3 | |
| xlWK3FM3 | 32 | Lotus 1-2-3 form | WK3 | |
| xlWK4 | 38 | Lotus 1-2-3 form | *.wk4 | |
| xlWKS | 4 | Lotus 1-2-3 form | *.wks | |
| xlWorkbookDefault | 51 | Book Default | *.xlsx | |
| xlWorkbookNormal | -4143 | Book Standards | *.xls | |
| xlWorks2FarEast | 28 | Microsoft Works 2.0 far east form | *.wks | |
| xlWQ1 | 34 | Quattro Pro form | *.wq1 | |
| xlXMLSpreadsheet | 46 | XML spreadsheet | *.xml |
默认文件类型设置示例
获取默认文件类型
读取默认文件格式并在信息中显示。
Sub test()
MsgBox Application.DefaultSaveFormat
End Sub
xlWorkbookDefault (*.xlsx) 已设置。
设置默认文件类型
将字符编码设置为 UTF-8 csv 格式。
Sub test()
Application.DefaultSaveFormat = xlCSVUTF8
End Sub
我检查了该选项，它被更改了。
< Sponsored Links >