+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب تحويل كود vb6 الى كود vb 2012 (/showthread.php?tid=32263)
طلب تحويل كود vb6 الى كود vb 2012 - m.n.hakami - 27-11-19
الكود التالي يعمل معي في vb 6 لكن اريد ان اكتبه في vb 2012 ممكن احد يحوله لي
Dim xl As New Excel.Application
Dim xlw As Excel.Workbook
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Set xlw = xl.Workbooks.open(app.path & "\book1.xlsx")
xlw.sheets("sheet1").select()
TextBox1.Text = xlw.Application.cells(1, 1).value
TextBox2.Text = xlw.Application.cells(1, 2).value
TextBox3.Text = xlw.Application.cells(1, 3).value
xlw.close()
set xlw = Nothing
set xl = Nothing
End Sub
End Class
RE: طلب تحويل كود vb6 الى كود vb 2012 - asemshahen5 - 27-11-19
PHP كود :
'أضف مكتبة Microsoft.Office.Interop الى مكتبات البرنامج ثم اعمل لها امبورت'
Imports Microsoft.Office.Interop
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim xl As New Excel.Application
Dim xlw As Excel.Workbook
xlw = xl.Workbooks.Open(My.Application.Info.DirectoryPath & "\Test.xls")
xlw.Sheets("sheet1").select()
TextBox1.Text = xlw.Application.Cells(1, 1).value
TextBox2.Text = xlw.Application.Cells(1, 2).value
TextBox3.Text = xlw.Application.Cells(1, 3).value
xlw.Close()
xlw = Nothing
xl = Nothing
End Sub
End Class
RE: طلب تحويل كود vb6 الى كود vb 2012 - m.n.hakami - 27-11-19
(27-11-19, 10:42 AM)asemshahen5 كتب :شكرا شكرا شكرا لكPHP كود :
'أضف مكتبة Microsoft.Office.Interop الى مكتبات البرنامج ثم اعمل لها امبورت'
Imports Microsoft.Office.Interop
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim xl As New Excel.Application
Dim xlw As Excel.Workbook
xlw = xl.Workbooks.Open(My.Application.Info.DirectoryPath & "\Test.xls")
xlw.Sheets("sheet1").select()
TextBox1.Text = xlw.Application.Cells(1, 1).value
TextBox2.Text = xlw.Application.Cells(1, 2).value
TextBox3.Text = xlw.Application.Cells(1, 3).value
xlw.Close()
xlw = Nothing
xl = Nothing
End Sub
End Class
اخي
[b]asemshahen5[/b]
الملف بالمرفقات لم ينجح معي لا اعلم مالخطأ اضفت الملف مع الاكسل
RE: طلب تحويل كود vb6 الى كود vb 2012 - asemshahen5 - 27-11-19
اضف هذه المكتبة الى مكتبات المشروع سيعمل باذن الله .
المكتبة في المرفقات .
RE: طلب تحويل كود vb6 الى كود vb 2012 - m.n.hakami - 27-11-19
(27-11-19, 02:59 PM)asemshahen5 كتب : اضف هذه المكتبة الى مكتبات المشروع سيعمل باذن الله .
المكتبة في المرفقات .
مازال يظهر الخطأ
RE: طلب تحويل كود vb6 الى كود vb 2012 - asemshahen5 - 27-11-19
اضف هذا السطر :
PHP كود :
Imports Microsoft.Office.Interop.Excel
اضف هذا السطر :
PHP كود :
Imports Microsoft.Office.Interop.Excel