如何生存另格式

ddz79101

老师！有表，希望能生存另种格式，请老师看看。

tanglf188

SaveAs (FileName、 FileFormat、 Password、 WriteResPassword、 ReadOnlyRecommended、 CreateBackup、 AccessMode、 ConflictResolution、 AddToMru、 TextCodepage、 TextVisualLayout、 Local)

表达式 一个代表 Workbook 对象的 变量。

参数
名称                   必需/可选        数据类型                       说明
FileName                      可选         Variant             一个表示要保存文件的文件名的字符串。 可包含完整路径，
                        如果不指定路径，Microsoft Excel 将文件保存到当前文件夹中（.SaveAs Filename:=ThisWorkbook.Path & "\库存.xlsx"）。
FileFormat        可选        Variant           保存文件时使用的文件格式。 有关有效选项的列表，请参阅 XlFileFormat 枚举。 对于现有文件，
                        默认采用上一次指定的文件格式；对于新文件，默认采用当前所用 Excel 版本的格式。
Password        可选        Variant            它是一个区分大小写的字符串（最长不超过 15 个字符），用于指定文件的保护密码。
WriteResPassword        可选        Variant            一个表示文件写保护密码的字符串。 如果文件保存时带有密码，但打开文件时不输入密码，则该文件以只读方式打开。
ReadOnlyRecommended可选Variant           如果为 True ，则在打开文件时显示一条消息，提示该文件以只读方式打开。
CreateBackup        可选        Variant           如果为 True，则创建备份文件。
AccessMode        可选        XlSaveAsAccessMode        工作簿的访问模式。
ConflictResolution        可选        XlSaveConflictResolution        一个 XlSaveConflictResolution 值，用于确定该方法在保存工作簿时如何解决冲突。
                                                                             如果设为 xlUserResolution，则显示冲突解决对话框。
                                                     如果设为 xlLocalSessionChanges，则自动接受本地用户的更改。
                                                     如果设为 xlOtherSessionChanges，则自动接受来自其他会话的更改（而不是本地用户的更改）。
                                                                                   如果省略此参数，则显示冲突处理对话框。
AddToMru        可选        Variant        如果为 True，则将该工作簿添加到最近使用的文件列表中。 默认值为 False 。
TextCodepage        可选        Variant        对于 Microsoft Excel 中的所有语言均忽略。


