Bảo Trần
Bảo Trần
Thảo luận 3 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 330 lượt xem

Sub xuatPDF1phongthi()ActiveSheetExportAsFixedFormat xlTypePDF Filename=Range("P2")Value &

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 ạ

Thảo luận 3 câu trả lời
Lượt xem 330 lượt xem
Vỗ tay vỗ tay
Bảo Trần 08:12 - Dec 09, 2020

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ỗ tay vỗ tay
Bảo Trần 09:12 - Dec 09, 2020

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 ạ

Vỗ tay vỗ tay
Bảo Trần 09:12 - Dec 09, 2020

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.

Vỗ tay vỗ tay
Câu hỏi liên quan
© 2020 - Bản quyền của Công Ty Cổ Phần Công Nghệ Giáo Dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông