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

Export dữ liệu access sang excel đồng thời mở file excel

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Tương tác Chương trình ngoài
  • [Help] Export dữ liệu access sang excel đồng thời mở file excel
• Export dữ liệu access sang excel đồng thời mở file excel

• Export dữ liệu access sang excel đồng thời mở file excel

  bangnguyencong > 19-07-13, 11:42 PM

  Export dữ liệu sang file excel trên cùng thư mục hiện hành thì các topic khác đã có đề cập.
  Sau khi export xong thì có cách nào đồng thời mở file excel này không?
  Nhờ các bạn giúp đỡ!
  Trân trọng!

• RE: Export dữ liệu access sang excel đồng thời mở file excel

  cpucloi > 20-07-13, 08:43 AM

  Khi truy xuất đối tượng excel thì thường làm cho nó ẩn đi (visible = false) giờ bạn làm cho nó hiện lên thôi (visible = true)
  
  Bạn xem cuối thủ tục sẽ có phần đóng app giải phóng bộ nhớ đó (làm tương tự là được).

• RE: Export dữ liệu access sang excel đồng thời mở file excel

  paulsteigel > 20-07-13, 11:30 AM

  (20-07-13, 08:43 AM)cpucloi Đã viết: Khi truy xuất đối tượng excel thì thường làm cho nó ẩn đi (visible = false) giờ bạn làm cho nó hiện lên thôi (visible = true)
  
  Bạn xem cuối thủ tục sẽ có phần đóng app giải phóng bộ nhớ đó (làm tương tự là được).

  
  Đồng chí Lợi bị nhầm một tí...
  Khách hàng có nói là xuất sang dạng Export chứ có nói là tương tác đâu! Trường hợp export thì Access tự biên tự diễn và nó không tương tác với Excel Application. Vì thế bật visible không có tác dụng mà còn bị lỗi.
  Nếu xuất dữ liệu dạng tương tác thì cũng không phải mặc định là nó ẩn đâu, mặc định Excel sẽ hiện ra khi tạo ra một phiên làm việc.
  
  Quay về đầu bài - nếu bạn xuất dữ liệu, thường thì Access sẽ lấy tên đối tượng để đặt cho file Excel, và bạn cũng có thể tự đặt tên và đường dẫn cho file Excel này đấy.
  Bạn nên đưa đoạn thủ tục xuất lên thì góp ý mới đúng được!

• RE: Export dữ liệu access sang excel đồng thời mở file excel

  domfootwear > 20-07-13, 02:23 PM

  (19-07-13, 11:42 PM)bangnguyencong Đã viết: Export dữ liệu sang file excel trên cùng thư mục hiện hành thì các topic khác đã có đề cập.
  Sau khi export xong thì có cách nào đồng thời mở file excel này không?
  Nhờ các bạn giúp đỡ!
  Trân trọng!

  
  Export từ table sang file excel mới hoàn toàn hay là file excel có sẵn?

• RE: Export dữ liệu access sang excel đồng thời mở file excel

  bangnguyencong > 06-03-14, 10:19 AM

  File mới hoàn toàn đấy bạn.
  Hoặc file có sẵn cũng được.
  Nhờ bạn hướng dẫn giúp.
  Thanks!

• RE: Export dữ liệu access sang excel đồng thời mở file excel

  Xuân Thanh > 06-03-14, 08:13 PM

  (06-03-14, 10:19 AM)bangnguyencong Đã viết: File mới hoàn toàn đấy bạn.
  Hoặc file có sẵn cũng được.
  Nhờ bạn hướng dẫn giúp.
  Thanks!

  
  1/ File có sẵn
  
  

  Mã PHP:

  Function ExAcEx(tblTabName As String, strFile As String, shSheet As String, Cll As String)
    Dim Ex As New Excel.Application
    Dim fileEx As Workbook
    Set fileEx = Ex.Workbooks.Open(strFile)
    Dim Ws As Worksheet
    Set Ws = fileEx.Worksheets(shSheet)
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset(tblTabName, dbOpenTable)
    Ws.Range(Cll).CopyFromRecordset rs
    fileEx.Save: Set Ex = Nothing: rs.Close
