کد word و Excel

[parsavb]

این کد رو بزار تو برنامه ات تا تکمیل بشه
هم برای اتصال به لیست باکس کد داره و هم برای اتصال به دیتا گرید

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

Dim strCon AsString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Test1.xls;Extended Properties=Excel 8.0;"

Dim objConn AsNew System.Data.OleDb.OleDbConnection(strCon)
 

Dim daSuresh AsNew OleDbDataAdapter("Select * From [sheet1$]", strCon)



objConn.Open()

Dim dsSuresh AsNew DataSet

Dim dvSuresh AsNew DataView

daSuresh.Fill(dsSuresh, "Sheet1")

dvSuresh = New DataView(dsSuresh.Tables("Sheet1"))

dvSuresh.Sort = "name"

DataGridView1.DataSource = dsSuresh<====== اتصال به دیتا گرید

DataGridView1.DataMember = dsSuresh.Tables("Sheet1").ToString<====== اتصال به دیتا گرید

ListBox1.DataSource = dsSuresh.Tables("sheet1") '<====== اتصال به لیست باکس

ListBox1.DisplayMember = "name"'<====== اتصال به لیست باکس


 

objConn.Close()

EndSub

EndClass

این برنامه رو هم نگاه کن تا طرز استفاده لیست باکس رو کامل متوجه بشی

https://barnamenevis.org/showth...429#post535429

اگه بازم مشکلی بود بگو تا توضیح بدم

موفق باشی

[باران امید]

خدا عمر با برکت بهت بده خداییش خیلی باحال بود وصل شد
در Listbox نشون داد نمی دونی من چه قدر کدا شو بالا و پایین کردم دیگه حسابی کلافه شده بودم (خدایا کمک کن ما یه کم باسواد بشیم این قدر دردسر درست نکنیم)

خیلی زحمت کشیدی اون برنامه رو هم که گذاشتی پیگیر بودم دیروز دیدم روشم کار کردم دستت درد نکنه یه کم دستوراشو تا وارد شم کار می بره(ولی خیلی یم کند نیستم)

حالا من باکمال شرمندگی و البته سریشی:
word را هم بگو چطور ازش اطلاعات رو بخونم.