code để mở file word (1 người xem)

[minhluan]

nhờ anh chi giúp viết code cho botton để mở một file word có sẵn trong cùng một folder với file excel này.

 

[Hai Lúa Miền Tây]

nhờ anh chi giúp viết code cho botton để mở một file word có sẵn trong cùng một folder với file excel này.

Dùng code sau nhé:

Sub OpenWord()
      On Error GoTo 1
      ActiveWorkbook.FollowHyperlink (ActiveWorkbook.Path & "\[B]TenFileWordCuaBan[/B].doc"), NewWindow:=True
      Exit Sub
1:       MsgBox Err.Description
End Sub

 

[ndu96081631]

nhờ anh chi giúp viết code cho botton để mở một file word có sẵn trong cùng một folder với file excel này.

Có thể dùng code này:

Sub OpenFile()
  With CreateObject("Shell.Application")
    .Open "Đường dẩn đến file"
  End With
End Sub

Ví dụ bạn muốn mở file Test.doc nằm cùng với thư mục của file Excel, ta dùng:

Sub OpenFile()
  With CreateObject("Shell.Application")
    .Open ThisWorkbook.Path & "\Test.doc"
  End With
End Sub

Code này dùng mở bất kỳ file nào, không riêng file Word
Ngoài ra, nếu file không tồn tại thì code cũng chẳng bị lổi gì cả!

 

[doint]

Tạo button để open file word

Nhờ mấy anh chỉ giúp em tạo button nhấn vào nó open 1 file word có sẵn trên máy. em có tạo nhưng chỉ open dc file excel thui hix hix

Private Sub CommandButton1_Click()
Application.Workbooks.Open ("D:\test.xlsx")
End Sub

Còn em thay file test excel = file test word thì nó báo lỗi

Mấy anh chỉ giúp e với
So thanks.

 

[viehoai]

Nhờ mấy anh chỉ giúp em tạo button nhấn vào nó open 1 file word có sẵn trên máy. em có tạo nhưng chỉ open dc file excel thui hix hix

Private Sub CommandButton1_Click()
Application.Workbooks.Open ("D:\test.xlsx")
End Sub

Còn em thay file test excel = file test word thì nó báo lỗi

Mấy anh chỉ giúp e với
So thanks.

Bạn thử ở môi trường Excel bạn mở thử file word được không?
Vậy thì code báo lỗi là đúng rồi

 

[doint]

Bạn thử ở môi trường Excel bạn mở thử file word được không?
Vậy thì code báo lỗi là đúng rồi

Vậy bạn có thể hướng dẫn giúp mình dc ko thanks bạn nhiều . Chủ yếu mình muốn tạo 1 loạt button bên excel, mỗi button khi nhấn vào sẽ mở một file word có sẵn trên máy.

 

[viehoai]

Vậy bạn có thể hướng dẫn giúp mình dc ko thanks bạn nhiều . Chủ yếu mình muốn tạo 1 loạt button bên excel, mỗi button khi nhấn vào sẽ mở một file word có sẵn trên máy.

Mình không biết, nhờ các anh chị khác giúp đỡ
Trong lúc chờ đợi có một cách "lách luật" là dùng Hyperlink.. cách này bạn có thể record là có code

 

[ndu96081631]

Nhờ mấy anh chỉ giúp em tạo button nhấn vào nó open 1 file word có sẵn trên máy. em có tạo nhưng chỉ open dc file excel thui hix hix

Private Sub CommandButton1_Click()
Application.Workbooks.Open ("D:\test.xlsx")
End Sub

Còn em thay file test excel = file test word thì nó báo lỗi

Mấy anh chỉ giúp e với
So thanks.

Code để mở bất kỳ file nào

Private Sub CommandButton1_Click()
  With CreateObject("Shell.Application")
    .Open "đường dẫn đến file"
  End With
End Sub

Nói bất kỳ file nào có nghĩa là nếu với file nào đó mà ta có thể double click để mở nó trong cửa sổ Explorer thì code cũng sẽ mở được

 

[doint]

Code để mở bất kỳ file nào

Private Sub CommandButton1_Click()
  With CreateObject("Shell.Application")
    .Open "đường dẫn đến file"
  End With
End Sub

Nói bất kỳ file nào có nghĩa là nếu với file nào đó mà ta có thể double click để mở nó trong cửa sổ Explorer thì code cũng sẽ mở được

Tks bạn nhiều, mình đã làm dc rồi

 

[tvquan41]

Có thể dùng code này:

Sub OpenFile()
  With CreateObject("Shell.Application")
    .Open "Đường dẩn đến file"
  End With
End Sub

Ví dụ bạn muốn mở file Test.doc nằm cùng với thư mục của file Excel, ta dùng:

Sub OpenFile()
  With CreateObject("Shell.Application")
    .Open ThisWorkbook.Path & "\Test.doc"
  End With
End Sub

Code này dùng mở bất kỳ file nào, không riêng file Word
Ngoài ra, nếu file không tồn tại thì code cũng chẳng bị lổi gì cả!

Cho mình hỏi nếu có nhiều file word thì code phải viết thế nào? Ví dụ như
button1 mở Test1.doc;
button2 mở Test2.doc;
button3 mở Test3.doc
.....
Thanks!

 

[quangtranevn]

Chào anh ndu96081631! Anh có thể giúp em làm ví dụ cho cái này không vậy? em làm mãi mà không được, em cảm ơn anh

 

[ndu96081631]

Chào anh ndu96081631! Anh có thể giúp em làm ví dụ cho cái này không vậy? em làm mãi mà không được, em cảm ơn anh

Ở trên đã cho code đầy đủ rồi, chỉ việc copy cho vào module rồi chạy thôi
Bạn còn mu6o1n giúp sao nữa?

 

[quangtranevn]

gửi anh ndu96081631 và các anh, chị GPE! em có file đính kèm nhờ các anh, chị giúp khi em nhấn nút nhập liệu thì 01 file word trong folder sẽ tự mở ra

em copy vào rồi nhưng nó không được, em có file đính kém nhờ anh chỉ giúp. em muiốn khi nhấn nút nhập liệu trong file thì file word tự động mở

 

[quangtranevn]

mở file word

Nhờ các anh chị giúp cho em, khi nảy không up file lên được. em muốn khi nhấn nút nhập liệu trong file ễcl của em thì file word mặc định sẽ tự động được mở. nhờ các anh add code vô giúp em

 

[Hai Lúa Miền Tây]

Nhờ các anh chị giúp cho em, khi nảy không up file lên được. em muốn khi nhấn nút nhập liệu trong file ễcl của em thì file word mặc định sẽ tự động được mở. nhờ các anh add code vô giúp em

File Word của bạn đâu?

 

[quangtranevn]

Anh cứ cho code vào file excel là được. em sẽ xem code và chỉnh lại tên cho đúng với file word. vì file word sẽ không ảnh hưởng gì đến phải không anh?

 

[Hai Lúa Miền Tây]

Anh cứ cho code vào file excel là được. em sẽ xem code và chỉnh lại tên cho đúng với file word. vì file word sẽ không ảnh hưởng gì đến phải không anh?

Bạn xem file đính kèm nhé.

 

[humucxt]

Có cách nào để tạo 1 button, mà khi click vào đó nó sẽ mở ra 1 explore chứa file hyperlink không? (Giống như ta mở bằng Window đó)
Bác nào biết giúp em với nhá!

 

[ndu96081631]

Có cách nào để tạo 1 button, mà khi click vào đó nó sẽ mở ra 1 explore chứa file hyperlink không? (Giống như ta mở bằng Window đó)
Bác nào biết giúp em với nhá!

Chứa file Hyperlink là chứa cái gì
Tôi hình dung thế này:
- Bạn có đường dẫn file đặt tại cell A1
- Bạn click vào cell A1, lập tức cửa số Explore mở ra đúng tại thư mục chứa file ấy
Đúng chứ?
(diễn giải cái gì mà cứ phải mất công hỏi lại thế không biết)

 

[humucxt]

Chứa file Hyperlink là chứa cái gì
Tôi hình dung thế này:
- Bạn có đường dẫn file đặt tại cell A1
- Bạn click vào cell A1, lập tức cửa số Explore mở ra đúng tại thư mục chứa file ấy
Đúng chứ?
(diễn giải cái gì mà cứ phải mất công hỏi lại thế không biết)

Thầy nói đúng ý em hỏi đó. Nhưng thay vì click vào cell A1 thì em muốn click vào commandbutton. Thầy giúp em với nha! Cảm ơn thầy!

 

[ndu96081631]

Thầy nói đúng ý em hỏi đó. Nhưng thay vì click vào cell A1 thì em muốn click vào commandbutton. Thầy giúp em với nha! Cảm ơn thầy!

Giả định rằng đường dẫn tới file nằm tại cell A1, vậy code chỉ 1 dòng là đủ:

Private Sub CommandButton1_Click()
 Shell "Explorer.exe /Select, " & """" & [COLOR=#ff0000][B]Range("A1").Value[/B][/COLOR] & """", 1
End Sub

Nếu đường dẫn file nằm ở nơi khác, sửa lại đoạn Range("A1").Value cho phù hợp

 

[humucxt]

Có những vấn đề không biết hỏi các thầy như thế nào! Cảm ơn thầy đã giải đáp giúp em. Em đã làm được rồi ạ!

 

[quangtranevn]

Cảm ơn Hai Lúa Miền Tây! nhưng ý em muốn là khi nhấn nút nhập liệu trong file thì tự động mở file Word luôn được không? em không muốn thêm nút, chỉ giúp em nhé, cảm ơn.