XlFileFormat 枚举 (转载：https://learn.microsoft.com/zh-c ... /excel.xlfileformat)
名称                             值                         说明                                                        扩展名
xlAddIn                            18                    Microsoft Excel 97-2003 外接程序                *.xla
xlAddIn8                            18                    Microsoft Excel 97-2003 外接程序                *.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                    当前平台文本                                        *.txt
xlDBF2                               7                    Dbase 2 格式                                        *.dbf
xlDBF3                               8                    Dbase 3 格式                                        *.dbf
xlDBF4                              11                    Dbase 4 格式                                        *.dbf
xlDIF                                9                    数据交换格式                                        *.dif
xlExcel12                               50                    Excel 二进制工作簿                                        *.xlsb
xlExcel2                               16                    Excel 版本 2.0 (1987)                                        *.xls
xlExcel2FarEast                 27                    Excel 版本 2.0 中文 (1987)                        *.xls
xlExcel3                               29                    Excel 版本 3.0 (1990)                                        *.xls
xlExcel4                               33                    Excel 版本 4.0 (1992)                                        *.xls
xlExcel4Workbook                 35                    Excel 版本 4.0 工作簿格式 (1992)                *.xlw
xlExcel5                               39                    Excel 版本 5.0 (1994)                                        *.xls
xlExcel7                               39                    Excel 95（版本 7.0）                                        *.xls
xlExcel8                               56                    Excel 97-2003 工作簿                        *.xls
xlExcel9795                 43                    Excel 版本 95 和 97                                        *.xls
xlHtml                               44                    HTML 格式                                                        .htm；.html
xlIntlAddIn                 26                    国际外接程序                                        无文件扩展名
xlIntlMacro                 25                    国际宏                                                        无文件扩展名
xlOpenDocumentSpreadsheet  60     OpenDocument 电子表格                        *.ods
xlOpenXMLAddIn                 55                    Open XML 外接程序                                        *.xlam
xlOpenXMLStrictWorkbook        61        Strict Open XML 文件                        *.xlsx
xlOpenXMLTemplate       54                    Open XML 模板                                        *.xltx
xlOpenXMLTemplateMacroEnabled        53        启用 Open XML 模板宏                *.xltm
xlOpenXMLWorkbook     51                    Open XML 工作簿                                        *.xlsx
xlOpenXMLWorkbookMacroEnabled        52        启用 Open XML 工作簿宏               *.xlsm
xlSYLK                           2                    符号链接格式                                        *.slk
xlTemplate                17                    Excel 模板格式                                        *.xlt
xlTemplate8                17                    模板 8                                                     *.xlt
xlTextMac                19                    Macintosh 文本                                        *.txt
xlTextMSDOS                21                    MSDOS 文本                                        *.txt
xlTextPrinter                36                    打印机文本                                                        *.prn
xlTextWindows                20                    Windows 文本                                        *.txt
xlUnicodeText                42                    Unicode 文本                                        无文件扩展名；*.txt
xlWebArchive                45                    Web 档案                                                        .mh；.mhtml
xlWJ2WD1                14                    日语 1-2-3                                                        *.wj2
xlWJ3                              40                    日语 1-2-3                                                        *.wj3
xlWJ3FJ3                              41                    日语 1-2-3 格式                                        *.wj3
xlWK1                                5                    Lotus 1-2-3 格式                                        *.wk1
xlWK1ALL                31                    Lotus 1-2-3 格式                                        *.wk1
xlWK1FMT                30                    Lotus 1-2-3 格式                                        *.wk1
xlWK3                              15                    Lotus 1-2-3 格式                                        *.wk3
xlWK3FM3                32                    Lotus 1-2-3 格式                                        *.wk3
xlWK4                              38                    Lotus 1-2-3 格式                                        *.wk4
xlWKS                                4                    Lotus 1-2-3 格式                                        *.wks
xlWorkbookDefault        51                    默认工作簿                                                        *.xlsx
xlWorkbookNormal   -4143                    常规工作簿                                                        *.xls
xlWorks2FarEast                 28                    Microsoft Works 2.0 两端对齐格式                 *.wks
xlWQ1                               34                    Quattro Pro 格式                                        *.wq1
xlXMLSpreadsheet                 46             XML 电子表格                                        *.xml

例：.SaveAs Filename:="D:\库存.xls", FileFormat:=56
另存文件的扩展名必须与FileFormat值匹配。

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub 工作簿另存()  '//2024.3.21
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     p = ThisWorkbook.Path & ""
   
5.     fn = Split(ThisWorkbook.Name, ".")(0)
   
6.     ThisWorkbook.SaveAs p & fn & ".xml", FileFormat:=xlXMLSpreadsheet
   
7.     Application.ScreenUpdating = True
   
8.     Application.DisplayAlerts = True
   
9.     MsgBox "OK！"
   
10. End Sub
    

复制代码

ddz79101

ykcbf1100 发表于 2024-3-21 15:49
附件供参考。。。

谢谢老师！打不开！有时打开里面是乱码

ddz79101

tanglf188 发表于 2024-3-21 15:39
SaveAs (FileName、 FileFormat、 Password、 WriteResPassword、 ReadOnlyRecommended、 CreateBackup、 A ...

谢谢老师！看不懂！是否发错了

ddz79101

有老师帮忙看看吗

闻启学

亲  想另存为什么格式  二楼已经给了提示

ykcbf1100

ddz79101 发表于 2024-3-21 16:41
谢谢老师！打不开！有时打开里面是乱码

改一下，你再试试，我这里能正常打开。

ddz79101

ykcbf1100 发表于 2024-3-21 21:29
改一下，你再试试，我这里能正常打开。

谢谢老师！我想生成的是如我列中的式样