Excel/Word 2003 - Sao chép giá trị ô Excel vào dấu trang/trường trong biểu mẫu Word bằng VBA

Chào mọi người, tôi hy vọng vẫn nhận được những câu trả lời hữu ích như trên MS Groups! Tôi đã tìm kiếm chủ đề này trên diễn đàn nhưng không thấy chủ đề nào tương tự.

Tôi có một bảng tính ngân sách Excel 2003 và một biểu mẫu Word 2003. Tôi muốn người dùng có thể nhập thông tin ngân sách của họ vào bảng tính Excel, nhấn một nút để chạy macro mở một biểu mẫu Word 2003 cụ thể ("Purchasing Form.dot"), và sau đó sao chép các giá trị ô vào các trường biểu mẫu đã được đánh dấu thích hợp trong biểu mẫu Word. Tôi đã làm cho một nửa macro bên dưới hoạt động, nhưng nó cứ báo "cần đối tượng" khi tôi cố gắng sao chép nó vào dấu trang biểu mẫu Word. Như bạn có thể thấy bên dưới, tôi đang cố gắng sao chép ô D6 vào dấu trang "NHÀ CUNG CẤP". Nếu tôi có thể nhận được sự trợ giúp về một cách hiệu quả để sao chép giá trị ô Excel vào dấu trang trường biểu mẫu Word, thì tôi sẽ có thể hoàn thành dự án này ngay lập tức, vì vậy tôi rất biết ơn bất kỳ sự giúp đỡ nào và cơ hội được học hỏi. :-) - mokshadavid

Sub Copy_Excel_Cell_to_Word_Form()

'Mở tài liệu Word'
Đặt wdApp = CreateObject("Word.Application")
wdApp.documents.Open "C:\Projects\Purchasing Form.dot"
wdApp.Visible = True

Bảng tính (1).Phạm vi ("D6"). Sao chép

ActiveDocument.Bookmarks("VENDOR").Range.PasteSpecial


End Sub




Trả lời:

Nếu bạn muốn điều khiển một ứng dụng khác, thì bạn luôn phải tham chiếu đến đối tượng đã được tạo.

ActiveDocument không phải là một đối tượng Excel, đó là lý do gây ra lỗi.

Andreas.

Sub Copy_Excel_Cell_to_Word_Form()
Dim wdApp As Object 'Word.Application
Dim wdDoc As Object 'Word.Document

'Mở một phiên bản Microsoft Word mới'
Đặt wdApp = CreateObject("Word.Application")
'Hiển thị ứng dụng'
wdApp.Visible = True
'Mở tài liệu Word'
Set wdDoc = wdApp.documents.Open("C:\Projects\Purchasing Form.dot")

Giá trị sao chép
Bảng tính (1).Phạm vi ("D6"). Sao chép
'Dán vào tài liệu Word'
wdDoc.Bookmarks("VENDOR").Range.PasteSpecial
End Sub



Trả lời:

Thử:

Khai báo wdApp là Object
Dim wdDoc as Object
'Mở tài liệu Word'
Đặt wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.documents.New("C:\Projects\Purchasing Form.dot")
wdDoc.Bookmarks("Vendor").Range.Text = Worksheets(1).Range("D6").Value
wdApp.Visible = True

Xem bài viết "Điều khiển Word từ Excel" tại:

http://www.word.mvps.org/FAQs/InterDev/ControlWordFromXL.htm

và bài viết "Đóng sách sớm so với đóng sách muộn" tại:

http://www.word.mvps.org/FAQs/InterDev/EarlyvsLateBinding.htm

Hi vọng điều này sẽ hữu ích.

Doug Robbins - Chuyên gia xuất sắc về ngôn từ,
dkr[atsymbol]mvps[dot]org
Được đăng tải qua Community Bridge

"mokshadavid" đã viết trong tin nhắn news:*** Địa chỉ email đã bị xóa vì lý do bảo mật ***...

Chào mọi người, tôi hy vọng vẫn nhận được những câu trả lời hữu ích như trên MS Groups! Tôi đã tìm kiếm chủ đề này trên diễn đàn nhưng không thấy chủ đề nào tương tự.

Tôi có một bảng tính ngân sách Excel 2003 và một biểu mẫu Word 2003. Tôi muốn người dùng có thể nhập thông tin ngân sách của họ vào bảng tính Excel, nhấn một nút để chạy macro mở một biểu mẫu Word 2003 cụ thể ("Purchasing Form.dot"), và sau đó sao chép các giá trị ô vào các trường biểu mẫu đã được đánh dấu thích hợp trong biểu mẫu Word. Tôi đã làm cho một nửa macro bên dưới hoạt động, nhưng nó cứ báo "cần đối tượng" khi tôi cố gắng sao chép nó vào dấu trang biểu mẫu Word. Như bạn có thể thấy bên dưới, tôi đang cố gắng sao chép ô D6 vào dấu trang "NHÀ CUNG CẤP". Nếu tôi có thể nhận được sự trợ giúp về một cách hiệu quả để sao chép giá trị ô Excel vào dấu trang trường biểu mẫu Word, thì tôi sẽ có thể hoàn thành dự án này ngay lập tức, vì vậy tôi rất biết ơn bất kỳ sự giúp đỡ nào và cơ hội được học hỏi. :-) - mokshadavid

