braveboy88
Thành viên mới
- Tham gia
- 21/6/11
- Bài viết
- 6
- Được thích
- 0
Chào các bác,
Em đang dùng đoạn code sau để xuất vùng dữ liệu A1:C100 sang 1 file Word, giờ em có chút thắc mắc mong các bác trợ giúp, giờ em muốn chỉnh lại code để nó tự động xét trong vùng A1:C100 và chỉ xuất những ô có chứa dữ liệu, ví dụ: em chỉ có dữ liệu từ ô A1 đến ô C52, thì sẽ chỉ xuất dữ liệu từ A1:C52 sang Word, nếu có dữ liệu từ ô A1 đến ô C85 thì xuất vùng A1:C85, đây là code của em, làm ơn giúp em với. Em xin cám ơn các bác nhiều!!
Sub ExportToWord()
Dim wdApp As Object
Dim wd As Object
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0
Set wd = wdApp.Documents.Open("C:\Temp\Test.doc")
wdApp.Visible = True
Sheet1.Range("A1:C100").Copy
wd.Range.Pasteandformat 0
'Turn off the dotted lines
Application.CutCopyMode = False
'Show Word Windows
wdApp.Visible = True
AppActivate wdApp.Name
End Sub
Em đang dùng đoạn code sau để xuất vùng dữ liệu A1:C100 sang 1 file Word, giờ em có chút thắc mắc mong các bác trợ giúp, giờ em muốn chỉnh lại code để nó tự động xét trong vùng A1:C100 và chỉ xuất những ô có chứa dữ liệu, ví dụ: em chỉ có dữ liệu từ ô A1 đến ô C52, thì sẽ chỉ xuất dữ liệu từ A1:C52 sang Word, nếu có dữ liệu từ ô A1 đến ô C85 thì xuất vùng A1:C85, đây là code của em, làm ơn giúp em với. Em xin cám ơn các bác nhiều!!
Sub ExportToWord()
Dim wdApp As Object
Dim wd As Object
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0
Set wd = wdApp.Documents.Open("C:\Temp\Test.doc")
wdApp.Visible = True
Sheet1.Range("A1:C100").Copy
wd.Range.Pasteandformat 0
'Turn off the dotted lines
Application.CutCopyMode = False
'Show Word Windows
wdApp.Visible = True
AppActivate wdApp.Name
End Sub
