Khám phá đỉnh cao tri thức cùng Gitiho qua hành trình học tập được thiết kế tỉ mỉ và toàn diện. Với kho
tàng lộ trình đa dạng, chuyên sâu trên mọi lĩnh vực, chúng tôi sẽ đồng hành cùng bạn khai phá tiềm năng,
chinh phục thách thức và khẳng định giá trị bản thân. Mỗi hành trình đều được nghiên cứu công phu, tạo
nên bước đệm vững chắc để bạn tự tin bứt phá và tỏa sáng trên con đường phát triển sự nghiệp."
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