خروجی اکسل

[Alghoochi]

سلام

من یه بانک اطلاعاتی دارم که می خوام اطلاعات اونو به یه فایل اکسل تبدیل کنم. ولی این کار باید حتما تو خود محیط برنامه انجام بشه مثلا توی منو یه گزینه به اسم save as Excel File داشته باشیم که کاربر با کلیک روی اون یه پنجره save file dialog باز بشه و محل و اسم فایل خروجی رو بگیره و ما تو همون فولدر یه فایل اکسل ایجاد کنیم.

[Mobham]

خوب دوست خوبم میشه دقیق تر بگی مشکلت کجاست ؟
توی نمایش save file dialog یا اینکه تبدیل اطلاعات خودت به فایل اکسل ؟

[Alghoochi]

مشکل من تبدیل اطلاعاتم به فرمت اکسله جوری که اطلاعات هر فیلد توی یه ستون و هر رکورد توی یه سطر قرار بگیره

[Mobham]

مشکل من تبدیل اطلاعاتم به فرمت اکسله جوری که اطلاعات هر فیلد توی یه ستون و هر رکورد توی یه سطر قرار بگیره
خوب دوست خوبم هر داده ای یک نوع فرمت داره نمیدونم چطور منظورم رو برسونم مثلا داده های شما توسط یک کاراکتر جدا شده باشن یا حالت های چیدن داده های شما اگه میشه یک تیکه از اون داده هایی که میخوای به اکسل تبدیل شن بزار تا سورسش رو درست کنم.

[سمانه علوی فر]

export datagridview to excell in vb.net

این کد به دردتون می خوره؟


Imports System.Data
Imports System.Data.SqlClient
Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click

Dim cnn As SqlConnection
Dim connectionString As String
Dim sql As String

connectionString = "data source=servername;" & _
"initial catalog=databasename;user id=username;password=password;"
cnn = New SqlConnection(connectionString)
cnn.Open()
sql = "SELECT * FROM Product"
Dim dscmd As New SqlDataAdapter(sql, cnn)
Dim ds As New DataSet
dscmd.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
cnn.Close()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click


Dim xlApp As Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlWorkSheet As Excel.Worksheet
Dim misValue As Object = System.Reflection.Missing.Value
Dim i As Integer
Dim j As Integer

xlApp = New Excel.ApplicationClass
xlWorkBook = xlApp.Workbooks.Add(misValue)
xlWorkSheet = xlWorkBook.Sheets("sheet1")

For i = 0 To DataGridView1.RowCount - 2
For j = 0 To DataGridView1.ColumnCount - 1
xlWorkSheet.Cells(i + 1, j + 1) = _
DataGridView1(j, i).Value.ToString()
Next
Next

xlWorkSheet.SaveAs("C:\vbexcel.xlsx")
xlWorkBook.Close()
xlApp.Quit()

releaseObject(xlApp)
releaseObject(xlWorkBook)
releaseObject(xlWorkSheet)

MsgBox("You can find the file C:\vbexcel.xlsx")
End Sub

Private Sub releaseObject(ByVal obj As Object)
Try
System.Runtime.InteropServices.Marshal.ReleaseComO bject(obj)
obj = Nothing
Catch ex As Exception
obj = Nothing
Finally
GC.Collect()
End Try
End Sub
End Class

[سمانه علوی فر]

این لینک هم یه نگاه بنداز


http://xldennis.wordpress.com/2008/02/12/export-data-from-datagridview-to-excel/[/URL]