Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Export query access 2007 to excel 2007 (xlsx)
#1
Hi all,
Mình đang gặp khó khăn trong việc viết code VBA để export Query to Excel file. Mình cũng đã search trên diễn đàn nhưng khi làm code vẫn không chạy. Nếu làm bằng marco thì làm được nhưng chỉ xuất được 1 file. Mình muốn viết code để xuất được nhiều file cùng một lúc. VD như đoạn code của mình như sau
[php\
Private Sub CmdExport_Click()

Kill "c:\MFG2_Report\TmpDownSummaryLL.xlsx"
Kill "c:\MFG2_Report\TmpDownTimeDetailLL.xlsx"
Kill "c:\MFG2_Report\TmpDTDetailReportLL.xlsx"
Kill "c:\MFG2_Report\TmpLoopCounterAB.xlsx"
Kill "c:\MFG2_Report\TmpPipeforSlittingAB.xlsx"
Kill "c:\MFG2_Report\TmpLoopCounterCD.xlsx"
Kill "c:\MFG2_Report\TmpPipeforSlittingCD.xlsx"
Kill "c:\MFG2_Report\TmpSortReportLL.xlsx"

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "QryDownSummaryLL", "c:\MFG2_Report\TmpDownSummaryLL.xlsx"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "QryDownTimeDetailLL", "c:\MFG2_Report\TmpDownTimeDetailLL.xlsx"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "QryDTDetailReportLL", "c:\MFG2_Report\TmpDTDetailReportLL.xlsx"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "QryLoopCounterAB", "c:\MFG2_Report\TmpLoopCounterAB.xlsx"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "QryLoopCounterCD", "c:\MFG2_Report\TmpLoopCounterCD.xlsx"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "QryPipeforSlittingAB", "c:\MFG2_Report\TmpPipeforSlittingAB.xlsx"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "QryPipeforSlittingCD", "c:\MFG2_Report\TmpPipeforSlittingCD.xlsx"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "QrySortReportLL", "c:\MFG2_Report\TmpSortReportLL.xlsx"

MsgBox "Report have been completed"

End Sub/php]

Một số bài viết sử dụng recordset nhưng thú thực cái đó hơi phức tạp, nhưng chẳng lẽ trên VBA có cấu trúc code như vậy mà không chạy được thì không biết mình sai ở chỗ nào. Ngoài ra một số ý kiến sử dụng cấu trúc Docmd.Output to nhưng mình áp dụng nó cũng không xuất được. vậy nhờ mọi người cho mình ý kiến nhé

Thanks and best regards,
TVN
Chữ ký của tvn_hut Xin chào, mình là Dameaccess, Tham gia http://thuthuataccess.com/forum từ ngày 06-06 -13.
Reply
Những người đã cảm ơn
#2
Có ai biết rõ về vấn đề này không nhỉ? Noname, Xuan Thanh, Mr.Loi... hay ai đó có thể giúp mình giải quyết cái này không?

021
Chữ ký của tvn_hut Xin chào, mình là Dameaccess, Tham gia http://thuthuataccess.com/forum từ ngày 06-06 -13.
Reply
Những người đã cảm ơn
#3
theo như mình thấy bạn đang sử dụng AC2007 hay AC2010 về sau đúng không?

mà AC sau này, khi bạn thiết kế report, lúc acPreview lên, click chuột phải sẽ cho phép export nội dung cái report đó ra word, excell sẵn luôn. tội tình chi viết công cụ cho tốn sức vậy.

thử tìm hiểu xem bạn nhé!
Thân!
ღღღღღTài sản của bomnhauag (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
  Làm sao chạy được code cả trong access 32 bit và access 64 bit haquocquan 1 94 12-09-17, 11:15 PM
Bài mới nhất: maidinhdan
  Hướng Dẫn Tư vấn import data(đuôi csv) vào file access nguồn subasatran 4 284 01-09-17, 03:20 PM
Bài mới nhất: subasatran
  Xin file demo theo yêu cầu, tùy biến các query theo câu lệnh SQL Đình Phán 12 476 19-08-17, 07:08 AM
Bài mới nhất: cpucloi
  [Hỏi] VBA Access: điều khiển lệnh Excel, Access khác vodainhan 10 749 19-07-17, 12:13 PM
Bài mới nhất: vodainhan
  [Hỏi] Nối dữ liệu từ nhiều file Access?? btnnhut 12 513 17-07-17, 08:44 AM
Bài mới nhất: tranthanhan1962

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ơ