End Function 


  
  2/ File mới
  
  

  Mã PHP:

  Function ExAcEx(tblTabName As String)
    Dim Ex As New Excel.Application
    Dim fileEx As Workbook
    Set fileEx = Ex.Workbooks.Add
    Dim Ws As Worksheet
    Set Ws = fileEx.Worksheets("Sheet1")
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset(tblTabName, dbOpenTable)
    Ws.Range("A1").CopyFromRecordset rs
    Ex.Visible = True
    Set Ex = Nothing: rs.Close
End Function 


  
  Lưu ý :
  1/ Nhớ chọn Microsoft Excel xx Libary
  2/ Sửa lại theo ý muốn của bạn
  Thân mến

• RE: Export dữ liệu access sang excel đồng thời mở file excel

  domfootwear > 07-04-14, 03:49 PM

  (06-03-14, 08:13 PM)Xuân Thanh Đã viết:

  (06-03-14, 10:19 AM)bangnguyencong Đã viết: File mới hoàn toàn đấy bạn.
  Hoặc file có sẵn cũng được.
  Nhờ bạn hướng dẫn giúp.
  Thanks!

  
  1/ File có sẵn
  
  

  Mã PHP:

  Function ExAcEx(tblTabName As String, strFile As String, shSheet As String, Cll As String)
    Dim Ex As New Excel.Application
    Dim fileEx As Workbook
    Set fileEx = Ex.Workbooks.Open(strFile)
    Dim Ws As Worksheet
    Set Ws = fileEx.Worksheets(shSheet)
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset(tblTabName, dbOpenTable)
    Ws.Range(Cll).CopyFromRecordset rs
    fileEx.Save: Set Ex = Nothing: rs.Close
End Function 


  
  2/ File mới
  
  

  Mã PHP:

  Function ExAcEx(tblTabName As String)
    Dim Ex As New Excel.Application
    Dim fileEx As Workbook
    Set fileEx = Ex.Workbooks.Add
    Dim Ws As Worksheet
    Set Ws = fileEx.Worksheets("Sheet1")
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset(tblTabName, dbOpenTable)
    Ws.Range("A1").CopyFromRecordset rs
    Ex.Visible = True
    Set Ex = Nothing: rs.Close
End Function 


  
  Lưu ý :
  1/ Nhớ chọn Microsoft Excel xx Libary
  2/ Sửa lại theo ý muốn của bạn
  Thân mến

  Đưa vào code luôn anh. Làm như anh hướng dẫn sẽ không chạy được đối với máy có Excel cài ở phiên bản khác.

• RE: Export dữ liệu access sang excel đồng thời mở file excel

  vulhu06 > 24-04-14, 02:51 PM

  (07-04-14, 03:49 PM)domfootwear Đã viết:

  (06-03-14, 08:13 PM)Xuân Thanh Đã viết:

  (06-03-14, 10:19 AM)bangnguyencong Đã viết: File mới hoàn toàn đấy bạn.
  Hoặc file có sẵn cũng được.
  Nhờ bạn hướng dẫn giúp.
  Thanks!

  
  1/ File có sẵn
  
  

  Mã PHP:

  Function ExAcEx(tblTabName As String, strFile As String, shSheet As String, Cll As String)
    Dim Ex As New Excel.Application
    Dim fileEx As Workbook
    Set fileEx = Ex.Workbooks.Open(strFile)
    Dim Ws As Worksheet
    Set Ws = fileEx.Worksheets(shSheet)
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset(tblTabName, dbOpenTable)
    Ws.Range(Cll).CopyFromRecordset rs
    fileEx.Save: Set Ex = Nothing: rs.Close
End Function 


  
  2/ File mới
  
  

  Mã PHP:

  Function ExAcEx(tblTabName As String)
    Dim Ex As New Excel.Application
    Dim fileEx As Workbook
    Set fileEx = Ex.Workbooks.Add
    Dim Ws As Worksheet
    Set Ws = fileEx.Worksheets("Sheet1")
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset(tblTabName, dbOpenTable)
    Ws.Range("A1").CopyFromRecordset rs
    Ex.Visible = True
    Set Ex = Nothing: rs.Close
End Function 


  
  Lưu ý :
  1/ Nhớ chọn Microsoft Excel xx Libary
  2/ Sửa lại theo ý muốn của bạn
  Thân mến

  Đưa vào code luôn anh. Làm như anh hướng dẫn sẽ không chạy được đối với máy có Excel cài ở phiên bản khác.

  
  Em cũng đang cần cái này, Em hỏi chút, đoạn code trên là mở table rồi xuất. Vậy em muốn mở query thì sửa code ra sao?

