Dapatkan kesalahan tolong bantu saya, server memberikan pengecualian. (Pengecualian dari HRESULT: 0x80010105 (RPC_E_SERVERFAULT))

pemrograman

[ad_1]

The server threw an exception. (Exception from HRESULT: 0x80010105 (RPC_E_SERVERFAULT))

ketika menjalankan proyek saya mendapatkan kesalahan ini tolong bantu saya memecahkan masalah

Apa yang saya coba:

  1  Private Function GetXlUsedRange(ByVal filePath As String) As Object(,)
  2          Dim xlApp As Excel.Application
  3          Dim xlWorkbooks As Excel.Workbooks
  4          Dim xlWorkbook As Excel.Workbook
  5          Dim xlSheets As Excel.Sheets
  6          Dim xlWorkSheet As Excel.Worksheet
  7          Dim xlRange As Excel.Range
  8  
  9  
 10          xlApp = New Excel.Application
 11          xlWorkbooks = xlApp.Workbooks
 12          xlWorkbook = xlWorkbooks.Open(filePath)
 13          xlSheets = xlWorkbook.Worksheets
 14          xlWorkSheet = CType(xlSheets("Data"), Excel.Worksheet)
 15          xlRange = xlWorkSheet.UsedRange
 16  
 17          Dim rangeValues(,) As Object
 18          rangeValues = CType(xlRange.Value, Object(,))
 19  
 20  
 21          xlWorkbook.Close()
 22          xlWorkbooks.Close()
 23          xlApp.Quit()
 24  
 25          releaseObject(xlRange)
 26          releaseObject(xlWorkSheet)
 27          releaseObject(xlSheets)
 28          releaseObject(xlWorkbook)
 29          releaseObject(xlWorkbooks)
 30          releaseObject(xlApp)
 31  
 32          Return rangeValues
 33      End Function
 34  
 35      Private Sub releaseObject(ByVal obj As Object)
 36          Try
 37              System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
 38              obj = Nothing
 39          Catch ex As Exception
 40              obj = Nothing
 41          End Try
 42      End Sub
 43  
 44      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 45          Dim usedRange(,) As Object = GetXlUsedRange("C:\Users\Jayanta Modak\Desktop\import.xls")
 46  
 47          Dim fromRow As Integer = 7
 48          PopulateListView(usedRange, fromRow)
 49      End Sub

Solusi 1

Sejujurnya, kami tidak dapat membantu Anda dengan sedikit informasi tersebut, dan mungkin tidak dapat memberi Anda “solusi lengkap” sama sekali – hanya karena kami tidak memiliki cara untuk mengakses spreadsheet di sistem Anda saat kode Anda sedang berjalan, dan Anda memerlukannya untuk mulai mendiagnosis masalahnya.

Jadi, itu terserah Anda.
Untungnya, Anda memiliki alat yang dapat membantu Anda mengetahui apa yang sedang terjadi: debugger. Jika Anda tidak tahu cara menggunakannya maka Google cepat untuk “Visual Studio debugger” akan memberi Anda info yang Anda butuhkan.

Letakkan breakpoint pada baris pertama fungsi, dan jalankan kode Anda melalui debugger. Kemudian lihat kode Anda, dan data Anda, lalu cari tahu apa yang harus terjadi secara manual. Kemudian satu langkah setiap baris untuk memeriksa apakah apa yang Anda harapkan terjadi adalah apa yang terjadi. Jika tidak, saat itulah Anda mempunyai masalah, dan Anda dapat menelusuri kembali (atau menjalankannya lagi dan melihat lebih dekat) untuk mencari tahu alasannya.

Ketika Anda mengetahui baris mana yang menyebabkan pengecualian, Anda dapat melihat data yang Anda teruskan ke baris tersebut, dan apa yang dilakukannya (Anda mungkin perlu menjalankan kembali aplikasi Anda dengan set breakpoint pada baris yang gagal). Data tersebut akan memberi Anda petunjuk tentang masalahnya.

Maaf, kami tidak dapat melakukannya untuk Anda – saatnya Anda mempelajari keterampilan baru (dan sangat, sangat berguna): debugging!

[ad_2]

コメント

タイトルとURLをコピーしました