Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Mở file Excel từ access
#1
Chào các bạn. Các bạn giúp mình vấn đề sau nhé
Trên form mình có Command, trong sự kiện On Click mình có câu lệnh mở file excel như sau :

Private Sub Command0_Click()
Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE D:\BKBan.xls"
End Sub

Sau khi thực hiện thì file excel được mở nhưng nó lại nằm ẩn ở thanh Taskbar mà không chịu mở hẳn lên màn hình. Nhờ các bạn khắc phục dùm mình nhé. Cám ơn !


File đính kèm
.zip   Demo.zip (Kích cỡ: 86.23 KB / Tải về: 28)
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#2
Mình đọc files của bạn rồi. việc mở ms excell bạn gọi như thế chưa chỉ được đường dẫn tuyệt đối. mình nghiên cứu bạn có thể làm theo 2 bước sau:
1- Bước 1: Tạo modul project với đoạn code sau:
Option Compare Database
Option Explicit


Sub OpenSpecific_xlFile()
' 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 & "\TestFile.xls"


' Thuc hien mo
With oXL
.Visible = True
.Workbooks.Open (sFullPath)
End With
' Thong bao loi

ErrExit:
Set oXL = Nothing
Exit Sub

ErrHandle:
oXL.Visible = False
MsgBox Err.Description
GoTo ErrExit
End Sub

2- Bước 2: - gọi files excel tren form như sau:
Private Sub cmdOpenExcelFIle_Click()
' Access form button
Call OpenSpecific_xlFile

End Sub
sau đó save lại và chạy. chúc bạn thành công
đây là files mà mình đã sửa: http://www.mediafire.com/?iz7gbbk4eeimzju

<b>Nhớ thank cho mình hộ cái nhéTongue_smile51_51</b>
Chữ ký của quanghoasla Hãy chia sẻ kinh nghiệm cùng mình trênThuThuatAccess nhé! Chúc vui vẻ rose
My site: My site hoặc My site
ღღღღღTài sản của quanghoasla (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Cafe Via He
#3
(05-06-11, 03:25 PM)DoquangLam Đã viết: Chào các bạn. Các bạn giúp mình vấn đề sau nhé
Trên form mình có Command, trong sự kiện On Click mình có câu lệnh mở file excel như sau :

Private Sub Command0_Click()
Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE D:\BKBan.xls"
End Sub

Sau khi thực hiện thì file excel được mở nhưng nó lại nằm ẩn ở thanh Taskbar mà không chịu mở hẳn lên màn hình. Nhờ các bạn khắc phục dùm mình nhé. Cám ơn !
Bạn chỉnh đoạn code lại 1 chút là ổn

Mã:
Private Sub Command0_Click()
Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE D:\BKBan.xls" , vbNormalFocus
End Sub

Hàm SHELL được phát biểu như sau: SHELL (Pathname, [WindowStyle])

Nếu [WindowStyle] không khai báo, nó sẽ lấy giá trị 2 (vbMinimizedFocus )

Để hiểu thêm hàm SHELL, bạn vào menu Help của MS Access, gõ Shell
Chữ ký của Cafe Via He Ở nhờ nhà mẹ mình big green
ღღღღღTài sản của Cafe Via He (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
Hay quá, cám ơn tất cả các bạn.
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#5
Mã:
Private Sub Command0_Click()
Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE D:\BKBan.xls" , vbNormalFocus
End Sub

Cho mình hỏi, mình đã làm theo hướng dẫn nhưng không chạy được báo debug.

Như sau:
- Máy tính mình là Window 7 vào office 2007 ==> Mình đã sửa thành
Private Sub Command0_Click()
Shell "C:\Program Files\Microsoft Office\OFFICE12\EXCEL.EXE D:\BKBan.xls" , vbNormalFocus
End Sub
- Mình đã lôi ở thư viện  : tool/reference/  Microsoft excel 12.0
Nhờ các bạn hỗ trợ thêm
Chữ ký của Trần Linh Nothing is impossible. Just do it!!! 
Reply
Những người đã cảm ơn
#6
(08-06-16, 08:45 PM)Trần Linh Đã viết: Mã:
Private Sub Command0_Click()
Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE D:\BKBan.xls" , vbNormalFocus
End Sub

Cho mình hỏi, mình đã làm theo hướng dẫn nhưng không chạy được báo debug.

Như sau:
- Máy tính mình là Window 7 vào office 2007 ==> Mình đã sửa thành
Private Sub Command0_Click()
Shell "C:\Program Files\Microsoft Office\OFFICE12\EXCEL.EXE D:\BKBan.xls" , vbNormalFocus
End Sub
- Mình đã lôi ở thư viện  : tool/reference/  Microsoft excel 12.0
Nhờ các bạn hỗ trợ thêm

Xem Demo này: [Hàm] Demo Hàm mở mọi loại file ( Access)
 
Bạn chú ý bài viết thứ 4: Code ngắn gọn và sử dụng dễ nhất

Thân mến
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (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
Photo [Hỏi] Mở Form trên access 2007 báo lỗi jason 5 187 22-11-16, 09:23 AM
Bài mới nhất: jason
  Chèn file văn bản word vào access danhxetnghiem 10 437 11-10-16, 03:42 PM
Bài mới nhất: danhxetnghiem
  [Hỏi] In mã vạch tạo từ access ra máy in mã vạch thanhtruong 30 2,036 24-07-16, 08:49 PM
Bài mới nhất: hungefi
  [Help] Hiện các nội dung các file văn bản và hình ảnh trên Form thdanh 2 142 22-07-16, 10:26 PM
Bài mới nhất: ongke0711
  Co dãn form access theo độ phân giải màn hình hoanbhxhls 13 1,098 21-07-16, 11:28 AM
Bài mới nhất: paulsteigel

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ơ