(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,...)

(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à im 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

Xin chào mọi người, mình đang nghiên cứu cái này, lâu rồi không làm acess quên hêt rồi, đang cần import excel vào acess bác nào có demo gửi cho mình tham khảo với làm thấy toàn báo lỗi là sao nhi

(22-03-23, 09:16 AM)tt1212 Đã viết: Xin chào mọi người, mình đang nghiên cứu cái này, lâu rồi không làm acess quên hêt rồi, đang cần import excel vào acess bác nào có demo gửi cho mình tham khảo với làm thấy toàn báo lỗi là sao nhi

Cụ thể file Excel của bạn thiết kế như thế nào? chỉ import thuần dữ liệu hay có cột, cột có cố định không, có sẵn Table trong Access rồi để import vào hay tự tạo Table v.v...có nhiều trường hợp phát sinh để xử lý Import. Còn nếu chung chung thì cứ dùng lệnh có sẳn của Access.
Ví dụ:

Cảm ơn bạn hiện tại mình có một bảng có sẵn trong acess rồi giờ muốn làm cái form và chọn file excel .xlsx insert vào một bảng có sẵn vậy thì phải làm sao và dùng hàm thế nào bạn nhỉ, mình có dùng như bạn nhưng nó tạo ra bảng mới