View Full Version : سوال: انتقال اطلاعات از ليست به اكسس
f_g1348
جمعه 14 فروردین 1388, 17:06 عصر
سلام
من يه list view دارم با 3 ستون.
چطور مي تونم سطر هاي اون رو توي يك جدول در اكسس بريزم؟
Mani_rf
شنبه 15 فروردین 1388, 15:46 عصر
سلام
با استفاده از این تابع می توانی تمامی اطلاعات درو Data Viwe Grid را درون یک فایل Excel ذخیره کنی
تکه برنامه ساده ای است . به نسبت نیاز کارت می توانی تغییرش بدهی.
Private Sub ExportToExcel(ByVal DataGridView1 As DataGridView)
Dim SaveFileDialog1 As New SaveFileDialog
SaveFileDialog1.Filter = "*.xls|*.xls"
SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName <> "" Then
Dim oExcel As Object
Dim oWorkBook As Object
Dim oSheet As Object
oExcel = CreateObject("Excel.Application")
oWorkBook = oExcel.Workbooks.Add
oExcel.visible = True
Dim c, r As Integer
Dim ColNum As Integer = DataGridView1.ColumnCount
Dim RowNum As Integer = DataGridView1.RowCount
Dim col As Integer = 65
oSheet = oWorkBook.worksheets(1)
For c = 1 To ColNum
oSheet.Range(CStr(Chr(col) & 1)).Value = DataGridView1.Columns(c - 1).HeaderText
col += 1
Next
For r = 1 To RowNum
For c = 1 To ColNum
oSheet.Cells(r + 1, c) = DataGridView1.Rows(r - 1).Cells(c - 1).Value
Next
Next
oWorkBook.SaveAs(SaveFileDialog1.FileName, True)
oSheet = Nothing
oWorkBook = Nothing
oExcel = Nothing
End If
End Sub
فقط کافی تابع را فراخانی کنی و به عنوان پارامتر ورودی نام Dara Grid View را وارد کنی.
مثال
ExportToExcel(DgvData)
f_g1348
شنبه 15 فروردین 1388, 17:50 عصر
دست شما درد نكنه ولي من datagrideview نمي خواهم من list view لازم دارم.
Mani_rf
دوشنبه 17 فروردین 1388, 14:03 عصر
راستش را بخوای من زیاد با ListView کار نکردن اما بلاخره از طریق یک نوع موختصات دهی به اطلاعات داخلش دستریسی داری که می توانی اطلاعات آن را بخوانی!!!
در Procedure که برات فرستادم بجای Row و Column که در DataGridView هست مختصات یا اطلاعات خوانده شده از ListView را که داری بگذار.
یا مستقیم سطر به سطر از ListView بخوان و جای اطلاعات خوانده شده Procedure بگذار.
قسمت سخت این کار تبدیل کردن به Excle ازطریق VB.Net بود که برات گذاشتم. من بیشتر از این کاری از دستم بر نمی آید.
َشرمنده...
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.