04-12-15, 12:25 AM
السلام عليكم ورحمة الله وبركاتة
زي مهوة واضح عاوز افتح ملف اكسيل موجود في Resources
واغير بعض خلايا بداخلة بس يجي عند مرحلة فتح الملف ويجيب خطأ ممكن حد يصلح الكود
الخطأ بيكون في السطر دة خبرتي قليلة في مجال الفيجول بيسك ارجو المساعدة وطبعا على خبرتي المنيلة مش عارف الباقي صح ولا
زي مهوة واضح عاوز افتح ملف اكسيل موجود في Resources
واغير بعض خلايا بداخلة بس يجي عند مرحلة فتح الملف ويجيب خطأ ممكن حد يصلح الكود
الخطأ بيكون في السطر دة خبرتي قليلة في مجال الفيجول بيسك ارجو المساعدة وطبعا على خبرتي المنيلة مش عارف الباقي صح ولا
PHP كود :
xlWorkBook = xlApp.xlWorkSheet.Open("MyProgram.Resources", System.Reflection.Assembly.LoadFile("test"))
PHP كود :
Imports Excel = Microsoft.Office.Interop.Excel
Public Class insertdataar1
Dim Myrs As New Resources.ResourceManager("MyProgram.Resources", System.Reflection.Assembly.GetExecutingAssembly)
Dim xlApp As New Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlWorkSheet As Excel.Worksheet
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click, Button1.Click
xlWorkBook = xlApp.xlWorkSheet.Open("MyProgram.Resources", System.Reflection.Assembly.LoadFile("test"))
xlApp.Visible = False
xlWorkSheet = xlWorkBook.Sheets("START")
With xlWorkSheet
.Range("A2").Value = T1.Text
.Range("A3").Value = T2.Text
.Range("A4").Value = T3.Text
.Range("D5").Value = T4.Text
.Range("K5").Value = T5.Text
End With
insertdataar2.Show()
Me.Hide()
End Sub