Sub xuatPDF1phongthi()
ActiveSheet.ExportAsFixedFormat xlTypePDF, Filename:=Range("P2").Value & "" & Range("P1").Value
MsgBox "PDF file has been created"
End Sub
-> Đây là câu lệnh em dùng xuất ra file PDF, em muốn hỏi muốn xuất ra files excel trong 1 sheet thì ntn ạ
Bạn tạo 1 workbook với câu lệnh:
Dim new_wb as Workbook
Set new_wb = Workbooks.Add
Sau đó bạn sao chép nội dung từ workbook ban đầu sang workbook mới thôi:
new_wb.Sheet...Range(...).Value = Thisworkbook.Sheet...Range(...).Value
Tiếp theo bạn sẽ thiết lập định dạng cho workbook mới.
(Hoặc bạn có thể sử dụng chức năng Copy > Paste cho nhanh)
Vâng em sẽ thử ạ. Khó của em là em là em sẽ phải trích xuất tương đối nhiều phòng/nhiều trường ạ. Em cảm ơn ạ
Bạn cứ thử xem, nếu gặp khó khăn gì bạn có thể hỏi tiếp. Nếu câu hỏi cụ thể về 1 đoạn code, 1 lỗi... thì cần có file đính kèm hoặc hình ảnh mô tả, như vậy sẽ dễ kiểm tra và hướng dẫn cho bạn.