• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

[Demo p1] Import/Export Excel + Hàm Liệt tên ALL Access

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Tương tác Chương trình ngoài
  • [Demo p1] Import/Export Excel + Hàm Liệt tên ALL Access
• [Demo p1] Import/Export Excel + Hàm Liệt tên ALL Access

• [Demo p1] Import/Export Excel + Hàm Liệt tên ALL Access

  maidinhdan > 06-03-17, 06:41 PM

  Demo_Code Import IMPORT/EXPORT EXCEL-ACCESS và CÁC HÀM LIỆT KÊ TÊN SHEET, TABLE, QUERY, FORM, REPORT, MACRO, MODULES VÀO COMBOBOX
  
  Công dụng:
  - Nhập/Xuất giữa Excel và Access: Bạn có thể xoá table + file Excel trong bản Demo này và thay thế bằng table + file Excel của bạn nó vẫn chạy ầm ầm ( Lưu ý: Riêng file Excel dòng đầu tiên là dòng tiêu đề nhé, nếu bạn nào có nhu câu thay dòng đâu tiên thành dòng thứ mấy thì xem trong code mình có ghi chú)
  
  
  - Liệt kê tên Table, query, form, Macro, report, Modules
  
  
  Có nhiều Code dành cho ai đam mê học tập nghiên cứu: nhất là liên quan đến Vòng lặp và duyệt mãng (Array)
  
  Hình minh hoạ
  
  

  

  
  
  Nếu để sử dụng thì tải theo địa chỉ ở dưới.
  
  Nếu muốn tải về để học tập thì vui lòng để lại Email để mình gửi bản *.mdb để xem code
  
  Thân mến!
  
  'Bổ sung Code mới UpdateBatch ngày 16/11/2018
  Đoạn này có ý nghĩa như sau: Thay vì con trỏ đi qua 1 mẫu tin thì update 1 lần, tương đương 1 dòng. Thì
  Thứ 1, đoạn code này nó sẽ canh đủ 1000 dòng mới ra lệnh Update.
  Thứ 2, Không gây ra hiện tượng treo/lag khi load trên 10.000 dòng.
  Thứ 3, Rút ngắn thời gian Import dù cho bạn Update 1 triệu mẫu tin đi chăng nửa.
  
  * Cuối cùng đoạn code này bạn có thể áp dụng với SQL Server to Access còn nhanh hơn nửa, chỉ cần chỉnh lại chuỗi kết nối là ok.
  * Về mặc hạn chế của code này đó là: phải mở Excel 2 lần
  1. Mở Excel lần 1, để xác định tổng số dòng cần Import ( Tốn khoảng 1 giây) rồi nó sẽ đóng lại sau khi đếm số mẫu tin.
  2. Mở lần 2 để tiến hành Add vào Access.
  
  Kết quả test
  

  Mã PHP:

  Tong so Mau tin Test: 8002
Bat dau vong lap:           12:29:01 AM 
    Thoi gian UpdateBatch       12:29:02 AM 
    Thoi gian UpdateBatch       12:29:03 AM 
    Thoi gian UpdateBatch       12:29:04 AM 
    Thoi gian UpdateBatch       12:29:05 AM 
    Thoi gian UpdateBatch       12:29:06 AM 
    Thoi gian UpdateBatch       12:29:07 AM 
    Thoi gian UpdateBatch       12:29:08 AM 
    Thoi gian UpdateBatch       12:29:09 AM 
Ket thuc vong lap:          12:29:09 AM 


  
  Demo Link Download GoogleDrive
  
  Code Minh Họa
  

  Mã PHP:

  Function ImportExcelToAccess()
    Dim RsExcel As Object, SQL As String
    Dim Strcon As String, LinkFileExcel As String, TenSheet As String, VungCopy As String, CotCuoicung As Long
    Dim DongCuoiCung As Long

    LinkFileExcel = CurrentProject.Path & "\Test.xlsx"
    TenSheet = "Sheet1"
    'Lay so dong tren File Excel
        Dim oEx As New Excel.Application     ' oEx la bien oExcel
        Dim oBook As Workbook              ' set oBook la tap hop oExcel
        ' Mo file can chen
        Set oBook = oEx.Workbooks.Open(LinkFileExcel)
        ' Mo Sheet can chen
        Dim oSheet As Worksheet                 ' set oSheet la tap hop Sheet
        Set oSheet = oBook.Worksheets(TenSheet)
            ' Dem so dong, so cot
        With oSheet.UsedRange
            DongCuoiCung = .Rows(UBound(.Value)).Row
        End With
        oBook.Close False
        Set oEx = Nothing
    
    VungCopy = "A7:L" & DongCuoiCung ' Bat cau copy tu cot A7 den cot L xxx
    
    ' Mo File Excel
    Set RsExcel = CreateObject("ADODB.Recordset")
    SQL = "select * from [" & TenSheet & "$" & VungCopy & "]"
    Strcon = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & LinkFileExcel _
                & ";Extended Properties=""Excel 12.0 Xml;HDR=Yes;"";")
    RsExcel.Open SQL, Strcon, 3, 1
    
    ''''''''''''
    ' Xoa du lieu trong tblTest
    CurrentDb.Execute "DELETE * FROM tblTest", dbFailOnError 'Xoa tblTest
    Dim i As Long
    Dim RsAcc As New ADODB.Recordset
    'Mo tblTest
    RsAcc.Open "tblTest", CurrentProject.AccessConnection, _
        adOpenstatic, adLockBatchOptimistic, adCmdTableDirect
    'So dong moi lam UpdateBatch
    Dim SoDongUpdateTrenLan As Integer, x As Integer
    x = 0
    SoDongUpdateTrenLan = 1000
    With RsExcel
    Debug.Print "Bat dau vong lap: ", Time
        Do While Not .EOF   ' Duyet mau tin tren Excel
            RsAcc.AddNew
                For i = 0 To (.Fields.Count - 1)   ' Duyet mau tin tren Access
                    RsAcc.Fields(i).Value = .Fields.Item(i).Value
                Next
            .MoveNext
            
            'So dong moi lam UpdateBatch
            x = x + 1
            If x = SoDongUpdateTrenLan Then ' 1000Dong Them 1 lan
                RsAcc.UpdateBatch
                Debug.Print "Thoi gian UpdateBatch", Time
                x = 0
            End If
        Loop
        Debug.Print "Ket thuc vong lap: ", Time
    End With
    MsgBox "Da Hoan thanh"
    RsExcel.Close
    Set RsExcel = Nothing
    RsAcc.Close
    Set RsAcc = Nothing
    
