VB.net Excel ExportAsFixedFormat failed Exception from HRESULT: 0x80010105 (RPC_E_SERVERFAULT))

Question

Я пытаюсь написать очень простое приложение VB.net, которое откроет файл excel и сохранит его как excel.

среда Я работаю над следующим образом:

• Окна 10
• Visual Studio 2016
• Офис 2016

Я успешно удалось открыть лист первенствовать и сохранить в другое место. Однако при попытке открыть Excel и сохранить в формате pdf я получаю следующее сообщение об ошибке

Сервер исключил исключение. (Исключение из HRESULT: 0x80010105 (RPC_E_SERVERFAULT))

Глядя в детали ошибки, я вижу следующее:

System.Runtime.InteropServices.COMException { "Сервер бросил . исключение (исключение из HRESULT: 0x80010105 (RPC_E_SERVERFAULT)) "} код

ошибка: -2147417851

код, я использую, чтобы сделать это следующим образом:

Dim xlApp As New Excel.Application 
    Dim xlWorkBook As Excel.Workbook 
    Dim xlWorkSheet As Excel.Worksheet 
    xlApp.Visible = False 
    xlApp.AlertBeforeOverwriting = False 

    Dim sheetname As String = "d:\test\test.xlsx" 

    xlWorkBook = xlApp.Workbooks.Open(sheetname) 


    xlWorkBook.Activate() 
    xlWorkSheet = xlWorkBook.Sheets("Sheet1") 
    xlWorkSheet.Activate() 
    xlApp.DisplayAlerts = False 
xlWorkSheet.ExportAsFixedFormat(Type:=Excel.XlFixedFormatType.xlTypePDF, Filename:= 
    "d:\test\test.pdf", Quality:=Excel.XlFixedFormatQuality.xlQualityStandard _ 
    , IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:= 
    False) 





    xlWorkBook.Close(SaveChanges:=False) 
    xlApp.Quit() 
    System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp) : xlApp = Nothing 
    System.Runtime.InteropServices.Marshal.ReleaseComObject(xlWorkBook) : xlWorkBook = Nothing 
    System.Runtime.InteropServices.Marshal.ReleaseComObject(xlWorkSheet) : xlWorkSheet = Nothing 

Помощь!

вопрос, кажется, возникает из-за лист Excel, имеющее формулы, копирование и вставка содержимого в новый лист (вставить специальные значения и форматирование чисел только) и выполнение кода выше работает

Answer 1

Право! Спасибо всем, кто пытался помочь. Читая ваши ответы, я продолжал пробовать, пока не выяснил проблему.

Похоже, что ExportAsFixedFormat не любит листы Excel с формулами. Чтобы обойти эту проблему, я просто создал новый пустой лист и скопировал и вставлял (только значения) содержимое из моего основного листа в него. Кажется, это работает отлично. Затем я автоматизировал это в своем коде следующим образом:

Dim xlworksheet_static As Excel.Worksheet = xlWorkBook.Worksheets(2) 
    xlWorkSheet.Range("A1", "H35").Copy() 
    xlworksheet_static.Activate() 
    xlworksheet_static.Range("A1", "H35").Select() 
    xlworksheet_static.PasteSpecial(Excel.XlPasteType.xlPasteValuesAndNumberFormats) 

    xlworksheet_static.ExportAsFixedFormat(Type:=Excel.XlFixedFormatType.xlTypePDF, Filename:= 
    "d:\test\test.pdf", Quality:=Excel.XlFixedFormatQuality.xlQualityStandard _ 
    , IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:= 
    False) 

Возможно, не самый прямой путь, но я не мог заставить его работать иначе!

Answer 2

Сохранить это как. PDF-файл:

xlWorkSheet.ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, "d:\test\test.pdf")