Попытка заставить работать базовое приложение для создания файлов VB.NET Excel, начиная с примера кода из здесь я получаю сообщение об ошибке с этим кодом:
Private Sub ButtonCreateExcelFile_Click( sender As Object, e As EventArgs) Handles ButtonCreateExcelFile.Click
Dim xlApp As New Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlWorkSheet As Excel.Worksheet
Dim misValue As Object = System.Reflection.Missing.Value
xlWorkBook = xlApp.Workbooks.Add(misValue)
xlWorkBook.Application.Visible = True
xlWorkBook.Application.ScreenUpdating = False
xlWorkSheet = xlWorkBook.Sheets("sheet1")
'xlWorkSheet.SaveAs("C:\vbexcel.xlsx")
xlWorkSheet.SaveAs("C:\\misc\\vbexcel.xls")
. . .
Я сначала попробовал это:
xlWorkSheet.SaveAs("C:\vbexcel.xlsx")
(не удалось избежать обратного удара), и это ("vbexcel.xlsx") было каким-то образом ошибочно принято за "52587100", как вы можете видеть здесь:
System.Runtime.InteropServices.COMException was unhandled
ErrorCode=-2146827284
HelpLink=C:\Program Files (x86)\Microsoft Office\Office12\1033\XLMAIN11.CHM
HResult=-2146827284
Message=Microsoft Office Excel cannot access the file 'C:\52587100'. There are several possible reasons:
• The file name or path does not exist.
• The file is being used by another program.
• The workbook you are trying to save has the same name as a currently open workbook.
Source=Microsoft Office Excel. . .
Добавляя подпапку к пути и escape-символы, например:
xlWorkSheet.SaveAs("C:\\misc\\vbexcel.xlsx")
... Я получил аналогичную ошибку, но на этот раз он просто говорит, что не может получить доступ к файлу (не заявляя, что имя файла называется «52587100»):
System.Runtime.InteropServices.COMException was unhandled
ErrorCode=-2146827284
HelpLink=C:\Program Files (x86)\Microsoft Office\Office12\1033\XLMAIN11.CHM
HResult=-2146827284
Message=The file could not be accessed. Try one of the following:
Что не так с этим кодом, который препятствует доступу к файлу?
