vb.net – 如何在不提示用户的情况下覆盖excel应用程序

发布时间：2020-12-17 07:19:20 所属栏目：百科来源：网络整理

导读：任何人都可以帮助我如何在不提示VB.Net中的用户的情况下覆盖excel文件. 我试过这段代码,但它不起作用.. Dim xlsApp As New Excel.ApplicationDim xlsBook As Excel.WorkbookDim xlsSheet As Excel.WorksheetDim dir As String = Application.StartupPath "T

任何人都可以帮助我如何在不提示VB.Net中的用户的情况下覆盖excel文件.

我试过这段代码,但它不起作用..

Dim xlsApp As New Excel.Application
Dim xlsBook As Excel.Workbook
Dim xlsSheet As Excel.Worksheet
Dim dir As String = Application.StartupPath & "TemplateSampleTemplate.xls"
xlsBook = GetObject(dir)
xlsSheet = xlsBook.Sheets("Per BPA Error Report")


xlsSheet.Range("C2:T2").Merge()

xlsApp.DisplayAlerts = False
xlsSheet.SaveAs(Application.StartupPath & "TemplateSampleTemplate.xls")
xlsBook = Nothing
xlsSheet = Nothing
xlsApp.Quit()

解决方法

Public Sub WriteExcelFile(ByVal ExcelFilePath As String) 
    Dim excel As Application = New Application
    Dim w As Workbook = excel.Workbooks.Open(ExcelFilePath)
    Dim sheet As Worksheet = w.Sheets(1)
    sheet.Cells(x + 1,1) = 10
    x = x + 1
    excel.DisplayAlerts = False
    w.Save()
    w.Close()
End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!