nam8384 > 05-05-16, 05:34 PM
maidinhdan > 05-05-16, 11:27 PM
(05-05-16, 05:34 PM)nam8384 Đã viết: Mong các cao thủ chỉ giáo. nếu ở chế độ report khi xuất sang excel thì chỉ có tùy chọn định dạng xls. ở định dạng xls thì cột nội dung hay bị mất chữ khi nội dung quá dài còn nếu là định dạng xlsx thì nội dung nguyên vẹn. Có cách nào bổ sung để có lựa chọn xuất sang định dạng xlsx không các bác. E cũng muốn hỏi thêm là trong form kiểu datasheet khi xuất sang excel thì chẳng có nội dung gì nhưng ở kiểu tabular chẳng hạn thì xuất đầy đủ nội dung các cột và rất là đẹp. Mong các bác chỉ giáo
With wb.Worksheets(1)
.......
Next i
.Rows("1:16").Insert Shift:=xlDown 'Chèn vào 16 dòng tren dau trang
.Columns.EntireColumn.AutoFit 'Tu dong chinh chieu rong cac cot
.Columns.EntireRow.AutoFit 'Tu dong chinh chieu cao cac dong
.Columns(6).NumberFormat = "d/M/yyyy" 'Dinh dang cot F kieu "d/M/yyyy"
.Columns(8).NumberFormat = "@" 'Dinh dang cot H kieu Text
End With
nam8384 > 06-05-16, 10:58 AM
(05-05-16, 11:27 PM)maidinhdan Đã viết:(05-05-16, 05:34 PM)nam8384 Đã viết: Mong các cao thủ chỉ giáo. nếu ở chế độ report khi xuất sang excel thì chỉ có tùy chọn định dạng xls. ở định dạng xls thì cột nội dung hay bị mất chữ khi nội dung quá dài còn nếu là định dạng xlsx thì nội dung nguyên vẹn. Có cách nào bổ sung để có lựa chọn xuất sang định dạng xlsx không các bác. E cũng muốn hỏi thêm là trong form kiểu datasheet khi xuất sang excel thì chẳng có nội dung gì nhưng ở kiểu tabular chẳng hạn thì xuất đầy đủ nội dung các cột và rất là đẹp. Mong các bác chỉ giáo
Trả lời: Thư viện của Office 2007 trở lên linh động hơn thư viện Office 2003 nên khi xuất sang Excel nếu nội dung quá dài sẽ bị mất chữ như bạn hỏi.
Cách khắc phục: chèn code sau:
Mã PHP:With wb.Worksheets(1)
.......
Next i
.Rows("1:16").Insert Shift:=xlDown 'Chèn vào 16 dòng tren dau trang
.Columns.EntireColumn.AutoFit 'Tu dong chinh chieu rong cac cot
.Columns.EntireRow.AutoFit 'Tu dong chinh chieu cao cac dong
.Columns(6).NumberFormat = "d/M/yyyy" 'Dinh dang cot F kieu "d/M/yyyy"
.Columns(8).NumberFormat = "@" 'Dinh dang cot H kieu Text
End With
Link Demo và bài viết chi tiết tại đây: Đọc từ bài thứ #12 trở đi.
Thân mến!