Thấy file khác kiểu thì phải mở lên xem trước khi đánh giá.
Bạn để On Error Resume next thì làm sao biết lỗi đâu mà sửa. Năm sáu lỗi khác nhau bị bỏ qua.
Sub Creator_word()
Dim wdapp As Object, wddoc As Object
Dim strdocname As String
'On Error Resume Next'
'Set wdapp = GetObject(, "word.Application")'
'If Err.Number = 429 Then'
'Err.Clear'
Set wdapp = CreateObject("Word.Application")
'End If'
wdapp.Visible = True
'wdapp.Active'
Set wddoc = wdapp.Documents.Add
'wddoc.Active'
wddoc.SaveAs Filename:=ThisWorkbook.Path & Application.PathSeparator & "Tao_Word.doc"
wddoc.Close
wdapp.Quit
Set wdapp = Nothing
Set wddoc = Nothing
End SubSub Creator_word()
Dim isCreate As Boolean, wdapp As Object, wddoc As Object
Dim strdocname As String
On Error Resume Next
Set wdapp = GetObject(, "word.Application")
If wdapp Is Nothing Then
Set wdapp = CreateObject("Word.Application")
isCreate = True
End If
On Error GoTo 0
wdapp.Visible = True
Set wddoc = wdapp.Documents.Add
wddoc.SaveAs Filename:=ThisWorkbook.Path & Application.PathSeparator & "Tao_Word.doc"
wddoc.Close
If isCreate Then wdapp.Quit
Set wddoc = Nothing
Set wdapp = Nothing
End Sub
chủ thớt chắc phải thêm mắm muối mì chính vào nữa bác á,hihi. Chứ nếu chỉ tạo file word trắng trơn như vậy thì tạo một file sẵn, rồi dùng lệnh copy file cho nhanh.
Tại em muốn tự động quá ấy mà "nói chung là lười" đó bác ah!!!
Tại em muốn tự động quá ấy mà "nói chung là lười" đó bác ah!!!
Em cám ơn bác đã giúp. Ý bác là mở trong server mới là sao bác, bác có thể chỉ giáo cho em được không? Tại em nghĩ chỉ cần lưu cái file word ngay chung vs thư mục của file Excel đang chạy là được rồi.
Lúc em viết thì em nhớ nhớ là để cho nó bỏ qua lỗi 429 thường có khi liên kết vs word nên em cũng không để ý, nhờ bác chỉ giờ em mới thấy lúc mình viết ban đầu mình nên bỏ mấy cái On Error Resume next
Nếu để câu đó phải nắm chắc tất cả lỗi có thể xảy ra, nếu không thì qua khỏi lỗi 429 phải trả về bằng On Error Resume 0 như bài của bác @batman1
Em cám ơn bác đã chỉ, em cứ quen là khi làm trong word là phải có nội dung, nên em cho nó =nothing rùi mới save, mà em quên mất là mình đang tạo tập tin word trắng , ngớ ngẩn thật
Sai. Dù cho có cái gì trong word hay không, set nothing rồi không còn làm gì được với cái nothing cả