Sub Copy_Excel_Cell_to_Word_Form()

'Mở tài liệu Word'
Đặt wdApp = CreateObject("Word.Application")
wdApp.documents.Open "C:\Projects\Purchasing Form.dot"
wdApp.Visible = True

Bảng tính (1).Phạm vi ("D6"). Sao chép

ActiveDocument.Bookmarks("VENDOR").Range.PasteSpecial


End Sub

Doug Robbins - Chuyên gia xuất sắc về Word (dkr[atsymbol]mvps[dot]org)

Comments

Post a Comment

Popular posts from this blog

Xử lý hàng loạt các tệp Excel được bảo vệ bằng mật khẩu

Xử lý hàng loạt các tệp Excel được bảo vệ bằng mật khẩu Tôi đã tạo một bộ bảng chấm công của nhân viên trong một thư mục, mỗi bảng được xác định bằng tên và số ID của nhân viên, đồng thời được bảo vệ bằng Số Bảo hiểm Quốc gia của nhân viên làm mật khẩu. Họ sẽ thêm các yêu cầu làm thêm giờ và số dặm vào bảng tính của họ và tôi sẽ xử lý tất cả các tệp vào cuối tháng để lập bảng lương, thêm tất cả các bản ghi từ mỗi tệp vào bảng cơ sở dữ liệu MS Access. Một vấn đề mà tôi gặp phải là tôi không biết cách mở các tệp được bảo vệ bằng mật khẩu trong VBA để xử lý chúng. Có ai ở đó có kinh nghiệm về quá trình tương tự không? Stuart Trả lời: Xin chào, VBA để bảo vệ và không bảo vệ sổ làm việc Sub ProtectAll() Dim sh As Worksheet Làm mờ myPassword dưới dạng chuỗi myPassword = "mật khẩu" Đối với mỗi sh trong ActiveWorkbook.Worksheets sh.Protect Mật khẩu:=myPassword tiếp theo Kết thúc phụ Sub UnrotectAll() Dim sh As Worksheet Làm mờ myPassword dưới dạng chuỗi myPassword = ...
Read more

Thu hẹp và mở rộng cột trong Excel

Thu hẹp và mở rộng cột trong Excel Làm thế nào để thu hẹp hoặc mở rộng một cột khi tôi không nhìn thấy thước kẻ có chữ cái cột? Trả lời: Nhấp chuột phải vào cột > Chiều rộng cột > Tại đây, bạn có thể nhập giá trị cho các cột để thu nhỏ hoặc mở rộng. Ví dụ, bạn có thể nhập giá trị 8, gần với chiều rộng cột mặc định. Cột sẽ hiển thị. Bạn có thể kéo theo dấu phân cách cột (hoặc thước kẻ). Nếu những điều trên không phải là điều bạn muốn, tức là nếu chữ cái cột không hiển thị > Chọn bất kỳ ô nào trong cột đó > CTRL+Phím cách để chọn cột > Nhấp chuột phải > Chiều rộng cột như trong bước 1. Trả lời: Chỉ là một ý tưởng, một lựa chọn khác là sử dụng Freeze Panes để bạn luôn có thể nhìn thấy tiêu đề Cột trên cùng để thay đổi kích thước cột... Trên thanh Ribbon, nhấp vào Đóng băng ngăn - Đóng băng hàng trên cùng
Read more

Excel: Tìm và trả về "số cuối cùng" trong một cột, trong đó cột chứa: cả ô trống và số dương tùy ý (lớn hơn 0).

Image
Excel: Tìm và trả về "số cuối cùng" trong một cột, trong đó cột chứa: cả ô trống và số dương tùy ý (lớn hơn 0). Tôi có kinh nghiệm sử dụng Excel ở mức trung bình nhưng không thể hiểu cách đạt được những điều sau: 1) Về Cột K, khoảng K12 đến K377. 2) Tất cả các ô trong phạm vi trên đều là ô trống hoặc các ô chứa số dương lớn hơn 0, ví dụ: 14,37. (Lưu ý rằng sự tồn tại của các ô và số trống trong phạm vi này là hoàn toàn tùy ý (không có bất kỳ mẫu logic, lặp lại nào). 3) Tôi đang cố gắng viết một công thức (hoặc sử dụng hàm hoặc macro) yêu cầu như sau: A) Tìm kiếm trong phạm vi K12 đến K377. B) Xác định vị trí và xác định số "cuối cùng" trong cột. (LƯU Ý: Với "cuối cùng", ý tôi là số nằm gần cuối phạm vi của cột nhất. Tức là số gần nhất với hàng 377, trong cột K.) C) Dù số đó là gì, tôi muốn số đó được trả về và hiển thị trong ô tôi chọn, giả sử ô K10. D) Tự động làm mới: Lý tưởng nhất là bất cứ khi nào cột (cột K) số được chỉnh sửa (thêm vào hoặc tr...
Read more