Gitiho contest
Cùng gitiho contest chinh phục kiến thức, khẳng định bản thân với hệ thống bài test phong phú, đầy đủ các chủ đề để bạn khám phá.
Lộ trình học tập
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."
Gitiho for leading business
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.
Đã được tin tưởng sử dụng bởi các doanh nghiệp
vui lòng tạo nút bấm để mở file word trên userformXin cảm ơn
Thầy vui lòng hướng dẫn cách tạo nút bấm để mở file word trên userform
Xin cảm ơn
9 câu trả lời
609 lượt xem
vỗ tay
Private Sub CommandButton1_Click()
Dim objWord
Dim objDoc
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add
objWord.Visible = True
End Sub
vỗ tay
vỗ tay
code trên là gán biến objDoc cho việc tạo ra 1 file Word mới.
Thay vì tạo file word mới bạn có thể chỉ định với objWord.Documents.Open để mở 1 file word.
Có thể gắn kèm với đoạn code tạo thư mục mở file (FilePicker) trong chương 8, hoặc bạn chỉ định rõ đường dẫn và tên file word cần mở
vỗ tay
vỗ tay
Thầy vui lòng giúp chỉnh sửa code sau đây:
Private Sub XuatFile_Dat_Click()
Set wordapp = CreateObject("word.Application")
wordapp.Documents.Open "D:\VPCC\SOAN THAO 2020\CHUYEN NHUONG\HD-DAT CHUYEN NHUONG.doc"
wordapp.Visible = True
End Sub
Do khi gán dòng lệnh nêu trên thì file Word mất nội dung của Mail Merge, nên nhờ thầy chỉnh lại để có thể sử dụng mail Merge.
vỗ tay
vỗ tay
vỗ tay
Bạn thử làm lại mail merge cho file word rồi chạy lại code xem có bị mất nội dung không (khi làm VBA thì cần thử lại nhiều lần để kiểm tra, có thể thử mail merge 1 ô thôi để xem lệnh code trên có ảnh hưởng gì không)
Mình nghĩ có thể do nguyên nhân khác, nếu được bạn vui lòng gửi file mẫu (không cần dữ liệu thật, chỉ cần demo) để mình kiểm tra thử.
Cách tải file bạn xem ở mục Hướng dẫn đính kèm bên dưới khung chat này
vỗ tay
Hiện tại mình đã mở được file word có chức mail merge bằng câu lệnh
Private Sub XuatFile_Dat_Click()
Documents.Open Filename:="D:\VPCC\SOAN THAO 2020\CHUYEN NHUONG\HD-DAT CHUYEN NHUONG.doc", AddToRecentFiles:=False
Me.Hide
End Sub
Nhưng lúc đầu mở được, sau đó lại bị lỗi
Run-time error '-2147221164 (80040154)'
Class not registered
Xin thầy giúp cách khắc phục lỗi
vỗ tay
Câu hỏi liên quan
Top
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông