بسم الله الرحمن الرحيم
حاولت اسوي برنامج عند الضغط ع الزر يقوم بفتح االاكسيل ووضع ناتج جمع اربع اعداد
لكن يتم فتح الاكسل عند الضغط على الزر ولكن المشكله انو مايسوي ورقة عمل جديده ورك بوك
هذا الكود ارجو الافادة
Public Class Form1
Private Sub btnautomateexcel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnautomateexcel.Click
Dim objExcel As New Excel.Application
objExcel.Visible = True
objExcel.Workbooks.Add() <<<<<<<<<<<<<<هنا المشكله والخطأ بعد تنفيذ لبرنامج تظهر الرساله اخر الصفحه كود الخطأ
objExcel.Range("A1").Select()
objExcel.ActiveCell.FormulaR1C1 = "75"
objExcel.Range("B1").Select()
objExcel.ActiveCell.FormulaR1C1 = "125"
objExcel.Range("C1").Select()
objExcel.ActiveCell.FormulaR1C1 = "255"
objExcel.Range("D1").Select()
objExcel.ActiveCell.FormulaR1C1 = "295"
objExcel.Range("A1:D1").Select()
objExcel.Range("E1").Activate()
objExcel.ActiveCell.FormulaR1C1 = "SUM(RC[-4]:RC[-1])"
objExcel.Range("A1:E1").Select()
objExcel.Selection.FONT.BOLD = True
objExcel = Nothing
End Sub
End Class
{"Old format or invalid type library. (Exception from HRESULT: 0x80028018 (TYPE_E_INVDATAREAD))"}
{System.Collections.ListDictionaryInternal}
