• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Mở file Excel từ access

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Mở file Excel từ access
• Mở file Excel từ access

• Mở file Excel từ access

  DoquangLam > 05-06-11, 03:25 PM

  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 !

• RE: Mở file Excel từ access

  quanghoasla > 05-06-11, 10:20 PM

  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é</b>

• RE: Mở file Excel từ access

  Cafe Via He > 06-06-11, 10:12 AM

  (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
  

• RE: Mở file Excel từ access

  DoquangLam > 06-06-11, 12:39 PM

  Hay quá, cám ơn tất cả các bạn.

• RE: Mở file Excel từ access

  Trần Linh > 08-06-16, 08:45 PM

  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

• RE: Mở file Excel từ access

  maidinhdan > 08-06-16, 11:28 PM

  (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
• Bài trước Bài tiếp