Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Giúp vấn đề về mở file excel trong access
#1
Chào mọi người mình đang gặp phải vấn đề là mình code trong vba khi click vào file thì mở file excel mình đã chỉ định. Mình mở được rồi nhưng vấn đề ở chỗ mở bằng win xp thì nó hiện bình thường, còn mở win7 thì nó hiện nhưng ẩn dưới thanh taskbar chứ ko hiện lên để mình thao tác luôn mà phải click chuột xuống thanh taskbar thì nó mới lên. Các bạn biết khắc phục lỗi đó ko giúp mình với.
đây là code mình viết
Mã:
Private Sub FileName_Click()
'   khai bao bien
    Dim oXL As Object
    Dim oExcel As Object
    Dim sFullPath As String
    Dim sPath As String
    
    
'   Tao mot files excel ung dung ngam dinh
    Set oXL = CreateObject("Excel.Application")
    
'   Chi ho tro tinh nang UserControl trong ms acces 97
    On Error Resume Next
    oXL.usercontrol = True
    On Error GoTo 0
'   Duong dan chinh xac cua file excel can mo
    On Error GoTo ErrHandle
    sFullPath = CurrentProject.Path & "\YVLCRP_MIS_Data_Files\" + FileName + ".xlsx"
'   Thuc hien mo
    With oXL
        .Visible = True
         If txtCheck = "1" Then
        .Workbooks.Open (sFullPath)
        Else
        .Workbooks.Open (sFullPath), ReadOnly:=True
    End If
    End With
' Thong bao loi
ErrExit:
    Set oXL = Nothing
    Exit Sub
ErrHandle:
    oXL.Visible = False
    MsgBox Err.Description
    GoTo ErrExit
End Sub
Chữ ký của hopvq Xin chào, mình là hopvq, Tham gia http://thuthuataccess.com/forum từ ngày 11-04 -12.
Reply
Những người đã cảm ơn
#2
1/ Sao nhiều On Error ... thế ?
2/ Xem lại câu này :

Mã:
'Chi ho tro tinh nang UserControl trong ms acces 97
    On Error Resume Next
    oXL.usercontrol = True
    ....

3/ Thử thêm đoạn này xem sao(chưa test)

Mã:
...
    With oXL
        .Visible = True
         If txtCheck = "1" Then
            .Workbooks.Open (sFullPath)
            .Workbooks(sFullPath).Activate     'Them dong nay
        Else
            .Workbooks.Open (sFullPath), ReadOnly:=True
            .Workbooks(sFullPath).Activate    'Them dong nay
        End If
    End With
....
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
(25-04-12, 02:27 PM)Xuân Thanh Đã viết: 1/ Sao nhiều On Error ... thế ?
2/ Xem lại câu này :

Mã:
'Chi ho tro tinh nang UserControl trong ms acces 97
    On Error Resume Next
    oXL.usercontrol = True
    ....

3/ Thử thêm đoạn này xem sao(chưa test)

Mã:
...
    With oXL
        .Visible = True
         If txtCheck = "1" Then
            .Workbooks.Open (sFullPath)
            .Workbooks(sFullPath).Activate     'Them dong nay
        Else
            .Workbooks.Open (sFullPath), ReadOnly:=True
            .Workbooks(sFullPath).Activate    'Them dong nay
        End If
    End With
....
thên đoạn đó vào nó không mở được mà thông báo subscript out of range
Chữ ký của hopvq Xin chào, mình là hopvq, Tham gia http://thuthuataccess.com/forum từ ngày 11-04 -12.
Reply
Những người đã cảm ơn
#4
còn ai biết cách nào khác không chỉ mình với thanks nhiều. đang cần quá mà tìm hoài chưa có làm dc hết đó.
Chữ ký của hopvq Xin chào, mình là hopvq, Tham gia http://thuthuataccess.com/forum từ ngày 11-04 -12.
Reply
Những người đã cảm ơn
#5
(26-04-12, 11:16 AM)hopvq Đã viết: còn ai biết cách nào khác không chỉ mình với thanks nhiều. đang cần quá mà tìm hoài chưa có làm dc hết đó.

