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

[zw110110]

如何写代码使得Excel文件保存时在指定的文件夹路径下,并且显示当时的时间和日期!

[farrio]

保存就是Excel.WorkBook.Save以及Excel.WorkBook.SaveAs。
SaveAs参数是目录。

• 打赏
• 举报

回复 赞

[hamadou]

你可以使用saveas的方法，也可以用一个模板excel（比如说这个模板里面写了表头和其他设置），将这个模板复制到指定的路径，然后打开这个复制的文件，多它进行写操作。

• 打赏
• 举报

回复 赞

[zw110110]

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
能告诉我哪里错了吗?怎么样修改?

• 打赏
• 举报

回复 赞

[tl_pear]

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]

这样写不行!还是报错!
xlBook 已进行过定义

• 打赏
• 举报

回复 赞

[tl_pear]

下面是我编译已经通过的！
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]

谢谢你!
我是要关闭文件时!出现的对话框为指定的路径,文件名能够显示时间日期!
你这样写文件都没打开就出来了保存文件对话框!

• 打赏
• 举报

回复 赞

[zzzjaychung]

那你就调用保存对话框好了。
再将你要保存的名字先定义好，加到保存文件名中。

• 打赏
• 举报

回复 赞

[tl_pear]

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

• 打赏
• 举报

回复 赞

[tl_pear]

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

• 打赏
• 举报

回复 赞