Как добавить несколько листов в книгу Excel и сохранить ее (бесконечная загрузка)

Question

Я хочу добавить несколько пустых листов в существующую книгу, язык VB.net и код запускается на локальном сервере

Полный код:

Dim objApp As Excel.Application
Dim objBook As Excel._Workbook
Dim objBooks As Excel.Workbooks

objApp = New Excel.Application()
objApp.Visible = True
objBooks = objApp.Workbooks
objBook = objApp.Workbooks.Open(MyPath)
For i As Integer = 1 To 10
    objBook.Sheets.Add()
Next

objBook.Save()
objBook.Close()
objApp.Quit()

Когдакод выполнен, файл xls сохранен, но листы не добавлены.И у меня бесконечная загрузка с моим localhost Спасибо за вашу помощь.

Answer 1

Ваш код работает нормально .....

Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1
    Dim objApp As Excel.Application
    Dim objBook As Excel._Workbook
    Dim objBooks As Excel.Workbooks
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        objApp = New Excel.Application()
        objApp.Visible = True
        objBooks = objApp.Workbooks
        objBook = objApp.Workbooks.Open("\\PC1\1.xlsx")
        For i As Integer = 1 To 10
            objBook.Sheets.Add()
        Next
        objBook.Save()
        objBook.Close()
        objApp.Quit()
    End Sub
End Class

Просто создайте исполняемый файл и затем запустите его в режиме Запуск от имени администратора. Нажмите правую кнопку мыши на программе и выберите Запуск от имени администратора * 1004.*