Cái này mình modife cách xuất File excel của bác DoomFootwear chắc cũng đúng ý tưởng của bạn
http://www.mediafire.com/?4pbvla28abd5hmp
Chữ ký của ledangvan Xin chào, mình là ledangvan, Tham gia http://thuthuataccess.com/forum từ ngày 22-08 -11.
ღღღღღTài sản của ledangvan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#6
(25-04-12, 05:30 PM)hopvq Đã viết: thên đoạn đó vào nó không mở được mà thông báo subscript out of range

Chắc chắn bạn chưa chọn Microsoft Excel ... library
Trong cửa sổ VBA vào menu Tools/Reference chọn cái library trên(con số trong dấu ... là theo phiên bản Office của bạn trên máy)
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#7
(26-04-12, 11:42 AM)ledangvan Đã viết:
(26-04-12, 11:16 AM)hopvq Đã viết: còn ai biết cách nào khác không chỉ mình với thanks nhiều. đang cần quá mà tìm hoài chưa có làm dc hết đó.

Cái này mình modife cách xuất File excel của bác DoomFootwear chắc cũng đúng ý tưởng của bạn
http://www.mediafire.com/?4pbvla28abd5hmp
Vẫn giống của mình khi mở nên file excel vấn ẩn dưới thanh taskbar mà ko hiện nên luôn
Chữ ký của hopvq Xin chào, mình là hopvq, Tham gia http://thuthuataccess.com/forum từ ngày 11-04 -12.
Reply
Những người đã cảm ơn
#8
Vẫn giống của mình khi mở nên file excel vấn ẩn dưới thanh taskbar mà ko hiện nên luôn
[/quote]

Chẳng biết bạn thử thế nào chứ mình ấn nút phát nó hiện lên luôn
Chữ ký của ledangvan Xin chào, mình là ledangvan, Tham gia http://thuthuataccess.com/forum từ ngày 22-08 -11.
ღღღღღTài sản của ledangvan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#9
(26-04-12, 12:03 PM)Xuân Thanh Đã viết:
(25-04-12, 05:30 PM)hopvq Đã viết: thên đoạn đó vào nó không mở được mà thông báo subscript out of range

Chắc chắn bạn chưa chọn Microsoft Excel ... library
Trong cửa sổ VBA vào menu Tools/Reference chọn cái library trên(con số trong dấu ... là theo phiên bản Office của bạn trên máy)
Mình add rùi nhưng vấn báo lỗi vậy. Có ai biết tại sao và cách khắc phục ko? chỉ mình cái thanks all
Chữ ký của hopvq Xin chào, mình là hopvq, Tham gia http://thuthuataccess.com/forum từ ngày 11-04 -12.
Reply
Những người đã cảm ơn
#10
(26-04-12, 02:43 PM)hopvq Đã viết: Mình add rùi nhưng vấn báo lỗi vậy. Có ai biết tại sao và cách khắc phục ko? chỉ mình cái thanks all

Thử dùng đoạn code đơn giản này xem sao. Lưu ý, cái này đã có trên diễn đàn nhưng tại bạn lười tìm thôi
Mã PHP:
Dim Ex
    Dim PathFull
    Dim PathEx
    PathFull 
"C:\Program Files\Microsoft Office\Office11\Excel.exe"
    
PathEx CurrentProject.Path "\FileEx.xls"
    
Ex Shell(PathFull " " PathExvbNormalFocus

Thay thế PathFull và PathEx cho phù hợp với máy bạn
Thân
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
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ần giúp làm đ.ồ á.n quản lý điểm bằng access với :( hoangcaron90 1 38 18-10-17, 03:35 PM
Bài mới nhất: minhtungph
  [Hỏi] Sao lưu file MDB và tạo lệnh phục hồi dữ liệu hoangminh 5 267 17-08-17, 03:54 PM
Bài mới nhất: cpucloi
  Chuyển đổi Access 97 sang Access 2007 huuduy.duy 6 418 11-08-17, 08:49 PM
Bài mới nhất: tranthanhan1962
  Tự chọn 1 trong 2 filed Giá theo điều kiện Global_virus 1 138 22-07-17, 03:05 AM
Bài mới nhất: cpucloi
  Nên bắt đầu với Access và VBA như thế nào? lehongduc 17 850 15-07-17, 02:51 AM
Bài mới nhất: tranthanhan1962

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ơ