hopvq > 25-04-12, 02:04 PM
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 SubXuân Thanh > 25-04-12, 02:27 PM
'Chi ho tro tinh nang UserControl trong ms acces 97
On Error Resume Next
oXL.usercontrol = True
.......
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
....hopvq > 25-04-12, 05:30 PM
(25-04-12, 02:27 PM)Xuân Thanh Đã viết: 1/ Sao nhiều On Error ... thế ?thên đoạn đó vào nó không mở được mà thông báo subscript out of range
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
....
hopvq > 26-04-12, 11:16 AM
ledangvan > 26-04-12, 11:42 AM
(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 đó.
Xuân Thanh > 26-04-12, 12:03 PM
hopvq > 26-04-12, 02:31 PM
(26-04-12, 11:42 AM)ledangvan Đã viết: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(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
ledangvan > 26-04-12, 02:37 PM
hopvq > 26-04-12, 02:43 PM
(26-04-12, 12:03 PM)Xuân Thanh Đã 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(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)
Xuân Thanh > 26-04-12, 03:11 PM
(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
Dim Ex
Dim PathFull
Dim PathEx
PathFull = "C:\Program Files\Microsoft Office\Office11\Excel.exe"
PathEx = CurrentProject.Path & "\FileEx.xls"
Ex = Shell(PathFull & " " & PathEx, vbNormalFocus)