Xuất file từ bảng Excel

[dragon18081988]

Chào mọi người!
Em có 1 bảng Excel. Ví dụ như thế này:


Em muốn giữ nguyên dòng đầu tiên, còn xuất các dòng còn lại, mỗi dòng ra 1 file Excel riêng trong 1 thư mục mình chọn sẵn. Ai biết làm thì chỉ bảo dùm em.
Em cảm ơn!

 

[Quang_Hải]

File muốn gởi kèm tên gì? File lưu ở đâu?

 

[ngoinhahoahong1492]

File muốn gởi kèm tên gì? File lưu ở đâu?

File lưu trong máy em, đường dẫn là
Computer -> New Volume (D -> NGUYEN VU -> Tai lieu tiep khach -> Nguyen Vu Introduction.pptx
Em viết hoa và thường đúng như tên folder cũng như tên file đó anh.

 

[Quang_Hải]

Em xem file coi đúng chưa, chỉ ngại cái chỗ đường dẫn và tên file của em thôi

Sub Goimail()
Dim OutApp As Object
Dim OutMail As Object
Dim FileName As String, cell As Range
Application.ScreenUpdating = 0
Application.DisplayAlerts = False
Set OutApp = CreateObject("Outlook.Application")
For Each cell In Range([H5], [H5].End(4))
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = cell.Offset(, 3)
        .Subject = "THONG TIN CHU DE CAN GOI" 'nhap noi dung chu de vao giua 2 dau nhay
        .Body = "Dear " & cell & vbNewLine & vbNewLine & "dong 1" & vbNewLine & vbNewLine _
        & "dong 2" & vbNewLine & vbNewLine _
        & "dong 3" & vbNewLine & vbNewLine _
        & "dong 4" & vbNewLine & vbNewLine _
        & "dong 5" & vbNewLine & vbNewLine _
        & "Tran Trong"
        .Attachments.Add "D:\NGUYEN VU\TAI LIEU TIEP KHACH\NGUYEN VU\INTRODUCTION.pptx"
        .Display 'neu muon goi luon thi thay chu Display la Send nhe
    End With
Next
Application.ScreenUpdating = 1
End Sub

 

[ngoinhahoahong1492]

Em xem file coi đúng chưa, chỉ ngại cái chỗ đường dẫn và tên file của em thôi

Sub Goimail()
....
End Sub

Em sửa đoạn code lại như sau:
Sub Goimail()
Dim OutApp As Object
Dim OutMail As Object
Dim FileName As String, cell As Range
Application.ScreenUpdating = 0
Application.DisplayAlerts = False
Set OutApp = CreateObject("Outlook.Application")
For Each cell In Range([H5], [H5].End(4))
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = cell.Offset(, 3)
.Subject = "VICTOR WOOD INTRODUCTION"
.Body = "Dear " & cell & vbNewLine & vbNewLine & "dong 1" & vbNewLine & vbNewLine _
& "dong 2" & vbNewLine & vbNewLine _
& "dong 3" & vbNewLine & vbNewLine _
& "dong 4" & vbNewLine & vbNewLine _
& "dong 5" & vbNewLine & vbNewLine _
& "Tran Trong"
.Attachments.Add "D:\NGUYEN VU\TAI LIEU TIEP KHACH\NGUYEN VU\INTRODUCTION.pptx"
.Display
End With
Next
Application.ScreenUpdating = 1
End Sub

Private Sub CommandButton1_Click()

End Sub
Sau khi sửa code, em thoát excel và em vô lại file này, em bấm gửi mail.

Nhưng em vẫn chưa gửi mail được, anh xem giúp em nha.

 

[Quang_Hải]

Cài file đính kèm có chạy được không? Nếu không chạy được mới sửa chứ. Không hiểu em đã làm gì mà giờ ra được code này.

 

[ngoinhahoahong1492]

Cài file đính kèm có chạy được không? Nếu không chạy được mới sửa chứ. Không hiểu em đã làm gì mà giờ ra được code này.

Cám ơn anh đã bỏ thời gian giúp đỡ em. Cái file đính kèm không chạy được đâu anh. Chỗ nào anh ghi hướng dẫn, em xoá đi và còn lại giữ y nguyên đó anh quanghai1969. Em muốn gửi tới tất cả mọi người với nội dung sau anh nha.

"Dear Tên người theo file,

I am Nhung from Victor Wood company. Nice to contact with you.

We welcome you as a new customer to our commercial business. We are quite sure that you will be extremely satisfied with our line of products and the service we provide to all our customers. Hope that we will have a good business relationship in the nearest future.

By the way, in order to help you can know more about our factory, we have enclosed the Presentation file for your information and reference. If you have the time, we always welcome you to visit our factory at the address: “Chơn Thành Industrial Zone, Thành Tâm Ward, Chơn Thành District, Bình Phước Province, Vietnam”.

We are looking forward to your reply soon.
If you have any queries, pls do not hesitate to contact us.

Best regards,
Nhung (Ms.)
-------------------------------------------------
VICTOR WOOD
243 - 245 Ung Van Khiem Street, Ward 25, Binh Thanh District, HCMC, VN
HP: +84 90 666 9814, Tel: +84 8 38999495 - 410, Fax: +84 8 38035527
Email: nhungpham@victorwoodvn.com
Website: http://www.nguyenvufurniture.com/ or http://www.victorwoodvn.com/
Skype: cam.nhung2011
-------------------------------------------------
"
Anh xem giúp em nha.

 

[Quang_Hải]

Mình chỉ làm mẫu cho bạn vài dòng, coi theo đó mà sáng tạo thêm cho phù hợp thực tế. Chú ý cách xuống dòng phải theo đúng nguyên tắc nghen, nếu không sẽ bị lỗi

Sub Goimail()
Dim OutApp As Object
Dim OutMail As Object
Dim FileName As String, cell As Range
Application.ScreenUpdating = 0
Application.DisplayAlerts = False
Set OutApp = CreateObject("Outlook.Application")
For Each cell In Range([H5], [H5].End(4))
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = cell.Offset(, 3)
        .Subject = "VICTOR WOOD INTRODUCTION"
        .Body = "Dear " & cell & vbNewLine & vbNewLine & "I am Nhung from Victor Wood company. " _
        & "Nice to contact you" & vbNewLine _
        & "We welcome you as a new customer to our commercial business. " _
        & vbNewLine & vbNewLine _
        & "Tran Trong"
        '.Attachments.Add "D:\NGUYEN VU\TAI LIEU TIEP KHACH\NGUYEN VU\INTRODUCTION.pptx"
        .Display
    End With
Next
Application.ScreenUpdating = 1
End Sub

 

[ngoinhahoahong1492]

Mình chỉ làm mẫu cho bạn vài dòng, coi theo đó mà sáng tạo thêm cho phù hợp thực tế. Chú ý cách xuống dòng phải theo đúng nguyên tắc nghen, nếu không sẽ bị lỗi

Sub Goimail()
Dim OutApp As Object
...
Application.ScreenUpdating = 1
End Sub

Anh vui lòng giúp đỡ em đến cuối được không anh? Vì em không biết một chút gì về VAB.

 

[Quang_Hải]

Đã nhập hết nội dung vào trong code, nhưng phải kiểm tra lai kỹ nha. Bên trong thấy có dòng enclosed the presentation file nhưng lai không có kèm file theo thì kỳ quá.

Sub Goimail()
Dim OutApp As Object
Dim OutMail As Object
Dim FileName As String, cell As Range
Application.ScreenUpdating = 0
Application.DisplayAlerts = False
Set OutApp = CreateObject("Outlook.Application")
For Each cell In Range([H5], [H5].End(4))
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = cell.Offset(, 3)
        .Subject = "VICTOR WOOD INTRODUCTION"
        .Body = "Dear " & cell & vbNewLine & vbNewLine _
        & "I am Nhung from Victor Wood company. It's my pleasure to contact you." & vbNewLine & vbNewLine _
        & "We'd like to welcome you as a new customer to our commercial business. " & vbNewLine & vbNewLine _
        & "We are quite sure that you will be extremely satisfied with our line of products " & vbNewLine & vbNewLine _
        & "and the service we provide to all our customers." & vbNewLine & vbNewLine _
        & "Hope that we will have a good business relationship in the nearest future. " & vbNewLine & vbNewLine _
        & "By the way, in order to help you have more information about our factory, " & vbNewLine & vbNewLine _
        & "we have enclosed the Presentation file for your information and reference. " & vbNewLine & vbNewLine _
        & "If you have the time, we always welcome you to visit our factory at the address: " & vbNewLine & vbNewLine _
        & "Chon Thành Industrial Zone, Thành Tâm Ward, Chon Thành District, Bình Phuoc Province, Vietnam." & vbNewLine & vbNewLine _
        & "We are looking forward to your reply soon. " & vbNewLine & vbNewLine _
        & "If you have any queries, pls do not hesitate to contact us." & vbNewLine & vbNewLine & vbNewLine _
        & "Best Regards" & vbNewLine _
        & "Nhung (Ms)"
        .Display 'neu muon goi luon thi thay chu Display la Send nhe
    End With
Next
Application.ScreenUpdating = 1
End Sub

 

[ngoinhahoahong1492]

Đã nhập hết nội dung vào trong code, nhưng phải kiểm tra lai kỹ nha. Bên trong thấy có dòng enclosed the presentation file nhưng lai không có kèm file theo thì kỳ quá.

Sub Goimail()
Dim OutApp As Object
Dim OutMail As Object
Dim FileName As String, cell As Range
Application.ScreenUpdating = 0
Application.DisplayAlerts = False
Set OutApp = CreateObject("Outlook.Application")
For Each cell In Range([H5], [H5].End(4))
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = cell.Offset(, 3)
        .Subject = "VICTOR WOOD INTRODUCTION"
        .Body = "Dear " & cell & vbNewLine & vbNewLine _
        & "I am Nhung from Victor Wood company. It's my pleasure to contact you." & vbNewLine & vbNewLine _
        & "We'd like to welcome you as a new customer to our commercial business. " & vbNewLine & vbNewLine _
        & "We are quite sure that you will be extremely satisfied with our line of products " & vbNewLine & vbNewLine _
        & "and the service we provide to all our customers." & vbNewLine & vbNewLine _
        & "Hope that we will have a good business relationship in the nearest future. " & vbNewLine & vbNewLine _
        & "By the way, in order to help you have more information about our factory, " & vbNewLine & vbNewLine _
        & "we have enclosed the Presentation file for your information and reference. " & vbNewLine & vbNewLine _
        & "If you have the time, we always welcome you to visit our factory at the address: " & vbNewLine & vbNewLine _
        & "Chon Thành Industrial Zone, Thành Tâm Ward, Chon Thành District, Bình Phuoc Province, Vietnam." & vbNewLine & vbNewLine _
        & "We are looking forward to your reply soon. " & vbNewLine & vbNewLine _
        & "If you have any queries, pls do not hesitate to contact us." & vbNewLine & vbNewLine & vbNewLine _
        & "Best Regards" & vbNewLine _
        & "Nhung (Ms)"
        .Display 'neu muon goi luon thi thay chu Display la Send nhe
    End With
Next
Application.ScreenUpdating = 1
End Sub

Em cám ơn anh nhiều. Em muốn hỏi em sẽ xoá dòng "neu muon goi luon thi thay chu Display la Send nhe" đi phải không anh quanghai1969?

 

[buocduongcung]

Muốn thế nào thì phải có file, không có file thì biết config thế nào???

Do máy em bị hỏng nên gửi file chậm trễ. Em gửi file, Thầy giúp em với ạ.
Trân trọng cảm ơn thầy,
file kèm theo:
View attachment 84481

 

[Quang_Hải]

Em cám ơn anh nhiều. Em muốn hỏi em sẽ xoá dòng "neu muon goi luon thi thay chu Display la Send nhe" đi phải không anh quanghai1969?

Um em có thể dùng dòng lệnh .Display hoặc .Send là đủ rồi.

 

[Quang_Hải]

Do máy em bị hỏng nên gửi file chậm trễ.
View attachment 84481

Mình có xem qua file của bạn và biết rằng không làm giúp được vì mình không biết sử dụng cái địa chỉ IP của bạn kèm trong file. Còn việc gởi cố định đến 1 địa chỉ và nội dung đã được ấn định trước thì cứ xem lại những bài viết liên quan thì mình nghĩ bạn sẽ làm được mà

 

[buocduongcung]

Cảm ơn thầy đã đã đề cao em. Nhưng thực chất em nghĩ mình chưa làm được việc đó, bởi vì chưa có một code nào tương tự như thế cả. Thầy có thể bớt chút thời gian nghiên cứu cái khung sườn, trên cơ sở đó em mới thêm mắm muối vào được.

 

[Quang_Hải]

Xem lại những bài đã viết trong đề tài này đi, khung sườn nằm trong đó hết rồi

 

[man231186]

Dear anh Hải!
- Em thấy bài viết của anh rất hay, em muốn hỏi thêm anh. Với các file nằm trong cùng folder, em muốn gửi tương ứng 1 file trong folder với 1 người trong file excel với điều kiện tên file tương ứng với tên cột mã đơn vị. Việc này có thực hiện được không ạ? Em cám ơn anh!

 

[Quang_Hải]

Bạn gởi file của bạn lên, kèm theo những file đính kèm mà bạn muốn đính kèm. Nói chung chung thì không biết cách nào viết code cả đâu

 

[man231186]

Dear anh Hải!
- Em thấy bài viết của anh rất hay, em muốn hỏi thêm anh. Với các file nằm trong cùng folder, em muốn gửi tương ứng 1 file trong folder với 1 người trong file excel với điều kiện tên file tương ứng với tên cột mã đơn vị. Việc này có thực hiện được không ạ? Em cám ơn anh!

Em gửi anh file có chứa 1 folder (bao gồm các cel). Em muốn gửi tương ứng file baocao_HNI cho ông nguyễn văn A (mã đơn vị: HNI) có đuợc không ạ? Nhờ anh giúp em nhé!

 

[Quang_Hải]

tải file về và giải nén vào thư mục có những file muốn gởi

 

[man231186]

Cám ơn anh!
- Cho em hỏi thêm, em muốn gửi kèm thêm 1 file định dạng .pdf cũng tên như vậy (baocao_HNI.pdf) có được không ạ?