Đánh giá chủ đề:
  • 9 Votes - 2.67 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Import Dữ Liệu Từ Excel Vào Access
#31
(21-10-14, 07:22 PM)ttqt30 Đã viết: Microsoft Excel 11.0 Object Libary
ACE biết cái mục này nằm ở đâu chỉ dùm mình?

Mở cửa sổ VBA, trên thanh công cụ chọn Tools > References > Ở cửa sổ References kéo thanh trượt xuống đánh dấu chọn Microsoft Excel XX.0 Object Libary (cái XX.0 tùy phiên bản Office bạn đang sử dụng 11.0 hoặc 14.0,...)
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn
#32
(20-11-12, 10:37 AM)tsingle Đã viết:
(14-11-12, 09:47 PM)tsingle Đã viết: Máy mình không có Microsoft Common Dialog Control mà chỉ có Common Dialog Class, chắc là cái này. Mà không hiểu sao mình không thêm vào form được , bị báo lỗi như sau dù mình đã cài đặt full cho access:
"The operation on the OLE object faied. The OLE sever may not to be registered. To register the OLE sever, reinstall it."
Mình thử thì cũng có một số chức năng khác bị báo lỗi như vậy. Không biết có cần cài đặt thêm cái gì không nhỉ? Mình đã dùng thử trên cả office 2003 và office 2010.

(05-07-12, 03:44 PM)Xuân Thanh Đã viết: Nếu không có Common Dialog Control Dể browse file thì thay thế bằng cái này

Bước 1: Bạn tạo Nút Command Button sau đó dặt tên tuỳ ý (Browse)
Bước 2: Viết Lệnh cho nút này như sau:
dim fDialog as string
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.Title = "Chọn Tập Tin"
.Filters.Clear
.Filters.Add "hình ảnh", "*.xls"
.Filters.Add "All Files", "*.*"
If .Show = True Then
For Each varFile In .SelectedItems
msgbox varFile
Next
Else
MsgBox "You clicked Cancel in the file dialog box."
End If
End With

Vậy đó nhé, thử xem

P/S : Chưa test với Acc 2007 trở lên


Nếu không thì lên mạng tim COMDLG32.OCX rồi copy cái này vào System32 và khởi động lại máy

Mình dùng cách này của Xuân Thanh thì bị báo lỗi Object required tại dòng "Set fDialog = Application.FileDialog(msoFileDialogFilePicker)"

Không ai trả lời cả mình vào help của Microsoft và tìm được câu trả lời , mình gửi địa chỉ cho ai mà bị như mình tham khảo: http://support.microsoft.com/kb/279508/en-us?fr=1
Khai báo biến như của Xuân Thanh phải là "Dim fDialog As Office.FileDialog" và bổ sung thêm "Microsoft Office xx.x Object Library" trong Tools ->References của phần viết code.
Bạn Tsingle ! Mình đã Khai báo Biến như anh nói là big greenim fDialog As Office.FileDialog thì đã chạy Khi bấm vào cmdTimtaptin
Còn Để đọc tập tin để Import vào Table Access thi viết như thế nào? anh giúp dùm hay có file nào hoàn chỉnh Gửi dùm nhé? Thanks Bạn!
Sub cmdTimtaptin Click()
Dim fDialog As Office.FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.Title = "Chọn Tập Tin"
.Filters.Clear
.Filters.Add "hình ảnh", "*.xls"
.Filters.Add "All Files", "*.*"
If .Show = True Then
For Each varFile In .SelectedItems
msgbox varFile
Next
Else
MsgBox "You clicked Cancel in the file dialog box."
End If
End With
end SUB
Chữ ký của ttqt30 Xin chào, mình là ttqt30, Tham gia http://thuthuataccess.com/forum từ ngày 21-10 -14.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Cài đặt ODBC -nền tảng kết nối Access và nguồn dữ liệu khác Noname 33 19,289 01-12-16, 06:49 PM
Bài mới nhất: atula77
  Xây dựng Class Modules trong Access ( Cơ bản đến Nâng cao) maidinhdan 2 179 13-11-16, 05:32 PM
Bài mới nhất: cpucloi
  Hướng Dẫn Demo tổng hợp xuất Table, Query sang Excel có điều kiện ở vị trí nào cũng được maidinhdan 18 2,781 20-10-16, 11:51 AM
Bài mới nhất: jeck09nt
  Ms Access VBA và Google drive, một vài ý tưởng trong chia sẻ và đồng bộ số liệu... paulsteigel 46 3,848 07-10-16, 02:43 PM
Bài mới nhất: kieu manh
  Xuất từ Access ra excel mà không cần phải có file định sẵn trungminh 3 350 18-09-16, 02:33 AM
Bài mới nhất: maidinhdan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