View Full Version : سوال: وارد کردن ایتم لیست باکس به اکسل
__x7yp__
پنج شنبه 01 مهر 1395, 13:20 عصر
چه جوری میشود در زبان ویژوال بیسیک داده لیست باکس به اکسل انتقال داد.
به طور مثال لیست باکس 10 ایتم دارد میخواهیم در اکسل در ستون a1 تا a10 به ترتیب وارد کنیم .
با تشکر فراوان:قلب::قلب::قلب::قلب:
336699
جمعه 02 مهر 1395, 20:24 عصر
این پروژه رو تست کن
http://uplod.ir/7wsxqr3r5c83/toexcel.rar.htm
gilsoft
شنبه 03 مهر 1395, 08:54 صبح
چه جوری میشود در زبان ویژوال بیسیک داده لیست باکس به اکسل انتقال داد.
به طور مثال لیست باکس 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__
شنبه 03 مهر 1395, 17:11 عصر
سلام دوست عزیز
ابتدا رفرنس 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
یک شنبه 04 مهر 1395, 12:00 عصر
ممنون از شما
فقط یک مساله میشه در این مثال خواندن اکسل از درایو هارد بگید نه path کردن ممنون باز
سلام مجدد
ببخشید من منظور شما رو متوجه نشدم ! :متفکر:
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.