社区
VB
帖子详情
VB.net中Excel文件的保存问题!急!!
zw110110
2005-03-25 08:49:44
如何写代码使得Excel文件保存时在指定的文件夹路径下,并且显示当时的时间和日期!
...全文
207
10
打赏
收藏
微信扫一扫
点击复制链接
分享
下载分享明细
分享
举报
写回复
10 条
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
tl_pear
2005-03-25
Dim xlApp As Excel.Application
xlApp = CType(CreateObject("Excel.Application"), Excel.Application)
‘把EXCEL可见
xlApp.Visible = True
Dim wkbNew As Excel.Workbook
objWB = xlApp.Workbooks.Add
'在系统里不能响应excel里的关闭事件,所以要按你的要求保存文件的话,就只有在创建后执行保存功能,当你修改后,才会找到保存路径。
If SaveFileDialog1.ShowDialog() = DialogResult.Cancel Then
Exit Sub
Else
objWB.SaveAs(FileName:=SaveFileDialog1.FileName + Format(Now, "yyyy-MM-dd HH/mm/ss")+ ".xls" _
, FileFormat:=XlWindowState.xlNormal _
, Password:="" _
, WriteResPassword:="" _
, ReadOnlyRecommended:=False _
, CreateBackup:=False)
End If
打赏
举报
回复
赞
tl_pear
2005-03-25
Dim xlApp As Excel.Application
xlApp = CType(CreateObject("Excel.Application"), Excel.Application)
‘加上这句,就是把excel 可见,
xlapp.Visible = True
Dim wkbNew As Excel.Workbook
objWB = xlApp.Workbooks.Add
’按你的要求保存文件,是不能在关闭EXCEL时保存的。因为你在VB。NET里不能响应excel的关闭事件,只有在创建的时候按你的要求保存!
If SaveFileDialog1.ShowDialog() = DialogResult.Cancel Then
Exit Sub
Else
objWB.SaveAs(FileName:=SaveFileDialog1.FileName + Format(Now, "yyyy-MM-dd HH/mm/ss")+ ".xls" _
, FileFormat:=XlWindowState.xlNormal _
, Password:="" _
, WriteResPassword:="" _
, ReadOnlyRecommended:=False _
, CreateBackup:=False)
End If
打赏
举报
回复
赞
zzzjaychung
2005-03-25
那你就调用保存对话框好了。
再将你要保存的名字先定义好,加到保存文件名中。
打赏
举报
回复
赞
zw110110
2005-03-25
谢谢你!
我是要关闭文件时!出现的对话框为指定的路径,文件名能够显示时间日期!
你这样写文件都没打开就出来了保存文件对话框!
打赏
举报
回复
赞
tl_pear
2005-03-25
下面是我编译已经通过的!
Dim xlApp As Excel.Application
xlApp = CType(CreateObject("Excel.Application"), Excel.Application)
Dim wkbNew As Excel.Workbook
objWB = xlApp.Workbooks.Add
If SaveFileDialog1.ShowDialog() = DialogResult.Cancel Then
Exit Sub
Else
objWB.SaveAs(FileName:=SaveFileDialog1.FileName + Format(Now, "yyyy-MM-dd HH/mm/ss")+ ".xls" _
, FileFormat:=XlWindowState.xlNormal _
, Password:="" _
, WriteResPassword:="" _
, ReadOnlyRecommended:=False _
, CreateBackup:=False)
End If
打赏
举报
回复
赞
zw110110
2005-03-25
这样写不行!还是报错!
xlBook 已进行过定义
打赏
举报
回复
赞
tl_pear
2005-03-25
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
xlApp = CType(CreateObject("Excel.Application"), Excel.Application)
’把xlBook = xlApp.ActiveWorkbook改为下面这一句,
xlBook = xlApp.Workbooks.Add
xlBook.SaveAs(xlApp.ActiveWorkbook, FolderPathData & DataFolderInError & FileHeaderInError & GetFileId() & ".xls")
Public Function GetFileId() As String
Dim s As System.DateTime
GetFileId = Format(s.Date, "yymmdd") & "-" & Format(s.TimeOfDay, "HHMM")
End Function
打赏
举报
回复
赞
zw110110
2005-03-25
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
xlApp = CType(CreateObject("Excel.Application"), Excel.Application)
xlBook = xlApp.ActiveWorkbook
xlBook.SaveAs(xlApp.ActiveWorkbook, FolderPathData & DataFolderInError & FileHeaderInError & GetFileId() & ".xls")
Public Function GetFileId() As String
Dim s As System.DateTime
GetFileId = Format(s.Date, "yymmdd") & "-" & Format(s.TimeOfDay, "HHMM")
End Function
能告诉我哪里错了吗?怎么样修改?
打赏
举报
回复
赞
hamadou
2005-03-25
你可以使用saveas的方法,也可以用一个模板excel(比如说这个模板里面写了表头和其他设置),将这个模板复制到指定的路径,然后打开这个复制的文件,多它进行写操作。
打赏
举报
回复
赞
farrio
2005-03-25
保存就是Excel.WorkBook.Save以及Excel.WorkBook.SaveAs。
SaveAs参数是目录。
打赏
举报
回复
赞
相关推荐
vb
.
net
编程读取
excel
文件
中
的
数据
使用
vb
.
net
语言编写
的
excel
文件
数据读取和
保存
,可以实现读取数据
的
显示,希望大家可以多学习交流下。
vb
.
net
操作
excel
文件
vb
.
net
操作
excel
文件
要求将数据显示在
Excel
表
中
,并且要设好数据格式。虽说如此,真正实现了自己
的
功能,还是费了不少时间。相信还是有很多与我相似
的
人需要实现这种功能。那就做个小结吧。不妥之处,请指正哦。 1
.
.
.
.
vb
.
net
教程 10-2
Excel
操作2
Excel
文件
的
保存
如果是一般
的
打开某个
Excel
文件
修改后
保存
到原
文件
或者新
的
文件
,在
Excel
.
Application
.
Quit() 前直接使用 Workbook
.
Save() 或 Workbook
.
SaveAs(
文件
名称) 就可以了。 但是对于要把数据(并非通过打开
Excel
文件
获得
.
.
.
win-acme 网站https 证书免费申请工具
用于windows网站申请免费版
的
https证书服务,3个月有效到期后再次手动申请即可续期无需任何费用,操作简单便捷
Typora_1
.
3
.
8免费,工具加教程
Typora_1
.
3
.
8
.
免费,工具加教程,超级简单,轻松让你
的
Typora免费试用,记得点赞加好评哦~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
发帖
VB
微信扫一扫
点击复制链接
分享社区
下载分享明细
1.6w+
社区成员
11.0w+
社区内容
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
加入社区
帖子事件
创建了帖子
2005-03-25 08:49
社区公告
暂无公告