asp vb保存excel文件的特殊path
引用此链接从VB.Net创buildExcel应用程序
我想保存我的excel文件到这个path：
C:\Users\asdfme\Documents 与文件名格式[PROJ_DATE].xls例如：PROJ_20140703.xls这里是我的代码：
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Call temporaryValue() Dim appXL As Excel.Application Dim wbXl As Excel.Workbook Dim shXL As Excel.Worksheet Dim raXL As Excel.Range Dim strPathExcel As String ' Start Excel and get Application object. appXL = CreateObject("Excel.Application") appXL.Visible = True ' Add a new workbook. wbXl = appXL.Workbooks.Add shXL = wbXl.ActiveSheet ' Add table headers going cell by cell. Dim heads() As String = {"", "MONo", "PostingDate", "DocDate", "SBU", "Operation", "Resource", "TimeType", "StartDate", "StartTime", "EndDate", "EndTime", "NoofResources", "Remarks", "Quantity", "Rejects"} For head1 As Integer = 1 To 15 shXL.Cells(1, head1).Value = heads(head1) Next Dim body() As String = {"", txtmo.Text, PostingDate, DocDate, SBU, Operation, Session("user"), (ddltype.SelectedValue).ToUpper, lblsDate.Text, lblsTime.Text, lbleDate.Text, lbleTime.Text, no_ofres, lblrem.Text, txtgoods.Text, txtrejects.Text} For body1 As Integer = 1 To 15 shXL.Cells(2, body1).Value = body(body1) Next appXL.Visible = True appXL.UserControl = True ' Release object references. wbXl.SaveAs(Filename:="C:\Users\asdfme\Documents\PROJ_20140703.xls") raXL = Nothing shXL = Nothing wbXl = Nothing appXL.Quit() appXL = Nothing Exit Sub Err_Handler: MsgBox(Err.Description, vbCritical, "Error: " & Err.Number) End Sub
当我运行这个代码时，
- 它只创build一个Excel文件，并问我是否要保存该文件。
- 我想要的是每当我运行这个，文件将保存与我声明的path中的文件名格式（上面写）。
请帮忙。 谢谢
Dim myXlsFileName As String = "PROJ_" & " " & Format(Now.Date, "yyyyddMM") & "" wbXl.SaveAs(Filename:="C:\Documents and Settings\All Users\Desktop\" & myXlsFileName & ".xls")