Tùy chọn
Xin hỏi 1 lỗi khi dùng CommonDialog: Runtime error 438
- Xin hỏi 1 lỗi khi dùng CommonDialog: Runtime error 438
-
RE: Xin hỏi 1 lỗi khi dùng CommonDialog: Runtime error 438
uronmapu > 07-07-12, 01:50 PM
(07-07-12, 11:08 AM)Xuân Thanh Đã viết:
Mình đã đọc bài này của NoName: http://thuthuataccess.com/forum/thread-103.html(07-07-12, 10:21 AM)Noname Đã viết: http://thuthuataccess.com/forum/thread-103.html
Đọc #20 ý. Không làm được nữa thì ...chào thua
Đã làm theo được ở máy A, nhưng khi mình đem sang máy B chạy thì bị lỗi như mình đang hỏi ở chủ đề này, Noname bảo cài VB6 vào, hôm nay cty nghi nên mìn chưa cài được, để thứ 2 thử và báo lại tình trạng
Mình đọc đoạn code #20 của bác Xuân Thanh nhưng trường hợp này của bác giới hạn chỉ với 7 cột và 14 dòng. Nếu file excel của mình số dòng luôn thay đổi (số cột thì chắc cố định rồi) thì làm thế nào ạ
Trong trường hợp này mình đã thử tạo 1 nút Browse như hướng dẫn của Xuân Thanh, đã browse đến được file excel rồi, đã tạo 1 module với hàm bên dưới rồi
Vậy để import thì gọi hàm đó ở chỗ nào ạ
Mã:Function ImExAc(tblTabName As String, shSheet As String, strFile As String)
Dim Ex As Excel.Application
Dim fileEx As Workbook
Set fileEx = Ex.Workbooks.Open(strFile)
Dim Ws As Worksheet
Set Ws = fileEx.Worksheets(shSheet)
Dim Rs As Recordset
Set Rs = CurrentDb.OpenRecordset(tblTabName, dbOpenTable)
'Gia su sheet Ex co so lieu tu A2:G15
'Tuc co 7 cot(truong) va 14 dong(record)
Dim i As Integer
Dim j As Integer
For i = 2 To 15
Rs.AddNew
For j = 1 To 7
Rs.Fields(j - 1) = Ws.Cells(i, j)
Next
Rs.Update
Next
End Function -
RE: Xin hỏi 1 lỗi khi dùng CommonDialog: Runtime error 438
Xuân Thanh > 07-07-12, 02:11 PM
Thứ nhất : Như Noname nói "Mong bạn cải thiện được IQ của mình" nhưng.....
Thứ hai : Thay đổi số 7 và 15 theo file Ex của bạn
Thứ ba : Dùng hàm ImExAc của tôi thì sẽ vô tư cho file Ex của bạn vì hàm này là tổng quát của bài #20, muốn bao nhiêu cột, bao nhiêu dòng nó cũng dò ra
Thân
Muốn Import tạo một Command rồ dùng sự kiện click cvủa nó mà gọi hàm
Call ..... -
RE: Xin hỏi 1 lỗi khi dùng CommonDialog: Runtime error 438
domfootwear > 07-07-12, 02:12 PM
(07-07-12, 09:59 AM)uronmapu Đã viết: Ok rồi bác ạ, cái này browse đến được file excel rồi, nhưng sau khi chọn file excel và nhấn Open
Làm thế nào để import vào được ạ? (import các trường từ excel vào 1 bảng tblNames trong access)
Cảm ơn Xuân Thanh
Muốn import từ Excel vào bảng thì đòi hỏi các trường của Excel và Access phải giống nhau nhen bạn. -
RE: Xin hỏi 1 lỗi khi dùng CommonDialog: Runtime error 438
uronmapu > 07-07-12, 02:27 PM
Điều này hiển nhiên rồi
File excel của mình có các trường giống hệt bảng trong access
(07-07-12, 02:11 PM)Xuân Thanh Đã viết: Thứ nhất : Như Noname nói "Mong bạn cải thiện được IQ của mình" nhưng.....
Thứ hai : Thay đổi số 7 và 15 theo file Ex của bạn
Thứ ba : Dùng hàm ImExAc của tôi thì sẽ vô tư cho file Ex của bạn vì hàm này là tổng quát của bài #20, muốn bao nhiêu cột, bao nhiêu dòng nó cũng dò ra
Thân
Muốn Import tạo một Command rồ dùng sự kiện click cvủa nó mà gọi hàm
Call .....
(07-07-12, 02:12 PM)domfootwear Đã viết:
(07-07-12, 09:59 AM)uronmapu Đã viết: Ok rồi bác ạ, cái này browse đến được file excel rồi, nhưng sau khi chọn file excel và nhấn Open
Làm thế nào để import vào được ạ? (import các trường từ excel vào 1 bảng tblNames trong access)
Cảm ơn Xuân Thanh
Muốn import từ Excel vào bảng thì đòi hỏi các trường của Excel và Access phải giống nhau nhen bạn.
Vâng e nhận là IQ của em thấp nên e mong các bác giúp đỡ em chút xiu ....
Hàm ImExAc của Xuân Thanh mình thấy j chạy đến 7 (7 cột) dòng i chạy đến 15(15 hàng) mà?đâu có tổng quát ạ? -
RE: Xin hỏi 1 lỗi khi dùng CommonDialog: Runtime error 438
Xuân Thanh > 07-07-12, 02:41 PM
(07-07-12, 02:27 PM)uronmapu Đã viết: Vâng e nhận là IQ của em thấp nên e mong các bác giúp đỡ em chút xiu ....
Hàm ImExAc của Xuân Thanh mình thấy j chạy đến 7 (7 cột) dòng i chạy đến 15(15 hàng) mà?đâu có tổng quát ạ?
Cái hàm ấy nó ở đây nè http://thuthuataccess.com/forum/thread-5231.html -
RE: Xin hỏi 1 lỗi khi dùng CommonDialog: Runtime error 438
uronmapu > 07-07-12, 02:54 PM
Sorry bác đúng là IQ của e có vấn đề đã đọc và comment rồi mà lại quên
Bài này của bác không hợp 1 chỗ là khi nhập thì file excel lại phải copy vào 1 chỗ cố định và tên file cố định, liệu có khắc phục được ko ạ?
Call ImExAc(“tblDanhsachkhachhang”,”D:\Excel\Danh sach khach hang.xls”,”Danh sach”) -
RE: Xin hỏi 1 lỗi khi dùng CommonDialog: Runtime error 438
Xuân Thanh > 07-07-12, 03:00 PM
(07-07-12, 02:54 PM)uronmapu Đã viết: Sorry bác
đúng là IQ của e có vấn đề đã đọc và comment rồi mà lại quên
Bài này của bác không hợp 1 chỗ là khi nhập thì file excel lại phải copy vào 1 chỗ cố định và tên file cố định, liệu có khắc phục được ko ạ?
Call ImExAc(“tblDanhsachkhachhang”,”D:\Excel\Danh sach khach hang.xls”,”Danh sach”)
Thế cái file Excel tìm được sau khi Browse thì nằm ở đâu? -
RE: Xin hỏi 1 lỗi khi dùng CommonDialog: Runtime error 438
uronmapu > 07-07-12, 03:15 PM
Đúng rồi
Thế gọi hàm ImExAc khi đã browse đến file thế nào bác?
Call ImExAc ạ? -
RE: Xin hỏi 1 lỗi khi dùng CommonDialog: Runtime error 438
Xuân Thanh > 07-07-12, 03:19 PM
Chưa trả lời câu hỏi làm sao trả lời? cái file Ex sau khi browse nằm ở đâu trên form? -
RE: Xin hỏi 1 lỗi khi dùng CommonDialog: Runtime error 438
uronmapu > 07-07-12, 03:29 PM
File excel của e đặt tại 1 folder con trong ổ C
Nút Browse của e dùng lênh bên dưới của bác
Em không biết khi nhấn browse thì file excel này sẽ nằm ở đâu
Xin bác chỉ thêm
Mã:Private Sub cmdBrowse_Click()
On Error Resume Next
Dim fDialog As FileDialog
Dim varFile As Variant
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.AllowMultiSelect = True
.Title = "Select One or More Files"
.Filters.Clear
.Filters.Add "Microsoft Excel", "*.xls"
.Filters.Add "All Files", "*.*"
If .Show = True Then
For Each varFile In .SelectedItems
Me.txtTapTin = varFile
Next
Else
MsgBox "You clicked Cancel in the file dialog box."
End If
End With
End Sub