انتقال اطلاعات Datagrid به Excel2007 و 2003

[hamed_vb]

سلام دوستان عزيز ميخواستم بدونم چطوري ميشه اطلاعات ديتا گريد رو به excel 2007 يا 2003 انتقال داد من گشتم ولي همه توي VB.Net يا C# مثال زدن كسي توي VB6 مثال نزده لطفا كمكم كنين

[polisoftco]

'این کد در قسمت General نوشته میشود
Dim RsExcel As New ADODB.Recordset
Dim Cnn As New ADODB.Connection
Dim ConnectionString As String


'برای ارسال اطلاعات به یک شیت اکسل
Private Sub cmdExcel_Click ()
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;Persist Security Info=False;"

Cnn.ConnectionString = ConnectionString
Cnn.Open
RsExcel.open "SELECT * FROM AC_Detail", Cnn
Dim X1 as new Excel.Application
With X1
.visible = true
.workbooks.add
for i = 1 to 3
.cells(1, i).Font.Size = 10
.cells(1, i).Font.Bold = True
Next
.Range("A1").Offset(0, 0) = "نام"
.Range("A1").Offset(0, 1) = " نام خانوادگی"
.Range("A1").Offset(0, 2) = "نام پدر"
For i = 1 to Me.ADODC1.Recordset.Recordcount
.Range("A1").Offset(i, 0) = RsExcel.Fields("FirstName").Value
.Range("A1").Offset(i, 1) = RsExcel.Fields("LastName").Value
.Range("A1").Offset(i, 2) = RsExcel.Fields("FatherName").Value
RsExcel.MoveNext
Next
End With
End Sub

'برای ذخیره اطلاعات جاری در یک شیت
Private Sub cmdSaveToSheet_Click ()
X1.SaveWorkspace "c:\Sheet1.xls"
End Sub



موفق باشن

[rezaelmi63]

'این کد در قسمت General نوشته میشود
Dim RsExcel As New ADODB.Recordset
Dim Cnn As New ADODB.Connection
Dim ConnectionString As String


'برای ارسال اطلاعات به یک شیت اکسل
Private Sub cmdExcel_Click ()
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;Persist Security Info=False;"

Cnn.ConnectionString = ConnectionString
Cnn.Open
RsExcel.open "SELECT * FROM AC_Detail", Cnn
Dim X1 as new Excel.Application
With X1
.visible = true
.workbooks.add
for i = 1 to 3
.cells(1, i).Font.Size = 10
.cells(1, i).Font.Bold = True
Next
.Range("A1").Offset(0, 0) = "نام"
.Range("A1").Offset(0, 1) = " نام خانوادگی"
.Range("A1").Offset(0, 2) = "نام پدر"
For i = 1 to Me.ADODC1.Recordset.Recordcount
.Range("A1").Offset(i, 0) = RsExcel.Fields("FirstName").Value
.Range("A1").Offset(i, 1) = RsExcel.Fields("LastName").Value
.Range("A1").Offset(i, 2) = RsExcel.Fields("FatherName").Value
RsExcel.MoveNext
Next
End With
End Sub

'برای ذخیره اطلاعات جاری در یک شیت
Private Sub cmdSaveToSheet_Click ()
X1.SaveWorkspace "c:\Sheet1.xls"
End Sub

موفق باشن


با سلام خدمت دوست عزيز

بايد بگم ايني كه نوشتين درست ولي براي 2003 كار مي كنه

مي تونيد امتحان كنيد

[polisoftco]

سلام
خب شما اون بالا گفتین که برای 2003، من هم واسه اون گذاشتم این کد راحت جواب میده، مطمئن باشین.
همچنین من 2007 نصب نکردم، راستش حذفش کردم آخه به 2003 عادت کردم.

موفق باشین