End Function 


  
  Chúc bạn vui khỏe

• RE: Demo Import/Export Excel + Hàm Liệt tên ALL Access

  Joey_Huynh > 06-03-17, 09:24 PM

  Cảm ơn Anh,
  Đang chuẩn bị hỏi các Anh trên đây thì thấy bài này. 
  file MDE em không mở được, "This database was created with 32-bit version of Microsoft Access...."
  
  Anh cho xin file mdb để em tùy biến theo bảng của  em nhé. Cảm ơn Anh. mail huynhkhanhduy@gmail.com

• RE: Demo Import/Export Excel + Hàm Liệt tên ALL Access

  vulhu06 > 06-03-17, 11:48 PM

  (06-03-17, 06:41 PM)maidinhdan Đã viết: Demo_Code Import IMPORT/EXPORT EXCEL-ACCESS và CÁC HÀM LIỆT KÊ TÊN SHEET, TABLE, QUERY, FORM, REPORT, MACRO, MODULES VÀO COMBOBOX
  
  Công dụng:
  - Nhập/Xuất giữa Excel và Access: Bạn có thể xoá table + file Excel trong bản Demo này và thay thế bằng table + file Excel của bạn nó vẫn chạy ầm ầm ( Lưu ý: Riêng file Excel dòng đầu tiên là dòng tiêu đề nhé, nếu bạn nào có nhu câu thay dòng đâu tiên thành dòng thứ mấy thì xem trong code mình có ghi chú)
  
  
  - Liệt kê tên Table, query, form, Macro, report, Modules
  
  
  Có nhiều Code dành cho ai đam mê học tập nghiên cứu: nhất là liên quan đến Vòng lặp và duyệt mãng (Array)
  
  Hình minh hoạ
  
  

  

  
  
  Nếu để sử dụng thì tải theo địa chỉ ở dưới.
  
  Nếu muốn tải về để học tập thì vui lòng để lại Email để mình gửi bản *.mdb để xem code
  
  Thân mến!

  
  Cám ơn bác Maidinhdan, cứ mỗi lần Bác lên là anh em lại được học hỏi, Bác gửi cho mình bản xem được code nhé!? Mail: vunguyenhoanglhu@gmail.com. Cám ơn nhiều

• RE: Demo Import/Export Excel + Hàm Liệt tên ALL Access

  cpucloi > 07-03-17, 09:27 AM

  Pác Mãi Dính Đạn cho em xin bản mdb nhé. Cám ơn pác

• RE: Demo Import/Export Excel + Hàm Liệt tên ALL Access

  trangdv.pchg > 07-03-17, 03:04 PM

  Cho mình xin file.MDB
  Địa chỉ Email: trangdlhg@gmail.com

• RE: Demo Import/Export Excel + Hàm Liệt tên ALL Access

  maidinhdan > 07-03-17, 06:01 PM

  (07-03-17, 03:04 PM)trangdv.pchg Đã viết: Cho mình xin file.MDB
  Địa chỉ Email: trangdlhg@gmail.com

  
  Đã gửi file mdb 4 người phía trên lúc : 17:01 7 tháng 3, 2017

• RE: Demo Import/Export Excel + Hàm Liệt tên ALL Access

  jeck09nt > 08-03-17, 04:20 PM

  Nhờ Maidinhdan gửi giúp file .mdb qua email : jeck09nt@gmail.com
  Xin cảm ơn !

• RE: Demo Import/Export Excel + Hàm Liệt tên ALL Access

  maidinhdan > 09-03-17, 04:28 PM

  (08-03-17, 04:20 PM)jeck09nt Đã viết: Nhờ Maidinhdan gửi giúp file .mdb qua email : jeck09nt@gmail.com
  Xin cảm ơn !

  
  Đã gửi

• RE: Demo Import/Export Excel + Hàm Liệt tên ALL Access

  dangh5 > 10-03-17, 11:45 PM

  cho mình xin file tham khảo với thank...!
  mail: dahota@gmail.com

• RE: Demo Import/Export Excel + Hàm Liệt tên ALL Access

  maidinhdan > 10-03-17, 11:51 PM

  (10-03-17, 11:45 PM)dangh5 Đã viết: cho mình xin file tham khảo với thank...!
  mail: dahota@gmail.com

  
  Đã gửi
• Bài trước Bài tiếp