निम्नलिखित VB.net का उपयोग करके SSIS स्क्रिप्ट कार्य के अंदर है
मैंने इस त्रुटि में थोड़ा पढ़ा है, और ऐसा लगता है कि इस लाइन में कुछ गड़बड़ है: वर्कशीट = CType (वर्कबुक.शीट (4), Excel.Worksheet)
मेरा कोड नीचे है। मुझे लगता है कि यहां अधिक अनुभवी लोगों के लिए यह सरल होगा।
पाठ:
Public Sub Main()
Dim excel As New Excel.Application
Dim filename As String = "S:UKClientsDirectxxxxxxx.xls"
excel.Visible = True
excel.DisplayAlerts = False
Dim workbook As Excel.Workbook
workbook = excel.Workbooks.Open(filename, , False) "True = ReadOnly
Dim worksheet As Excel.Worksheet
worksheet = CType(workbook.Sheets(4), Excel.Worksheet)
worksheet.Rows(1).delete()
Dts.TaskResult = ScriptResults.Success
End Sub
उत्तर:
जवाब के लिए 2 № 1जोड़ना Option Strict Off
आपके कोड के शीर्ष पर, यह देर से बाध्यकारी होने की अनुमति देगा।
प्रारंभिक बनाम लेट बाइंडिंग जानने के लिए देखें यहाँ
आप इस कथन को प्रतिस्थापित कर सकते हैं
worksheet.Rows(1).delete()
साथ में
Dim rw As Excel.Range
rw = CType(worksheet.Rows(1), Excel.Range)
rw.Delete()
और सबसे ऊपर Option Strict On सेट करें
आपका सभी कोड जल्दी बाध्य हो जाएगा। उम्मीद है की यह मदद करेगा