Chọn dữ liệu từ datagrid đưa vào excel

[spacemanforever]

Em dùng vb6.0 và csdl là access, khi em dùng bảng datagrid hiện kết quả search trong csdl. Nhưng Em muốn Chọn dữ liệu từ datagrid này (nằm trong form search) xuất ra 1 Range trên excel (vì có những số dữ liệu từ datagrid không muốn cho vào excel)

Nếu em dùng code:

Private Sub cmdexport_Click()
Dim Excel As Excel.Application
Dim wb As Workbook
Dim ws As Worksheet
Dim i As Integer
Dim k As Integer
Dim A1 As String
Dim B1 As String
Dim lRow As Long
Dim LastRow As Long
Dim LastCol As Long


Set Excel = CreateObject("excel.application")
Excel.Visible = True
'add a workbooks
Set wb = Excel.Workbooks.add

'add a worksheet
wb.Worksheets.add

Set ws = wb.Sheets(1)

'Rename worksheet1
ws.Name = "1"

i = 6 'Row in Excel

LastRow = Searchfrm.DataGrid1.Row 'Save Current row
LastCol = Searchfrm.DataGrid1.Col 'and column
Searchfrm.DataGrid1.Row = 0 'Fixed Row is -1
Do While Searchfrm.DataGrid1.Row <= Searchfrm.DataGrid1.VisibleRows - 1
     For k = 1 To Searchfrm.DataGrid1.Columns.Count - 1
          Searchfrm.DataGrid1.Col = k 'Fixed Column is -1
          
          ws.Cells(i, k).Value = Searchfrm.DataGrid1.Text
          
     Next
     i = i + 1
     If Searchfrm.DataGrid1.Row < Searchfrm.DataGrid1.VisibleRows - 1 Then
        Searchfrm.DataGrid1.Row = Searchfrm.DataGrid1.Row + 1
     Else
         Exit Do
     End If
Loop
Searchfrm.DataGrid1.Row = LastRow 'Restore original Row
Searchfrm.DataGrid1.Col = LastCol 'and Column

End Sub

Thì toàn bộ số liệu từ datagrid sẽ xuất hết ra excel và không theo ý muốn của em vào vị trí form cell đã thiết kế



Em gởi đính kèm form excel em thiết kế và datagrid

Các anh ai biết giúp dùm em


From Sa_DQ:
Bạn không được phép đưa bài cùng nội dung đến hai nơi;
Bài này sẽ bị xóa chiều nay!

 

[PhanTuHuong]

Trong vòng lặp, bạn cấy thêm 1 số điều kiện thì mới copy sang.

 

[spacemanforever]

Bạn có thể cho một ví dụ không, em đã làm nhưng chưa được