HoangManh > 24-03-17, 01:38 PM
maidinhdan > 24-03-17, 05:48 PM
(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 ạ
GetDeskTopPass & "\教育実施_スタッフの入社の月(" & Format(txtGetsudo.Value, "yyyymm") & ").xls"
TransferSpreadsheet(TransferType, SpreadsheetType, TableName, FileName, HasFieldNames, Range, UseOA)
Docmd.TransferSpreadsheet acExport,acSpreadsheetTypeExcel12,"Tên table","Nơi lưu file",True
Docmd.TransferSpreadsheet 1,12,"Tên table","Nơi lưu file",True
HoangManh > 27-03-17, 01:26 PM
(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à:
hoặc viết tặt bằng sốMã PHP:Docmd.TransferSpreadsheet acExport,acSpreadsheetTypeExcel12,"Tên table","Nơi lưu file",True
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/
maidinhdan > 27-03-17, 09:24 PM
(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.