VB.net中Excel文件的保存问题!急!!

zw110110 2005-03-25 08:49:44
如何写代码使得Excel文件保存时在指定的文件夹路径下,并且显示当时的时间和日期!
...全文
338 10 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
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参数是目录。

16,721

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