Nhập nhiều bảng tính Excel vào một bảng Access duy nhất

Nhập nhiều bảng tính Excel vào một bảng Access duy nhất

Xin chào,

Đoạn mã sau trên thực tế nhập các bản ghi có trong các tệp Excel được chứa trong một thư mục nhất định. Tất cả các tệp Excel đều được đặt tên theo quy ước đặt tên sau:

  • ExportProd1
  • ExportProd2
  • ExportProd3, v.v. (đến 'ExportProd75')

Tuy nhiên, nó bị mắc vào một vòng luẩn quẩn trong đó nó liên tục chỉ nhập các bản ghi từ các tệp Excel 'ExportProd1', 'ExportProd10', 'ExportProd11', 'ExportProd12' và 'ExportProd13'. Tổng số hồ sơ của tôi từ tất cả 75 tệp là khoảng 2,4 triệu. Hoạt động lặp lại khiến tổng số tăng vượt trội lên tới 11 triệu trước khi cơ sở dữ liệu gặp sự cố.

Đây là mã. Tại sao nó lặp lại như vậy thay vì đi qua tất cả 75 tệp trong thư mục theo thứ tự? Tất cả các tệp được đặt tên duy nhất:

Cơ sở dữ liệu so sánh tùy chọn

Hàm Impo_allExcel ()

Làm mờ tệp tin của tôi
Làm mờ đường đi của tôi
mypath = "C: \ PDooley_Projects \ CompanyName \ Customer_Integration \ Oracle_export \"
Làm
myfile = Dir (mypath & "* .xls")
'điều này sẽ nhập TẤT CẢ các tệp excel (từng tệp một, nhưng tự động) trong thư mục này. Hãy chắc chắn rằng đó là những gì bạn muốn.
DoCmd.TransferS Spreadsheet acImport, 8, "Contacts_AVDC_NEW", mypath & myfile
myfile = Dir
Vòng lặp Cho đến khi myfile = ""

Kết thúc chức năng

Tôi hy vọng mình có thể điều chỉnh mã này để ngăn chặn vòng lặp này, nếu không, tôi sẽ phải nhập từng tệp Excel đơn lẻ vào cơ sở dữ liệu Access của mình tại một thời điểm.

Cảm ơn bạn.





Câu trả lời:

Hãy thử sửa đổi này.

Hàm Impo_allExcel ()

Làm mờ tệp tin của tôi
Làm mờ đường đi của tôi


mypath = "C: \ PDooley_Projects \ CompanyName \ Customer_Integration \ Oracle_export \"
ChDir (MyPath)

myfile = Dir ()
Làm trong khi MyFile <> ""
Nếu MyFile Thích "* .xls" THÌ
'điều này sẽ nhập TẤT CẢ các tệp excel
'(từng cái một, nhưng tự động) trong thư mục này.
'Hãy chắc chắn rằng đó là những gì bạn muốn.
DoCmd.TransferS Spreadsheet acImport, 8, "Contacts_AVDC_NEW", mypath & myfile
Kết thúc nếu
myfile = Dir ()
Wend

Kết thúc chức năng



Câu trả lời:

Chào Pat

Vấn đề là Dir đầu tiên (cái có đối số) không được ở bên trong vòng lặp.

Gọi Dir (đường dẫn) tạo một "ngữ cảnh" mới và trả về tệp đầu tiên phù hợp với đặc điểm kỹ thuật đã cho.

Gọi Dir không có đối số trả về tệp tiếp theo trong ngữ cảnh hiện tại.

Tuy nhiên, bạn đang tạo một ngữ cảnh mới mọi lúc xung quanh vòng lặp, do đó, đặt lại tìm kiếm và trả về cùng một tệp lặp đi lặp lại. Vì vậy, hãy di chuyển lệnh gọi Dir () đầu tiên lên trước lệnh "Do".

Lời chúc tốt nhất,
Graham

Comments

Post a Comment

Popular posts from this blog

Excel 2016 - mở tất cả các tệp trong MỘT phiên bản

