In bảng ra excell
Em có dùng 2 câu lệnh này để in ra exell
Câu 1:
DoCmd.OutputTo acOutputQuery, "Ｑ＿教育実施_スタッフの入社の月", "MicrosoftExcel(*.xls)", "", True, ""
 dùng câu này thì mỗi lần in đều có msgbox hỏ đỉa điểm lưu và tên lưu.(để khắc phục em có chạy câu  2)
Câu 2 :
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "Q_教育実施_スタッフの入社の月", GetDeskTopPass & "\教育実施_スタッフの入社の月(" & Format(txtGetsudo.Value, "yyyymm") & ").xls", True
Nhưng lại bão lỗi ko chạy đk
Các anh cho em ý kiến mới ạ. Cảm ơn mọi người ạ

(24-03-17, 01:38 PM)HoangManh Đã viết: In bảng ra excell
Em có dùng 2 câu lệnh này để in ra exell
Câu 1:
DoCmd.OutputTo acOutputQuery, "Ｑ＿教育実施_スタッフの入社の月", "MicrosoftExcel(*.xls)", "", True, ""
 dùng câu này thì mỗi lần in đều có msgbox hỏ đỉa điểm lưu và tên lưu.(để khắc phục em có chạy câu  2)
Câu 2 :
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "Q_教育実施_スタッフの入社の月", GetDeskTopPass & "\教育実施_スタッフの入社の月(" & Format(txtGetsudo.Value, "yyyymm") & ").xls", True
Nhưng lại bão lỗi ko chạy đk
Các anh cho em ý kiến mới ạ. Cảm ơn mọi người ạ

Trả lời:
1. Liên quan đến DoCmd.OutputTo, khuyên bạn đừng dùng,
Lý do tôi có trả lời link này: Trả lời câu hỏi bạn dinhnhieu: Export Query sang Excel có điều kiện


2. Liên quan đến lệnh DoCmd.TransferSpreadsheet
+ Trong đường dẫn đến nơi lưu không có ký tự đặt biệt như là tiếng việt có dấu chẳng hạn, cho nên bạn kiểm tra đoạn này lại

Sẳn đây Xin nói thêm về phiên bản Access mấy

Xin nhắc lại cú pháp của DoCmd.TransferSpreadsheet


Bạn lưu ý dùm tôi tham số SpreadsheetType: ở bài bạn bạn dùng SpreadsheetType8, cái này chỉ hỗ trợ cho Excel 97,2000, tôi xin liệt kê ra hết để bạn cùng tham khảo

Tên phương thức___________Viết tắt cho Tên_________Hỗ trợ trên phiên bản Excel
acSpreadsheetTypeExcel3___________0_____________Microsoft Excel 3.0 format
acSpreadsheetTypeExcel4____________6_____________Microsoft Excel 4.0 format
acSpreadsheetTypeExcel5____________5_____________Microsoft Excel 5.0 format
acSpreadsheetTypeExcel7____________5______________Microsoft Excel 95 format
acSpreadsheetTypeExcel8____________8______________Microsoft Excel 97 format
acSpreadsheetTypeExcel9____________8______________Microsoft Excel 2000 format
acSpreadsheetTypeExcel12___________9______________Microsoft Excel 2010 format
acSpreadsheetTypeExcel12Xml________10______________Microsoft Excel 2010 XML format



=> Cú pháp xuất lên Excel 2010 sẽ là:
hoặc viết tặt bằng số

