Xuất dữ liệu từ báo cáo chi tiết sang file excel mới

[newlove]

Dear anh chị
Em đang tìm code vba xuất giữ liệu từ 1 sheet (báo cáo chi tiết) sang file excel mới để gửi cho khách hàng
mong mọi người giúp đỡ.
Trên mạng chỉ có code xuất toàn bộ sheet thội ạ, không có cái em cần

 

[nguoiconxunui]

Nếu gửi khách hàng thì xuất pdf ý.

 

[newlove]

Nhiều khách hàng lại muốn excel để kiểm tra số liệu bác ạ

 

[snow25]

Dear anh chị
Em đang tìm code vba xuất giữ liệu từ 1 sheet (báo cáo chi tiết) sang file excel mới để gửi cho khách hàng
mong mọi người giúp đỡ.
Trên mạng chỉ có code xuất toàn bộ sheet thội ạ, không có cái em cần

Cái bạn cần là cái nào ta.Xuất từ data như thế nào.Đặt tên như thế nào.Lưu file ở đâu.Cho cái file lên đây xem nào.

 

[newlove]

Sub sb_Copy_Save_Worksheet_As_Workbook()
Dim wb As Workbook
Set wb = Workbooks.Add
ThisWorkbook.Sheets("Sheet2").Copy Before:=wb.Sheets(1)
wb.SaveAs "C:\temp\test.xlsx"
End Sub

Em tìm được code này, tạo nút bấm macro thì nó xuất bản 1 file excel mới của sheet cần kết xuất.
Nhưng hạn chế của nó là không chọn được vùng để kết xuất, không sử dụng đc khi file protect, mặc dù thử các kiểu với
Sub sb_ketxuat ()
With Sheet7
ActiveSheet.Unprotect Password:="123"
Dim wb As Workbook
Set wb = Workbooks.Add
ThisWorkbook.Sheets("Sheet2").Copy Before:=wb.Sheets(1)
wb.SaveAs "C:\temp\test.xlsx"
ActiveSheet.Protect Password:="123"
End With

End Sub

 

[be_09]

Sub sb_Copy_Save_Worksheet_As_Workbook()
Dim wb As Workbook
Set wb = Workbooks.Add
ThisWorkbook.Sheets("Sheet2").Copy Before:=wb.Sheets(1)
wb.SaveAs "C:\temp\test.xlsx"
End Sub

Em tìm được code này, tạo nút bấm macro thì nó xuất bản 1 file excel mới của sheet cần kết xuất.
Nhưng hạn chế của nó là không chọn được vùng để kết xuất, không sử dụng đc khi file protect, mặc dù thử các kiểu với
Sub sb_ketxuat ()
With Sheet7
ActiveSheet.Unprotect Password:="123"
Dim wb As Workbook
Set wb = Workbooks.Add
ThisWorkbook.Sheets("Sheet2").Copy Before:=wb.Sheets(1)
wb.SaveAs "C:\temp\test.xlsx"
ActiveSheet.Protect Password:="123"
End With

End Sub

Góp ý cho bạn:
1/ Nhờ giúp cái gì thì nên cụ thể, rõ ràng làm cái gì dựa vào cột nào? Sheet nào? Muốn xuất một khách hàng hay tất cả khách hàng, theo tháng hay tất cả các tháng và cái quan trong là đính kèm File.
2/ Người giúp có cách làm của người ta chứ không cần sửa code của bạn đâu.

 

[newlove]

em gửi các bác file nhờ các bác trợ giúp, em muốn kết xuất sheet chi tiết công nợ ra file excel mới, lưu ở đâu cũng được miễn là kết xuất được ra từ cột A đến L, và khi file đang đc protect ạ.
Em cám ơn

 

[le_vis]

em gửi các bác file nhờ các bác trợ giúp, em muốn kết xuất sheet chi tiết công nợ ra file excel mới, lưu ở đâu cũng được miễn là kết xuất được ra từ cột A đến L, và khi file đang đc protect ạ.
Em cám ơn

Tôi nghĩ : Tại #6 bạn be09 đã nói với bạn tương đối cụ thể
1) Bạn nên đưa cái File có dữ liệu giả định lên chứ; Bạn đưa cái File nên xóa sạch dữ liệu nguồn đi thì ai biết Làm cái gì dựa vào cột nào? ở Sheet nào sang ? ..... File có dữ liệu càng cụ thể càng nhanh có kết quả giúp từ các thành viên
2) Việc bạn VIBAProject Perties.... File của bạn lại rồi đưa lên nhờ - Tuy tôi biết cộng đồng GPE rất nhiều thành viên "siêu cao thủ" có thể mở trong 1 vài tích tắc; nhưng có vẻ không hay cho lắm . Do đó đến giờ không ai giúp bạn cũng phải thôi !!!
ĐÔI ĐIỀU CÙNG BẠN

 

[newlove]

thành thật rất xin lỗi:

em quên chưa xóa cái mk: mk của nó là 1 ạ.
và mong muốn của em là kết xuất được cái chi tiết công nợ ra 1 file excel mới thôi ạ.

Em cảm ơn.