Import 2 tables Access to Excel

[hanbaoquan1x]

Mình có 2 bảng table trong Access và giờ mình muốn đưa dữ liệu từ Access sang Excel.
Access của mình có 2 bảng :
SV(ID,MSSV,MaLop,Ho,Ten,HanhKiem)
Lop(MaLop,TenLop)
Trong khi mình muốn xuất sang file Excel theo mục như sau:
MSSV MaLop TenLop Ho Ten HanhKiem


Mong mọi người có thể làm ví dụ về vấn đề này giúp mình.!!!!!!!!

 

[Hai Lúa Miền Tây]

Bạn vào bài ADO căn bản: Kết nối truy vấn CSDL từ file Excel đến file Access. tham khảo, nếu chưa được, bạn gửi file demo lên đây xem thử nhé.

 

[Chanxu]

trong access bạn tạo query như yêu cầu của bạn. tiếp theo bạn export query ra excel=> nhanh chóng, đơn giản.
trong excel thì làm tương đối lâu một chút. bạn làm cũng tương tự như access thôi, có điều chưa học qua lập trình thì cũng khó.
"bạn gửi file demo lên đây xem thử nhé."
cứ có cái này thì dễ hơn. nêu càng chi tiết yêu cầu càng tốt.

 

[app]

trong access bạn tạo query như yêu cầu của bạn. tiếp theo bạn export query ra excel=> nhanh chóng, đơn giản.
trong excel thì làm tương đối lâu một chút. bạn làm cũng tương tự như access thôi, có điều chưa học qua lập trình thì cũng khó.
"bạn gửi file demo lên đây xem thử nhé."
cứ có cái này thì dễ hơn. nêu càng chi tiết yêu cầu càng tốt.

Copy & paste (Paste special), đơn giản là mất không quá 5s đâu bạn.
Mình vừa test với bảng và cả query (3000 dòng), kết quả đều oki.

 

[hanbaoquan1x]

Mình có 2 bảng table trong Access và giờ mình muốn đưa dữ liệu từ Access sang Excel.
Access của mình có 2 bảng :
SV(ID,MSSV,MaLop,Ho,Ten,HanhKiem)
Lop(MaLop,TenLop)
Trong khi mình muốn xuất sang file Excel theo mục như sau:
MSSV MaLop TenLop Ho Ten HanhKiem


Mong mọi người có thể làm ví dụ về vấn đề này giúp mình.!!!!!!!!
Mình gửi file attach mong mọi người giúp đỡ.

 

[ThuNghi]

Mình có 2 bảng table trong Access và giờ mình muốn đưa dữ liệu từ Access sang Excel.
Access của mình có 2 bảng :
SV(ID,MSSV,MaLop,Ho,Ten,HanhKiem)
Lop(MaLop,TenLop)
Trong khi mình muốn xuất sang file Excel theo mục như sau:
MSSV MaLop TenLop Ho Ten HanhKiem


Mong mọi người có thể làm ví dụ về vấn đề này giúp mình.!!!!!!!!
Mình gửi file attach mong mọi người giúp đỡ.

Tại file SV3 chép code này vào và chạy thử.

Public cnn As New ADODB.Connection
Dim strCNString As String
Public sFileName$
Sub Moketnoi()
Set cnn = New ADODB.Connection
strCNString = "Data Source=" & ThisWorkbook.Path & "\" & sFileName
With cnn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .ConnectionString = strCNString
    .CursorLocation = adUseClient
    .Open
End With
End Sub
Sub LayDuLieu()
On Error GoTo loi
Dim lsSQL As String: Dim Rcs As New ADODB.Recordset
sFileName = "TEST2.mdb"
If cnn.State <> 1 Then Moketnoi
  lsSQL = "SELECT Lop.MaLop , Lop.TenLop, SV.MSSV, SV.Ho, SV.Ten, SV.HanhKiem" & Chr(10)
  lsSQL = lsSQL & "FROM Lop INNER JOIN SV ON Lop.MaLop = SV.MaLop;" & Chr(10)
  Rcs.Open lsSQL, cnn, adOpenStatic, adLockReadOnly
With Sheets("Sheet1")
  .Range("A2:F1000").ClearContents
  .Range("A2").CopyFromRecordset Rcs
End With
Rcs.Close
Set Rcs = Nothing
cnn.Close
Set cnn = Nothing
Exit Sub
loi:
MsgBox Err.Description
End Sub

 