Trong đó:
+ Nơi lưu file: là tên file Excel bạn muốn đặt ( ví dụ như Xuất lên ổ đĩa C và đặt tên là Baocao ta phải ghi là: "C:/BaoCao.xlsx"

Chi tiết tham khảo link này: http://access-excel.tips/access-vba-cocm...readsheet/

(24-03-17, 05:48 PM)maidinhdan Đã viết:

(24-03-17, 01:38 PM)HoangManh Đã viết: In bảng ra excell
Em có dùng 2 câu lệnh này để in ra exell
Câu 1:
DoCmd.OutputTo acOutputQuery, "Ｑ＿教育実施_スタッフの入社の月", "MicrosoftExcel(*.xls)", "", True, ""
 dùng câu này thì mỗi lần in đều có msgbox hỏ đỉa điểm lưu và tên lưu.(để khắc phục em có chạy câu  2)
Câu 2 :
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "Q_教育実施_スタッフの入社の月", GetDeskTopPass & "\教育実施_スタッフの入社の月(" & Format(txtGetsudo.Value, "yyyymm") & ").xls", True
Nhưng lại bão lỗi ko chạy đk
Các anh cho em ý kiến mới ạ. Cảm ơn mọi người ạ

Trả lời:
1. Liên quan đến DoCmd.OutputTo, khuyên bạn đừng dùng,
Lý do tôi có trả lời link này: Trả lời câu hỏi bạn dinhnhieu: Export Query sang Excel có điều kiện


2. Liên quan đến lệnh DoCmd.TransferSpreadsheet
+ Trong đường dẫn đến nơi lưu không có ký tự đặt biệt như là tiếng việt có dấu chẳng hạn, cho nên bạn kiểm tra đoạn này lại

Mã PHP:

GetDeskTopPass & "\教育実施_スタッフの入社の月(" & Format(txtGetsudo.Value, "yyyymm") & ").xls" 


Sẳn đây Xin nói thêm về phiên bản Access mấy

Xin nhắc lại cú pháp của DoCmd.TransferSpreadsheet

Mã PHP:

TransferSpreadsheet(TransferType, SpreadsheetType, TableName, FileName, HasFieldNames, Range, UseOA) 


Bạn lưu ý dùm tôi tham số SpreadsheetType: ở bài bạn bạn dùng SpreadsheetType8, cái này chỉ hỗ trợ cho Excel 97,2000, tôi xin liệt kê ra hết để bạn cùng tham khảo

Tên phương thức___________Viết tắt cho Tên_________Hỗ trợ trên phiên bản Excel
acSpreadsheetTypeExcel3___________0_____________Microsoft Excel 3.0 format
acSpreadsheetTypeExcel4____________6_____________Microsoft Excel 4.0 format
acSpreadsheetTypeExcel5____________5_____________Microsoft Excel 5.0 format
acSpreadsheetTypeExcel7____________5______________Microsoft Excel 95 format
acSpreadsheetTypeExcel8____________8______________Microsoft Excel 97 format
acSpreadsheetTypeExcel9____________8______________Microsoft Excel 2000 format
acSpreadsheetTypeExcel12___________9______________Microsoft Excel 2010 format
acSpreadsheetTypeExcel12Xml________10______________Microsoft Excel 2010 XML format



=> Cú pháp xuất lên Excel 2010 sẽ là:

Mã PHP:

Docmd.TransferSpreadsheet acExport,acSpreadsheetTypeExcel12,"Tên table","Nơi lưu file",True 


hoặc viết tặt bằng số

Mã PHP:

Docmd.TransferSpreadsheet 1,12,"Tên table","Nơi lưu file",True 


Trong đó:
+ Nơi lưu file: là tên file Excel bạn muốn đặt ( ví dụ như Xuất lên ổ đĩa C và đặt tên là Baocao ta phải ghi là: "C:/BaoCao.xlsx"

Chi tiết tham khảo link này: http://access-excel.tips/access-vba-cocm...readsheet/

Cảm ơn anh ạ. nhưng câu 2 sai thì do query em đinh export ra excell hiện đang là adpen query nên không lưu ra đựoc thôi ạ. còn câu code thì không có lỗi.

(27-03-17, 01:26 PM)HoangManh Đã viết: Cảm ơn anh ạ. nhưng câu 2 sai thì do query em đinh export ra excell hiện đang là adpen query nên không lưu ra đựoc thôi ạ. còn câu code thì không có lỗi.

Bạn đọc link ý số 1 tôi trả lời chưa, tin chắc đọc không kỹ nên mới hỏi câu này.

....Chú ý đoạn Lưu ý khi dùng 03 cách trên: đọc thật kỹ vào.

Và bài #2 sẽ dẫn bạn đến 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