Đưa dữ liệu từ Excel vào Word

[Thanh Hằng]

Chào các anh,chị.
Em có 1 file Excel (Solieu.xls) và 1 file Word (Vanban.doc). Nay em muốn viết code trên Solieu.xls thoả mãn yêu cầu: Chuyển dữ liệu từ 1 ô trên Solieu.xls sang 1 vị trí trên Vanban.doc. (Không dùng merge)
Nhờ các anh, chị trên diễn đàn giúp em. Em cảm ơn nhiều.

 

[ndu96081631]

Chào các anh,chị.
Em có 1 file Excel (Solieu.xls) và 1 file Word (Vanban.doc). Nay em muốn viết code trên Solieu.xls thoả mãn yêu cầu: Chuyển dữ liệu từ 1 ô trên Solieu.xls sang 1 vị trí trên Vanban.doc. (Không dùng merge)
Nhờ các anh, chị trên diễn đàn giúp em. Em cảm ơn nhiều.

Điều mà mọi người cần biết là:
- 1 ô trên Solieu.xls là ô nào? nằm trên sheet nào?
- 1 vị trí trên Vanban.doc là vị trí nào? Có dấu hiệu gì để nhận biết? Chẳng hạn trước vị trí ấy là "câu" gì?
Không có file và các thông tin cần thiết như tôi nói ở trên thì làm sao giúp được hả bạn?

 

[Thanh Hằng]

Em xin đưa ví dụ lên đây.

 

[PhanTuHuong]

Món này phải dùng Automation, bạn phải hiểu được cả VBA trong Excel lẫn trong Word. VBA trong Word không hề đơn giản 1 chút nào.

 

[HideBoy]

re: Chuyển dữ liệu từ Excel sang Word bằng VBA code

VBA Code cho Word tự trích lọc dữ liệu từ Excel sang Word, không dùng Mail Merge.
Mở file word -> Nhấp chuột vào nút "Mẫu 01-TB1" để nhập mã.
Mã nằm trong file excel!

Thân mến!

 

[Thanh Hằng]

Em định làm thế này cho đơn giản. Những dòng nào có số liệu cần đưa vào em cho nó là bảng. Em gửi lên đây file Vanban.doc, em muốn đưa dữ liệu từ Excel sang phần chữ màu đỏ. Các anh, chị giúp em nha.

 

[Thanh Hằng]

Các anh chị giúp em nha
Em dùng đoạn code

    Dim wApp As Word.Application
    Dim wDoc As Word.Document
    Set wApp = CreateObject("Word.Application")
    Set wDoc = wApp.Documents.Open("Vanban.doc")
    With wDoc
        .Tables(2).Cell(2, 2).Select
    End With
   
    wApp.Activate

thì nó mở file Vanban.doc và đánh dấu ô (2,2) của bảng thứ 2.
Nay em muốn điền dữ liệu vào ô đó thì phải viết code thế nào?

 

[Thanh Hằng]

Các anh, chị ơi giúp em nha. Em đã mày mò suốt buổi mà không làm được.

 

[PhanTuHuong]

Các anh, chị ơi giúp em nha. Em đã mày mò suốt buổi mà không làm được.

Bạn đưa file chuẩn (cả excel, word) lên thì mới làm được. Còn chỉ đưa kiểu này thì gần như là định hướng.
Mà bạn có biết VBA không?

 

[Thanh Hằng]

Em đưa file lên các anh, chị giúp em nha.

 

[haidt3]

Bạn thử với dòng mã này xem:
With wDoc
.Tables(2).Cell(2, 2).Range.Text = Range("B5").Value
.Tables(2).Cell(2, 2).Select
End With

 

[haolam83]

VBA Code cho Word tự trích lọc dữ liệu từ Excel sang Word, không dùng Mail Merge.
Mở file word -> Nhấp chuột vào nút "Mẫu 01-TB1" để nhập mã.
Mã nằm trong file excel!

Thân mến!

Chao ban! minh da chon vao nut lenh "Mau 01 " tren word ma sao chang thay chay du lieu tu excel sang word vay ban?
Mong ban huong dan dum.