کد word و Excel

[باران امید]

سلام.
parsavb آقا ما فضولی کردیم خودمونو وسط انداختیم ،ما که زمین خوردتون هستیم ،چوب کاری نفرمایید.
از خودم ناامید شدم آقا ما هر کاری کردیم نتونستیم یه تیکشو درست کنیم .
اول اونایی رو می گم که درست شده بعد اونایی رو که نتونستم.

این نوشتن در word است که برای برنامه خودم از روی کدهای قبلی در آوردم.

Private Sub btnMake_Word_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMake_Word.Click

make_word_file()

End Sub

Private Sub make_word_file()

Dim oWord As Word.Application

Dim oDoc As Word.Document

Dim oTable As Word.Table

'Start Word and open the document template.

oWord = CreateObject("Word.Application")

oWord.Visible = True

oDoc = oWord.Documents.Add

 

 

'Insert a (r x 3) table, fill it with data and make the first row

'bold,italic. (r=tedade kala=comboBox.items.count)

oTable = oDoc.Tables.Add(oDoc.Bookmarks("\endofdoc").Range, line1 + 1, 3)

oTable.Range.ParagraphFormat.SpaceAfter = 6

oTable.Cell(0, 1).Range.Text = "row"

oTable.Cell(0, 2).Range.Text = " Name"

oTable.Cell(0, 3).Range.Text = "LastName"

 

For i = 0 To line1 - 1

oTable.Cell(i + 2, 1).Range.Text = i + 1

oTable.Cell(i + 2, 2).Range.Text = ListBox2.Items(i).ToString()

oTable.Cell(i + 2, 3).Range.Text = ListBox3.Items(i).ToString

Next

oTable.Rows(1).Range.Font.Bold = True

oTable.Rows(1).Range.Font.Italic = True

'All done. Unload this form.

Me.Close()

 

End Sub

اینم کد نوشتن در Excel

PrivateSub open_Excel_file_as_ReadOnly()

Dim oExcel As Object

Dim oWorkBook As Object

Dim oSheet As Object

oExcel = CreateObject("Excel.Application")

oWorkBook = oExcel.Workbooks.Add

oExcel.visible = True

oWorkBook = oExcel.Workbooks.Open("D:\Copy of Book2.xls", [ReadOnly]:=True)

'// For Write data into a sheet :

oSheet = oWorkBook.worksheets(1)

oSheet.Range("A1").Value = "row"

oSheet.Range("B1").Value = "Name"

oSheet.Range("C1").Value = "LastName"

For i = 0 To line1 - 1

oSheet.Cells(i + 2, 1) = i + 1

oSheet.Cells(i + 2, 2) = ListBox2.Items(i).ToString()

oSheet.Cells(i + 2, 3) = ListBox3.Items(i).ToString

Next

'oWorkBook.SaveAs("d:\Book1.xls")

oSheet = Nothing

oWorkBook = Nothing

oExcel = Nothing

' oExcel.Quit()

 

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

open_Excel_file_as_ReadOnly()

End Sub

اقا ما تونستیم که دوتا Listebox رو که داشتیم هم در word هم در Excel بنویسیم ولی هر کاری کردم نتونستم یا datagrid رو بریزم در List box یا از اول در List box نشون بده.

کلا باید اطلاعات (لیست نام ) را از فایل بخواند و در List box نشان دهد بعد هم که اطلاعات تکمیلی در List box دوم نمایش داده شد هر دو Listbox را در فایل بنویسد .

مشکل نوشتن که خدا رو شکر حل شد .ولی خوندن از فایل دارد اذیت می کند اول فکر کردم درست شده ولی اگر که data grid رو قرار بدم فرم خیلی شلوغ می شود مجبورم که اطلاعات را در List box نشون بدم و از همون هم بخونم و با هاش کارم کنم .ما هم هر چی گشتیم جواب رو پیدا نکردیم .

هرچی هم که bindکردیم نشد نمی دونم چرا فقط systamdata.DataViewManagerListItemTypeDescriptor را می نویسد یا بعضی وقتها کل List box پر می شود شبیه همین خط را می نویسد از همون کدی هم که datagrid را نشان میدهد هم به جایش List boxنوشتیم نشد و... کلا هر کاری تا حالا کردیم نشد.(این قدر گشتم برای جواب و کدها رو جابجا کردم نمی دونم چی شد)

حالا من موندمو حوضم .خداییش تا حالا که مارو تحمل کردید این ریختن در list box و خوندن از word رو هم بگین دعاتون می کنم.