Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Export dữ liệu access sang excel đồng thời mở file excel
#1
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!
Chữ ký của bangnguyencong 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
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).
Chữ ký của cpucloi Tôi chỉ biết mỗi một điều là những điều tôi biết được còn quá ít 021
Gmail: cgiahuy13@gmail.com


ღღღღღTài sản của cpucloi (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Xuân Thanh , Noname
#3
(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!
Chữ ký của paulsteigel ====================
Quốc gia hưng vong
Thất phu hữu trách
====================
Reply
Những người đã cảm ơn cpucloi , Noname , danhxetnghiem
#4
(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?
Chữ ký của domfootwear Xin chào Guest, nếu Guest biết thủ thuật nào thì nên chia sẻ cho cộng đồng nhé.
ღღღღღTài sản của domfootwear (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#5
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!
Chữ ký của bangnguyencong 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
#6
(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 StringstrFile As StringshSheet As StringCll 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(tblTabNamedbOpenTable)
    
Ws.Range(Cll).CopyFromRecordset rs
    fileEx
.SaveSet Ex Nothingrs.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(tblTabNamedbOpenTable)
    
Ws.Range("A1").CopyFromRecordset rs
    Ex
.Visible True
    Set Ex 
Nothingrs.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
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 bignosevinatex , Noname , Minh Tiên
#7
(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 StringstrFile As StringshSheet As StringCll 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(tblTabNamedbOpenTable)
    
Ws.Range(Cll).CopyFromRecordset rs
    fileEx
.SaveSet Ex Nothingrs.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(tblTabNamedbOpenTable)
    
Ws.Range("A1").CopyFromRecordset rs
    Ex
.Visible True
    Set Ex 
Nothingrs.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.
Chữ ký của domfootwear Xin chào Guest, nếu Guest biết thủ thuật nào thì nên chia sẻ cho cộng đồng nhé.
ღღღღღTài sản của domfootwear (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#8
(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 StringstrFile As StringshSheet As StringCll 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(tblTabNamedbOpenTable)
    
Ws.Range(Cll).CopyFromRecordset rs
    fileEx
.SaveSet Ex Nothingrs.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(tblTabNamedbOpenTable)
    
Ws.Range("A1").CopyFromRecordset rs
    Ex
.Visible True
    Set Ex 
Nothingrs.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?
Chữ ký của vulhu06 Xin chào, mình là vulhu06, Tham gia http://thuthuataccess.com/forum từ ngày 15-06 -12.
Reply
Những người đã cảm ơn
#9
(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(TabNamedbOpenTable)
    
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 Recordsetqr 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
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
#10
(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(TabNamedbOpenTable)
    
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 Recordsetqr 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
Chữ ký của vulhu06 Xin chào, mình là vulhu06, Tham gia http://thuthuataccess.com/forum từ ngày 15-06 -12.
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
  Cài đặt ODBC -nền tảng kết nối Access và nguồn dữ liệu khác Noname 33 19,307 01-12-16, 06:49 PM
Bài mới nhất: atula77
  Xây dựng Class Modules trong Access ( Cơ bản đến Nâng cao) maidinhdan 2 183 13-11-16, 05:32 PM
Bài mới nhất: cpucloi
  Hướng Dẫn Demo tổng hợp xuất Table, Query sang Excel có điều kiện ở vị trí nào cũng được maidinhdan 18 2,790 20-10-16, 11:51 AM
Bài mới nhất: jeck09nt
  Ms Access VBA và Google drive, một vài ý tưởng trong chia sẻ và đồng bộ số liệu... paulsteigel 46 3,856 07-10-16, 02:43 PM
Bài mới nhất: kieu manh
  Ứng dụng đổi tên file trong windows hàng loạt tranthanhan1962 7 1,211 19-09-16, 04:16 PM
Bài mới nhất: maidinhdan

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ơ