


file gốc là file excell , can chuyen doi csdl sang word , mong duoc su giup do cua cac ban![]()
Sub copytoword()
Set AppWord = CreateObject("Word.Application")
AppWord.Visible = True
AppWord.Documents.Add
Sheet1.[A4:S360].Copy
AppWord.Selection.Paste
End Sub


cụ thể là bạn muốn copy đoạn nào trong file excel vào file word vậy. Nếu muuốn copy tất, bạn thử xem có được ko nhé
Mã:Sub copytoword() Set AppWord = CreateObject("Word.Application") AppWord.Visible = True AppWord.Documents.Add Sheet1.[A4:S360].Copy AppWord.Selection.Paste End Sub
Sub copytoword2()
With CreateObject("Word.Application")
.Visible = True
.Documents.Add
Sheet1.[A4:S360].Copy
.Selection.Paste
End With
End Sub
Hình như thừa AppWord
Mã:Sub copytoword2() With CreateObject("Word.Application") .Visible = True .Documents.Add Sheet1.[A4:S360].Copy .Selection.Paste End With End Sub




Tại sao không dùng chức năng mail merge cho khoẻ chứ. Có công cụ sẵn thì lại không dùng mà tìm cái khó chi cho nhức đầu.file gốc là file excell , can chuyen doi csdl sang word , mong duoc su giup do cua cac ban![]()
cho minh xin huong dan su dung chức năng mail mergeTại sao không dùng chức năng mail merge cho khoẻ chứ. Có công cụ sẵn thì lại không dùng mà tìm cái khó chi cho nhức đầu.