Tối ưu và đơn giản hóa hoạt động đào tạo tại doanh nghiệp. Sẵn sàng nền tảng, nội dung đào tạo cho tất cả các vị trí, bộ phận. Ứng dụng MIỄN PHÍ ngay vào doanh nghiệp chỉ với MỘT click.
Em e đang vướng chủ sở mục nhập dữ liệu trên excel và xuất ra file word
Em chào Thầy, Thầy cho e hỏi e đang vướng chủ sở mục nhập dữ liệu trên excel và xuất ra file word. Để có thể xuất được với đoạn văn >255 ký tự thì mình xử lý code VBA như nào ạ.Em cám ơn!
Chào bạn với đoạn văn > 255 ký tự bạn phải nối chuỗi vào bạn nhé.
vỗ tay
IT_915:05 - May 28, 2020
// Thầy hướng dẫn em với đoạn code này nối chuỗi như nào với ạ! Em chưa hiểu lắm. Em cám ơn ạ! Sub test() Dim num_of_cust As Long Dim num_of_column As Long Dim i As Long, j As Long Dim template As Object Dim t As Object
With CreateObject("word.application") ' late binding .Visible = True
For i = 1 To num_of_cust Set template = .documents.Open("D:\Lap Trinh\Lap Trinh VBA\Thong bao\template.docx") Set t = template.Content For j = 1 To num_of_column t.Find.Execute _ FindText:=Sheet1.Cells(1, j).Value, _ ReplaceWith:=Sheet1.Cells(i + 1, j).Value, _ Replace:=wdReplaceAll Next template.SaveAs Filename:=ThisWorkbook.Path & Application.PathSeparator & i & "-thong_bao.docx" Next .Quit End With Set t = Nothing Set template = Nothing End Sub