• RE: Export dữ liệu access sang excel đồng thời mở file excel

  Xuân Thanh > 24-04-14, 05:43 PM

  (07-04-14, 03:49 PM)domfootwear Đã viết: Đưa vào code luôn anh. Làm như anh hướng dẫn sẽ không chạy được đối với máy có Excel cài ở phiên bản khác.

  
  Lâu rồi mới quay lại đề tài này. Đúng như domfootwear đã nói, với đoạn lệnh trên nếu quên không chọn Microsof Excel xx Object Libary hoặc chạy trên môi trường khác sẽ bị lỗi. Vậy các bạn chỉnh sửa lại như sau:
  
  

  Mã PHP:

  Function ExAcEx(TabName As String)
    Dim Ex As Object
    Dim Wb As Object
    Dim Ws As Object
    Set Ex = CreateObject("Excel.Application")
    Set Wb = Ex.Workbooks.Add
    Set Ws = Wb.Worksheets("Sheet1")
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset(TabName, dbOpenTable)
    Ws.Range("A1").CopyFromRecordset rs
    Ex.Visible = True
End Function 


  
  Thân mến
  
  

  (24-04-14, 02:51 PM)vulhu06 Đã viết: Em cũng đang cần cái này, Em hỏi chút, đoạn code trên là mở table rồi xuất. Vậy em muốn mở query thì sửa code ra sao?

  
  

  Mã PHP:

  Function ExAcEx(qryName As String)
    Dim Ex As Object
    Dim Wb As Object
    Dim Ws As Object
    Set Ex = CreateObject("Excel.Application")
    Set Wb = Ex.Workbooks.Add
    Set Ws = Wb.Worksheets("Sheet1")
    Dim rs As Recordset, qr As QueryDef
    Set qr = CurrentDb.QueryDefs(qryName)
    Set rs = qr.OpenRecordset()    
    Ws.Range("A1").CopyFromRecordset rs
    Ex.Visible = True
End Function 


  
  Thân mến

• RE: Export dữ liệu access sang excel đồng thời mở file excel

  vulhu06 > 25-04-14, 05:38 PM

  (24-04-14, 05:43 PM)Xuân Thanh Đã viết:

  (07-04-14, 03:49 PM)domfootwear Đã viết: Đưa vào code luôn anh. Làm như anh hướng dẫn sẽ không chạy được đối với máy có Excel cài ở phiên bản khác.

  
  Lâu rồi mới quay lại đề tài này. Đúng như domfootwear đã nói, với đoạn lệnh trên nếu quên không chọn Microsof Excel xx Object Libary hoặc chạy trên môi trường khác sẽ bị lỗi. Vậy các bạn chỉnh sửa lại như sau:
  
  

  Mã PHP:

  Function ExAcEx(TabName As String)
    Dim Ex As Object
    Dim Wb As Object
    Dim Ws As Object
    Set Ex = CreateObject("Excel.Application")
    Set Wb = Ex.Workbooks.Add
    Set Ws = Wb.Worksheets("Sheet1")
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset(TabName, dbOpenTable)
    Ws.Range("A1").CopyFromRecordset rs
    Ex.Visible = True
End Function 


  
  Thân mến
  
  

  (24-04-14, 02:51 PM)vulhu06 Đã viết: Em cũng đang cần cái này, Em hỏi chút, đoạn code trên là mở table rồi xuất. Vậy em muốn mở query thì sửa code ra sao?

  
  

  Mã PHP:

  Function ExAcEx(qryName As String)
    Dim Ex As Object
    Dim Wb As Object
    Dim Ws As Object
    Set Ex = CreateObject("Excel.Application")
    Set Wb = Ex.Workbooks.Add
    Set Ws = Wb.Worksheets("Sheet1")
    Dim rs As Recordset, qr As QueryDef
    Set qr = CurrentDb.QueryDefs(qryName)
    Set rs = qr.OpenRecordset()    
    Ws.Range("A1").CopyFromRecordset rs
    Ex.Visible = True
End Function 


  
  Thân mến

  
  Em có chạy thử đoạn code trên rồi, nó báo lỗi dòng Set rs = qr.OpenRecordset() , đại ý là few parameter
• Bài trước Bài tiếp