• 主页
  • VBS
  • .NET技术
  • VBA
  • VB网络编程
  • VB多媒体
  • VB数据库
  • VB控件
  • VB COM/DCOM
  • VB基础类
  • VB API

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

zw110110 2005-03-25 08:49:44
如何写代码使得Excel文件保存时在指定的文件夹路径下,并且显示当时的时间和日期!
...全文
125 点赞 收藏 10
写回复
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参数是目录。
 回复 点赞
发动态
发帖子
VB
创建于2007-09-28

1.1w+

社区成员

11.0w+

社区内容

VB技术相关讨论，主要为经典vb，即VB6.0
社区公告
暂无公告