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!

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).

(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!

(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?

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!

(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


2/ File mới


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

(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.

(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?

(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:


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?

Thân mến

(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