त्रुटि प्राप्त करें कृपया मेरी मदद करें सर्वर ने एक अपवाद फेंक दिया। (HRESULT से अपवाद: 0x80010105 (RPC_E_SERVERFAULT))

[ad_1]

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

जब मेरा प्रोजेक्ट चलता है तो यह त्रुटि आती है कृपया समस्या को हल करने में मेरी सहायता करें

मैंने क्या प्रयास किया है:

  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

समाधान 1

ईमानदारी से कहूँ तो, हम उस छोटी सी जानकारी में आपकी मदद नहीं कर सकते हैं, और संभवतः आपको “पूर्ण समाधान” बिल्कुल भी नहीं दे सकते हैं – केवल इसलिए क्योंकि जब आपका कोड चल रहा हो तो हमारे पास आपके सिस्टम पर आपकी स्प्रैडशीट तक पहुँचने का कोई तरीका नहीं है, और समस्या का निदान शुरू करने के लिए आपको इसकी आवश्यकता है।

तो, यह आप पर निर्भर करेगा।
सौभाग्य से, आपके पास एक उपकरण उपलब्ध है जो आपको यह पता लगाने में मदद करेगा कि क्या हो रहा है: डिबगर। यदि आप नहीं जानते कि इसका उपयोग कैसे करना है तो “विज़ुअल स्टूडियो डिबगर” के लिए एक त्वरित Google आपको आवश्यक जानकारी देगा।

फ़ंक्शन में पहली पंक्ति पर ब्रेकपॉइंट लगाएं, और डीबगर के माध्यम से अपना कोड चलाएं। फिर अपने कोड और अपने डेटा को देखें और पता लगाएं कि मैन्युअल रूप से क्या होना चाहिए। फिर एक चरण में प्रत्येक पंक्ति की जाँच करें कि आपने जो होने की उम्मीद की थी वही हुआ। जब ऐसा नहीं होता है, तब आपको कोई समस्या होती है, और आप इसका कारण जानने के लिए बैक-ट्रैक कर सकते हैं (या इसे फिर से चला सकते हैं और अधिक बारीकी से देख सकते हैं)।

जब आप जानते हैं कि कौन सी लाइन अपवाद का कारण बनती है, तो आप उस डेटा को देख सकते हैं जो आपने उसे दिया था, और यह क्या कर रहा है (आपको संभवतः अपने ऐप को फेलिंग लाइन पर ब्रेकपॉइंट सेट के साथ फिर से चलाने की आवश्यकता होगी)। डेटा से आपको समस्या का सुराग मिलना चाहिए.

क्षमा करें, लेकिन हम आपके लिए ऐसा नहीं कर सकते – यह आपके लिए एक नया (और बहुत, बहुत उपयोगी) कौशल सीखने का समय है: डिबगिंग!

[ad_2]

コメント

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