وارد کردن ایتم لیست باکس به اکسل

[__x7yp__]

چه جوری میشود در زبان ویژوال بیسیک داده لیست باکس به اکسل انتقال داد.
به طور مثال لیست باکس 10 ایتم دارد میخواهیم در اکسل در ستون a1 تا a10 به ترتیب وارد کنیم .
با تشکر فراوان:قلب::قلب::قلب::قلب:

[336699]

این پروژه رو تست کن

http://uplod.ir/7wsxqr3r5c83/toexcel.rar.htm

[gilsoft]

چه جوری میشود در زبان ویژوال بیسیک داده لیست باکس به اکسل انتقال داد.
به طور مثال لیست باکس 10 ایتم دارد میخواهیم در اکسل در ستون a1 تا a10 به ترتیب وارد کنیم .
با تشکر فراوان:قلب::قلب::قلب::قلب:

سلام دوست عزیز
ابتدا رفرنس Microsoft.Office.Interop.Excel رو از برگه NET. به پروژه اضافه کن (پروژه باید با Framework 4.0 ایجاد شود)

اینم کدهای مربوطه:
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Excel

Public Class Form1
Dim Filename As String = Dim Filename As String = System.Windows.Forms.Application.StartupPath & "\Items.xls"

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

For i As Integer = 1 To 10
ListBox1.Items.Add(String.Format("Item{0:00}", i))
Next

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim xlAP As New Excel.Application
Dim xlWB As Workbook = xlAP.Workbooks.Add()
Dim xlWSheet As Worksheet = xlWB.Sheets(1)

Dim ColNdx As Integer = 1
Dim RowNdx As Integer = 0

For Each DR In ListBox1.Items
xlAP.Cells(RowNdx + 1, ColNdx) = DR.ToString
RowNdx += 1
Next
xlWSheet.Columns.AutoFit()

If System.IO.File.Exists(Filename) Then System.IO.File.Delete(Filename)

Dim Ext As String = System.IO.Path.GetExtension(Filename).ToLower
If Ext = ".xls" Then
xlWB.SaveAs(Filename, XlFileFormat.xlWorkbookNormal) 'Excel97-2003
ElseIf Ext = ".xlsx" Then
xlWB.SaveAs(Filename, XlFileFormat.xlWorkbookDefault) 'Excel2007-2013
End If

xlWSheet = Nothing : xlWB.Close() : xlWB = Nothing
xlAP.Quit() : xlAP = Nothing : System.GC.Collect()
End Sub

End Class

موفق باشید .....

[__x7yp__]

سلام دوست عزیز
ابتدا رفرنس Microsoft.Office.Interop.Excel رو از برگه NET. به پروژه اضافه کن (پروژه باید با Framework 4.0 ایجاد شود)

اینم کدهای مربوطه:
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Excel

Public Class Form1
Dim Filename As String = Dim Filename As String = System.Windows.Forms.Application.StartupPath & "\Items.xls"

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

For i As Integer = 1 To 10
ListBox1.Items.Add(String.Format("Item{0:00}", i))
Next

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim xlAP As New Excel.Application
Dim xlWB As Workbook = xlAP.Workbooks.Add()
Dim xlWSheet As Worksheet = xlWB.Sheets(1)

Dim ColNdx As Integer = 1
Dim RowNdx As Integer = 0

For Each DR In ListBox1.Items
xlAP.Cells(RowNdx + 1, ColNdx) = DR.ToString
RowNdx += 1
Next
xlWSheet.Columns.AutoFit()

If System.IO.File.Exists(Filename) Then System.IO.File.Delete(Filename)

Dim Ext As String = System.IO.Path.GetExtension(Filename).ToLower
If Ext = ".xls" Then
xlWB.SaveAs(Filename, XlFileFormat.xlWorkbookNormal) 'Excel97-2003
ElseIf Ext = ".xlsx" Then
xlWB.SaveAs(Filename, XlFileFormat.xlWorkbookDefault) 'Excel2007-2013
End If

xlWSheet = Nothing : xlWB.Close() : xlWB = Nothing
xlAP.Quit() : xlAP = Nothing : System.GC.Collect()
End Sub

End Class

موفق باشید .....
ممنون از شما
فقط یک مساله میشه در این مثال خواندن اکسل از درایو هارد بگید نه path کردن ممنون باز

[gilsoft]

ممنون از شما
فقط یک مساله میشه در این مثال خواندن اکسل از درایو هارد بگید نه path کردن ممنون باز
سلام مجدد

ببخشید من منظور شما رو متوجه نشدم ! :متفکر: