vba 2007 ActiveWorkbook.SaveAs problem
在使用vba保存生成的excel文件后，然后在打开总是提示格式不对，不管提示，进入后格式时对的，数据也可以显示。
最后google之，原来在2003之后使用ActiveWorkbook.SaveAs时必须指定文件类型。
51
= xlOpenXMLWorkbook (without macro's in 2007, .xlsx)
52
= xlOpenXMLWorkbookMacroEnabled (with or without macro's in 2007, .xlsm)
50
= xlExcel12 (Excel Binary Workbook in 2007 with or without macro's, .xlsb)
56
= xlExcel8 (97-2003 format in Excel 2007, .xls)
http://blogs.office.com/b/microsoft-excel/archive/2009/07/07/use-the-vba-saveas-method-in-excel-2007.aspx
vba 2007 ActiveWorkbook.SaveAs problem在使用vba保存生成的excel文件后，然后在打开总是提示格式不对，不管提示，进入后格式时对的，数据也可以显示。最后google之，原来在2003之后使用ActiveWorkbook.SaveAs时必须指定文件类型。51 = xlOpenXMLWorkbook (without macro's in 2007,
VBA
保存excel文件到97格式的例子：
Active
Work
book
.SaveAs Filename:="C:\Users\Desktop\
Book
1.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Private Sub
Work
sheet_Activate()
On Error Resume Next
Dim x As Object, yy As Object, sql As String
Set x = CreateObject("ADODB.Connection")
x.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;hdr=no;';Data Source=" &
Active
Work
book
.FullName
sql = "select f6,f2,f3,f4,f5,f7,f13,f24 -f25 from [sheet1$] where f24 -f25<f17 and (f13'C3' or f13 is null)" ‘不等于字符串用 ‘C3’ 包含空值用 is null
Set yy = x.Execute(sql)
Range("a:h").ClearContents
Range("a1:h1") = Array("编号", "品名", "规格", "产地", "单位", "件装", "属性", "计划") ‘表头 另外赋值
[a2].CopyFromRecordset yy
Set yy = Nothing
Set x = Nothing
End Sub
2，用ADO Connection对象查询
Function 文件类型csv另存为xlsx()
'请记得先改一下路径，做好备份，最好不要另存为原路径
'
Active
Work
book
.SaveAs Filename:=Replace(
Active
Work
book
.Path, "新数据", "新数据-新") & "/" & Replace(
Active
Work
book
.name, "csv", "xlsx"), FileFormat:=xlOpenXML
Work
book
, CreateBackup:=False
Work
book
.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)
excel
vba
保存代码
Sub 保存工作簿()
This
Work
book
.Save '.save相当于按保存按钮；无参数
用JS把HTML网页上的表格另存为xls文件到指定位置
调用
work
book
.saveas("filename");时，如果filename只写文件名，如test.xls，文件可以保存，保存的地址为我的文档。
如果filename是绝对路径加文件名，如C:\test.xls，则添加失败。
错误原因：路径输入错误
错误代码：
work
book
.saveas
所以application里的
work
book
,
work
sheet range ,cell等应该是
VBA
语言的核心，最复杂内容了
本身
VBA
里的VB语言部分，其实和很多语言语法结构也差不多
每种语言的差别
一在语法差别上。但差异应该不会太大
另外一个就在每种语言的对象系统上，包括各种对象，数...
基于Qt+数据库SQLite开发的餐馆信息管理系统C++源码+使用说明+作业报告(数据库系统作业).zip
该餐馆信息管理系统使用的数据库为SQLite；
在另外一台电脑上运行时运行环境必须满足以下要求：
1.那台电脑必须要安装数据库SQLite
2.导入本人数据库脚本文件 data.db (推荐使用navicat)
3.根据你的电脑中data.db的存储位置，修改main.cpp和menusql.cpp里连接SQLite的地址
4.在data.db的user表中可以查看登录的账号密码。
注：可以使用 账号：1、密码：1 登录
以上步骤若没完成则会编译运行不了
运行后进入登录页面
程序效果以及更详细的内容可以看我的实验报告
该项目是个人毕设/课设/大作业项目，代码都经过本地调试测试，功能ok才上传，高分作品，可快速上手运行！欢迎下载使用，可用于小白学习、进阶。
该资源主要针对计算机、通信、人工智能、自动化等相关专业的学生、老师或从业者下载使用，亦可作为期末课程设计、课程大作业、毕业设计等。
项目整体具有较高的学习借鉴价值！基础能力强的可以在此基础上修改调整，以实现不同的功能。
欢迎下载使用，也欢迎交流学习！
基于springboot宠物猫认养系统 | java | springboot | 宠物猫认养系统代码 | 网站
1、技术栈：springboot，vue，ajax，maven，mysql，MyBatisPlus
2、系统的实现
摘 要 I
目 录 III
第1章 绪论 1
1.1选题动因 1
1.2背景与意义 1
第2章 相关技术介绍 3
2.1 MySQL数据库 3
2.2 Vue前端技术 3
2.3 B/S架构模式 4
2.4 ElementUI介绍 4
第3章 系统分析 5
3.1 可行性分析 5
3.1.1技术可行性 5
3.1.2经济可行性 5
3.1.3运行可行性 6
3.2 系统流程 6
3.2.1 操作信息流程 6
3.2.2 登录信息流程 6
3.2.3 删除信息流程 7
3.3 性能需求 7
第4章 系统设计 8
4.1系统整体结构 8
4.2系统功能设计 9
4.3数据库设计 9
第5章 系统的实现 20
5.1用户信息管理 20
5.2 图片素材管理 20
5.3视频素材管理 21
5.1公告信息管理 22
第6章 系统
