• 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

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

  soluuhuong85 > 02-11-19, 12:58 PM

  Cho em xin file với: soluuhuong85@gmail.com
  
  Thanks !

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

  maidinhdan > 14-11-19, 03:52 PM

  Đã gửi 4 email trên

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

  tracanhtam > 26-01-20, 09:01 AM

  (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!
  
  '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

  
  

  (02-10-18, 10:49 AM)hoabattu3387 Đã viết: [quote="maidinhdan" pid='34485' dateline='1488796903']
  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!

  Cho tôi xin file mdb, xin cám ơn : lngoctrac@gmail.com

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

  haoylc > 02-04-20, 08:52 PM

  Cảm ơn bạn đã chia sẻ.
  Mình cần code để nghiên cứu, cho minh xin qua email: hao@ylc.edu.vn nhé.

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

  dotrung > 07-04-20, 10:05 PM

  Anh Dân cho dotrung xin file.mdb để học hỏi nhé, thanks !
  
  Email : trungpkv@gmail.com

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

  maidinhdan > 09-04-20, 03:43 PM

  Đã gửi 3 email trên

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

  ngochuong279 > 19-06-20, 10:35 AM

  Bạn có thể cho mình xin file mdb được không à: hangochuong09@gmail.com

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

  maidinhdan > 28-06-20, 02:17 PM

  (19-06-20, 10:35 AM)ngochuong279 Đã viết: Bạn có thể cho mình xin file mdb được không à: hangochuong09@gmail.com

  
  Đã gửi

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

  xiketuan > 20-07-20, 09:22 AM

  Cho mình xin file gốc để tham khảo với
  Email: tanhlinhcom@gmail.com
  
  Thanks!

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

  hoaithanh > 03-08-20, 10:58 AM

  Dạ anh Cho mình xin file.MDB
  Địa chỉ Email: hoaithanh9480@gmail.com
  E cám ơn anh nhiều ạ.
• Bài trước Bài tiếp