Đá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
  Lỗi không tạo file mới bằng định dạng .mdb feeling 4 79 29-11-16, 04:22 PM
Bài mới nhất: feeling
  [Help] Lỗi "A problem occurred while Microsoft Access was communicating with the OLE server thanhoai 1 107 03-11-16, 03:53 PM
Bài mới nhất: maidinhdan
  [Hỏi] Việc set thuộc tính OnClick trong Code toancvp 5 229 31-10-16, 10:14 AM
Bài mới nhất: toancvp
  [Lỗi] Cúp điện ---> lỗi access 2013 biencuong86 3 149 26-10-16, 04:30 PM
Bài mới nhất: maidinhdan
  thay đổi biểu tượng Access dưới thanh Start từ win 7 đến win 10 thanhtruong 7 431 05-08-16, 10:53 PM
Bài mới nhất: hungefi

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ơ