binh123456789
Thành viên thường trực
- Tham gia
- 13/5/15
- Bài viết
- 267
- Được thích
- 12
Xin chào anh chị . Em có sưu tầm được đoạn VBA sau
Em có làm thử thì nó lưu không theo ý muốn. Em muốn lưu trên một trang word và phù hợp với trang A4 để in. xin anh chị diễn đàn hỗ trợ
| Sub Export_to_Word() 'Xuất dữ liệu ra file Word | |
| 'Khai báo các biến | |
| Dim wdapp As Object, wddoc As Object | |
| Dim strdocname As String | |
| On Error Resume Next | |
| 'Lấy nội dung vùng dữ liệu bằng cách copy | |
Sheet1.Range("D1 81").Copy | |
| 'Mở ứng dụng Word từ VBA | |
| Set wdapp = GetObject(, "word.Application") | |
| If Err.Number = 429 Then | |
| Err.Clear | |
| Set wdapp = CreateObject("Word.Application") | |
| End If | |
| wdapp.Visible = True | |
| wdapp.Active | |
| 'Tạo mới 1 file Word và dán nội dung vào | |
| Set wddoc = wdapp.Documents.Add | |
| wddoc.Active | |
| wddoc.Range.PasteSpecial xlPasteValues | |
| 'Làm trống các biến để giải phóng bộ nhớ | |
| Set wddoc = Nothing | |
| Set wdapp = Nothing | |
| Application.CutCopyMode = False | |
| 'Thông báo hoàn thành | |
| MsgBox "Done!" | |
| End Sub |
