MTNQ > 21-10-14, 11:00 PM
(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?
ttqt30 > 22-10-14, 07:12 PM
(20-11-12, 10:37 AM)tsingle Đã viết: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(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.
tt1212 > 22-03-23, 09:16 AM
ongke0711 > 22-03-23, 01:14 PM
(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
DoCmd.TransferSpreadsheet acImport, 3, "DanhSach", "C:\Temp", True, "A1:C10"
tt1212 > 22-03-23, 10:54 PM