Image
Excel 2016 - mở tất cả các tệp trong MỘT phiên bản Xin chào, Tôi gặp sự cố với Excel 2016 (16.0.10228.20051 32-bit): Tôi có một phiên bản Excel đang chạy. (NB - hộp kiểm " Bỏ qua các ứng dụng khác sử dụng Trao đổi dữ liệu động (DDE) " trong Tùy chọn nâng cao KHÔNG được chọn.) Điều tôi cần là - đối với tất cả các tệp Excel mà tôi sắp mở để mở trong phiên bản Excel đầu tiên và duy nhất của mình e, luôn luôn và bất kể: - tôi mở bao nhiêu tập tin cùng một lúc, - nơi chứa các tập tin (tức là trên ổ đĩa cục bộ hoặc trên OneDrive nên hệ thống cần tải chúng xuống trước khi mở) và kể cả khi mở tệp Excel từ các ứng dụng Office khác, tức là tệp đính kèm Outlook. Hành vi mà tôi thấy trong Excel 2016 tốt nhất là không nhất quán: 1. Khi mở nhiều tệp bổ sung cùng một lúc từ đĩa (chọn nhiều tệp/nhấp chuột phải/Mở) - nó sẽ mở n tệp đầu tiên trong phiên bản Excel đầu tiên, nhưng sau đó từ tệp n +1, nó bắt đầu mở chúng trong phiên bản mới . 2. Một biến thể của trường hợp trên là k...
Read more

Điều tôi muốn làm trong Excel 2010 là tạo một nút tùy chỉnh và gắn nó vào thanh công cụ Truy nhập nhanh và chạy một macro cụ thể.

Image
Điều tôi muốn làm trong Excel 2010 là tạo một nút tùy chỉnh và gắn nó vào thanh công cụ Truy nhập nhanh và chạy một macro cụ thể. Trong excel 2003, trong mục tùy chỉnh thanh công cụ, người ta có thể lấy một nút và chỉnh sửa hình ảnh của nút đó. Điều tôi muốn làm trong excel 2010 là tạo một nút tùy chỉnh và gắn nó vào thanh công cụ Truy cập nhanh và để nút đó chạy một macro cụ thể. Ví dụ, tạo nút có chữ G lớn và khi nhấp vào, nút sẽ thực hiện truy vấn web và nhập giá vàng từ kitco.com. Có cách nào để thực hiện việc này trong Excel 2010 không? Trả lời: Xin chào, Để bật tab Nhà phát triển 1. Trên tab Tệp , chọn Tùy chọn để mở hộp thoại Tùy chọn . 2. Nhấp vào Tùy chỉnh Ribbon ở phía bên trái của hộp thoại. 3. Trong mục Chọn lệnh từ ở phía bên trái hộp thoại, chọn Lệnh phổ biến . 4. Trong mục Tùy chỉnh Dải băng ở phía bên phải hộp thoại, chọn Tab chính trong hộp danh sách thả xuống, sau đó chọn hộp kiểm Nhà phát triển . 5. Nhấp vào OK . Để biết thêm thông tin về cách tạo ...
Read more

Không thể hạn chế quyền trên tệp MS excel cho mac

Không thể hạn chế quyền trên tệp MS excel cho mac Này các bạn, Vì vậy, tôi có MS office 2016 cho mac và tôi đã tạo một tệp MS excel mà tôi muốn hạn chế quyền để bạn cần có mật khẩu để thực sự mở và xem tài liệu ngay từ đầu. Tôi đã làm theo hướng dẫn để chuyển đến tab đánh giá và nhấp vào nút hạn chế quyền. Tuy nhiên, nút này không thể nhấp được vì một số lý do kỳ lạ. Điều tương tự cũng xảy ra khi tôi thử làm điều tương tự với MS word. Có ai khác gặp phải vấn đề này? Cảm ơn, Trả lời: Các tính năng Hạn chế Quyền liên quan đến Quản lý Quyền Thông tin (IRM) chưa được triển khai trên máy Mac... Ý nghĩa là điều đó cuối cùng có thể xảy ra. Theo tôi hiểu, nó cũng liên quan đến các tệp bị hạn chế bởi phiên bản PC khi được truy cập từ trang SharePoint, nhưng không thể gọi được trên máy Mac. Tuy nhiên, để áp dụng loại bảo vệ bằng mật khẩu mà bạn mô tả, bạn không cần IRM. Chỉ cần đi tới File >Passwords , sau đó nhập Mật khẩu để mở &/hoặc Mật khẩu để sửa đổi . Nhấp vào OK , xác n...
Read more