سلام.
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 رو هم بگین دعاتون می کنم.