Viết Macro xuất phiếu lương theo Template mẫu đỗ dữ liệu từ bảng tổng

[chienbap]

Dear Anh Chị,

Hiện mình đang cần 1 file Macro để gửi Mail Merge cho nhiều người có File đính kèm theo Email

Ví dụ: Danh sách gửi có 10 người với nhiều thông tin từ Cột a tới h
Template mẫu sẽ lấy thông tin theo từng người được gửi, File này dc macro lưu lại thành file PDF(dể đính kèm Email)

Cảm ơn các Anh/Chị

 

[haonlh]

Gửi file lên đi. Gồm bảng nội dung cần gửi và mẫu gửi cho từng người.

À bạn đã biết cách viết code để gửi chưa?

 

[chienbap]

Dear Anh,

Hôm nay em đã tìm dc code của anh Hai Lúa MT, giờ em đang tìm hiểu thêm là Thay vì lưu file lại là Excel, thì mình có cách nào lưu lại thành file PDF và có set pass(Pass được cung cấp ở Sheet1) cho file PDF này không ạ ???

Cảm ơn Anh/Chị,

Em gửi FIle đính kèm ạ

 

[haonlh]

Dear Anh,
Thay vì lưu file lại là Excel, thì mình có cách nào lưu lại thành file PDF và có set pass(Pass được cung cấp ở Sheet1) cho file PDF này không ạ ???

Tôi đã Đọc file. Có 3 sheet: Sheet1, Form và Mail...

Chắc bạn muốn gửi email Sheet Form . Nếu vậy thì không cần chuyển thành PDF. Bạn chỉ cần tách sheet đó thành file excel, đặt mật khẩu cho nó và gửi đi.

Phần gửi email bằng code excel thì tôi kg quen.

 

[chienbap]

Tôi đã Đọc file. Có 3 sheet: Sheet1, Form và Mail...

Chắc bạn muốn gửi email Sheet Form . Nếu vậy thì không cần chuyển thành PDF. Bạn chỉ cần tách sheet đó thành file excel, đặt mật khẩu cho nó và gửi đi.

Phần gửi email bằng code excel thì tôi kg quen.

Dear Anh,

Hiện em đã xuất được File Excel. Nhưng chưa biết cách nào để set pass cho nó trước khi được đính kèm vào email để gửi đi.

Anh có cách nào set pass khong ạ? NẾU dc chỉ em với.


Thanks a

 

[haonlh]

Tôi thu code sau

Sub Macro1()
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Administrator\Documents\vi du1.xls", _
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="1234", _
ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

Chú ý là ghi macro
Chọn save as

Chọn tools, General...

Cứ làm đại đi. Nhớ mở ghi macro

 

[befaint]

Tôi thu code sau

Sub Macro1()
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Administrator\Documents\vi du1.xls", _
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="1234", _
ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

Chú ý là ghi macro
Chọn save as

Chọn tools, General...

Cứ làm đại đi. Nhớ mở ghi macro

"Người ta" hỏi thực hiện với file *.pdf kìa.

có cách nào lưu lại thành file PDF và có set pass(Pass được cung cấp ở Sheet1) cho file PDF này không ạ ???

http://www.giaiphapexcel.com/forum/showthread.php?120467-Macro-save-file-với-định-dạng-pdf-có-pass