VBA另存工作薄

yjwdjfqb · 发表于 2024-3-18 09:56

VBA另存工作薄问题
1.VBA另存在工作薄时，不弹出如下提示框，直接保存为，无宏的工作薄
无标题.jpg

2.如，另存路径下，存在，该文件，也直接替换，不弹出提示
3.另存后，打开这个文件
请老师们帮修改下，谢谢老师们了！！！

Sub SaveAsWithFolderAndDate0()
Dim FolderPath As String
FolderPath = "D:\"
Dim FileName As String

FileName = "报表" & ".xlsx"
ActiveWorkbook.SaveAs FileName:=FolderPath & FileName, FileFormat:=xlOpenXMLWorkbook
End Sub

VBA另存工作薄.rar (8.75 KB, 下载次数: 3)

tanglf188 · 发表于 2024-3-18 10:00

本帖最后由 tanglf188 于 2024-3-18 10:02 编辑

Application.DisplayAlerts = False

ykcbf1100 · 发表于 2024-3-18 10:00

小改一下即可。

yjwdjfqb · 发表于 2024-3-18 10:14

ykcbf1100 发表于 2024-3-18 10:00
小改一下即可。

非常好用，谢谢老师了！

yjwdjfqb · 发表于 2024-3-18 11:02

ykcbf1100 发表于 2024-3-18 10:00
小改一下即可。

老师你好，如果另存为
启动宏的工作薄参数是什么
谢谢老师了！

tanglf188 · 发表于 2024-3-18 11:15

yjwdjfqb 发表于 2024-3-18 11:02
老师你好，如果另存为
启动宏的工作薄参数是什么
谢谢老师了！

名称                      值                   说明                                                 扩展名
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

tanglf188 · 发表于 2024-3-18 11:18

yjwdjfqb · 发表于 2024-3-18 11:27

tanglf188 发表于 2024-3-18 11:18

谢谢老师！！！

ykcbf1100 · 发表于 2024-3-18 12:32

yjwdjfqb 发表于 2024-3-18 11:02
老师你好，如果另存为
启动宏的工作薄参数是什么
谢谢老师了！

直接这样改一下就行了。

yjwdjfqb · 发表于 2024-3-18 15:22

ykcbf1100 发表于 2024-3-18 12:32
直接这样改一下就行了。

谢谢老师了！！！

		自动登录	找回密码
密码			免费注册

[求助] VBA另存工作薄

评分

评分