[nad582]

giúp mình nhé!!

mình làm không được bạn ơi có thể giúp mình không!!!

 

[hanbaoquan1x]

Bạn ơi cho mình hỏi bây giờ mình muốn chuyển giá trị của yes/no trong database access ra file excel là 1 và 0 dùm nha. Vì khi mình xuất ra file Excel lại là TRUE và FALSE. Mình muốn sử dụng thêm hàm tìm kiếm cho MSSV thì làm sao.

(A1)MSSV : (B1) Mã Số cần điền
MSSV có 2 giá trị thì sẽ xuất ra 2 giá trị.

 

[ThuNghi]

Bạn ơi cho mình hỏi bây giờ mình muốn chuyển giá trị của yes/no trong database access ra file excel là 1 và 0 dùm nha. Vì khi mình xuất ra file Excel lại là TRUE và FALSE. Mình muốn sử dụng thêm hàm tìm kiếm cho MSSV thì làm sao.

(A1)MSSV : (B1) Mã Số cần điền
MSSV có 2 giá trị thì sẽ xuất ra 2 giá trị.

Ít ra cũng đưa được giả thiết và kết luận thì mới biết cần gì.
Gởi demo yêu cầu!

 

[hanbaoquan1x]

Bạn ơi cho mình hỏi bây giờ mình muốn chuyển giá trị của yes/no trong database access ra file excel là 1 và 0 dùm nha. Vì khi mình xuất ra file Excel lại là TRUE và FALSE. Mình muốn sử dụng thêm hàm tìm kiếm cho MSSV thì làm sao. Mình đã note lên file excel. Mong mọi người giúp đỡ.

 

[ThuNghi]

Nhập MsSV vào B2 và chạy code sau

Public cnn As New ADODB.Connection
Dim strCNString As String
Public sFileName$
Dim sMsSV$
Sub Moketnoi()
Set cnn = New ADODB.Connection
strCNString = "Data Source=" & ThisWorkbook.Path & "\" & sFileName
With cnn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .ConnectionString = strCNString
    .CursorLocation = adUseClient
    .Open
End With
End Sub
Sub LayDuLieu()
On Error GoTo loi
Dim lsSQL As String: Dim Rcs As New ADODB.Recordset
With Sheets("Sheet1")
  sMsSV = CStr(.[B1])
End With
sFileName = "TEST2.mdb"
If cnn.State <> 1 Then Moketnoi
  lsSQL = "SELECT SV.MSSV,Lop.MaLop , Lop.TenLop,  SV.Ho, SV.Ten, SV.HanhKiem," & Chr(10)
  lsSQL = lsSQL & "SV.User, -clng(SV.Status), SV.Date" & Chr(10)
  lsSQL = lsSQL & "FROM Lop INNER JOIN SV ON Lop.MaLop = SV.MaLop" & Chr(10)
  lsSQL = lsSQL & "Where SV.MSSV like  '" & sMsSV & "%'" & Chr(10)
  Rcs.Open lsSQL, cnn, adOpenStatic, adLockReadOnly
If Rcs.EOF Then
  MsgBox "Không có records nào!", vbOKOnly + vbInformation, "THÔNG BÁO"
  GoTo loi
End If
With Sheets("Sheet1")
  .Range("A3:I1000").ClearContents
  .Range("A3").CopyFromRecordset Rcs
End With
Rcs.Close
Set Rcs = Nothing
cnn.Close
Set cnn = Nothing
Exit Sub
loi:
MsgBox Err.Description
End Sub

 

[hanbaoquan1x]

Mình cảm ơn. Nhưng yêu cầu của mình là khi dữ liệu đã có sẵn thì khi mình gõ MSSV mới lọc dữ liệu(như data Filter ) chứ không phải lọc dữ liệu ngay lúc đầu. Bạn có thể chỉnh lại 1 chút dùm mình nha. Mình cũng đã thử dựa vào gợi ý mà sao chương trình không chạy

Sub MSSV()
Dim lsSQL As String: Dim Rcs As New ADODB.Recordset
With Sheets("Sheet1")
sMsSV = CStr(.[B1])
End With
sFileName = "TEST2.mdb"
If cnn.State <> 1 Then Moketnoi
lsSQL = "SELECT * FROM SV WHERE MSSV like '" & sMsSV & "%'" & Chr(10)
Rcs.Open lsSQL, cnn, adOpenStatic, adLockReadOnly
End Sub