asp vb在特定路径中保存excel文件答案

【问题标题】：asp vb save excel file in particular pathasp vb在特定路径中保存excel文件
【发布时间】：2014-07-03 09:02:40
【问题描述】：

参考此链接Creating an Excel Application from VB.Net

我想把我的excel文件保存到这个路径：

C:\Users\asdfme\Documents

文件名格式为[PROJ_DATE].xls example: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

当我运行这段代码时，

它只创建一个 excel 文件并询问我是否要保存该文件。
我想要的是每当我运行它时，该文件将以文件名格式（如上所示）保存在我声明的路径中。

请帮忙。谢谢

【问题讨论】：

很好，问题是？
我编辑我的问题。 :) 我想将文件直接保存到我的路径：C:\Users\asdfme\Documents 而不询问我是保存还是不保存文件。谢谢
wbXl.SaveAs(Filename:="C:\Users\asdfme\Documents\PROJ_20140703.xls")
我已经尝试过您的代码在我的环境中正常工作，尝试关闭您计算机中的所有excel 工作表并更改file location，我曾经将excel 文件保存到wbXl.SaveAs(Filename:="C:\Documents and Settings\All Users\Desktop\PROJ_20140703.xls")
让我直说。您的代码在服务器端的 ASP.NET 页面上运行，并且您想将此文件保存在客户端计算机上？如果是这种情况，您就不可能在实时托管服务器上使用该代码执行此操作。您的快递路径是相对于服务器机器的，而不是客户端的

标签： asp.net vb.net excel vbscript

【解决方案1】：

Dim myXlsFileName As String = "PROJ_" & " " & Format(Now.Date, "yyyyddMM") & ""
wbXl.SaveAs(Filename:="C:\Documents and Settings\All Users\Desktop\" & myXlsFileName & ".xls")

【讨论】：

感谢 hector，但我怎么知道文件是否已经存在？
If Not File.Exists("C:\Documents and Settings\All Users\Desktop\" & myXlsFileName & ".xls") Then 'create file End If
嗨赫克托，你帮了我很多，但我在再次保存文件时遇到了问题
谢谢hector ^_^我用文件名解决了^_^再次谢谢