File Excel quản lý công văn

[chibi]

Chào các bạn. Trước đây ở đơn vị mình (Hành chính sự nghiệp) được cấp trên cấp cho một phần mềm quản lý công văn theo đề án 112. Đang trong quá trình chạy thử nghiệm thì 112 bị "đứt". Nay mình muốn xây dựng một chương trình quản lý công văn trên Excel mong được các bạn giúp đỡ.
Cụ thể như sau: Các công văn được lưu dưới dạng .doc hoặc .pdf, nằm trong cùng thư mục với file .xls quản lý.
Nội dung file .xls gồm 2 cột (Ngắn gọn để làm ví dụ): Trích yếu, Tệp đính kèm; 2 nút lệnh : In và Đính kèm tệp
Mình muốn xây dựng chức năng cho các nút lệnh như sau:
- Đính kèm tệp: Hiện tên tất cả các tệp .doc và .pdf chưa đính kèm để lựa chọn, sau khi lựa chọn xong thì đưa tên của tệp đã chọn vào cột "Tệp đính kèm" (Dòng của con trỏ ô đang đứng).'
- In : Mở tệp có tên trong "Tệp đính kèm".
Mong nhận được sự giúp đỡ của các bạn.

 

[chibi]

Sưu tầm đoạn code của "cu tí sành điệu" mình đã xây dựng code cho nút "In" như sau:

Sub Button1_Click()
On Error Resume Next
Dim ten_ctrinh As String, ten_file As String
Dim ten_thumuc As String, dong As Integer
dong = Selection.Row
ten_file = Cells(dong, 2).Value
ten_ctrinh = IIf(Right(ten_file, 3) = "doc", "WinWord", "Acrobat")
ten_thumuc = Application.ActiveWorkbook.Path
Shell ten_ctrinh & " " & ten_thumuc & "\" & ten_file, 1
End Sub

Nhưng mình không mở được tệp .pdf, mong các bạn trợ giúp.

Trên máy của tôi cài AcrobatReader 6.0, tôi phải sửa lại đoạn code trên như sau thì mới mở được .pdf

Sub Button1_Click()
On Error Resume Next
Dim ten_ctrinh As String, ten_file As String
Dim ten_thumuc As String, dong As Integer
dong = Selection.Row
ten_file = Cells(dong, 2).Value
ten_ctrinh = IIf(Right(ten_file, 3) = "doc", "WinWord", _
            "C:\Program Files\Adobe\Acrobat 6.0\Reader\AcroRd32")
ten_thumuc = Application.ActiveWorkbook.Path
Shell ten_ctrinh & " " & ten_thumuc & "\" & ten_file, 1
End Sub

Bằng cách nào để lấy được C:\Program Files\Adobe\Acrobat 6.0\Reader\AcroRd32 ???

 

[yeudoi]

Mời các bạn xem file đính kèm!

 

[hong_tt]

SAo em chạy thử File không được?

 

[yeudoi]

Bạn phải xả nén ra và chạy khi chạy nếu hiện thông báo bạn bấm nút E trên bàn phím.(nên vào tool/macro/security xem lại nên chọn medium)

 

[kiendt1973]

sao mình ko thể cập nhật văn bản mới đc nhỉ?

 

[LikeIt]

Trong trường hợp mình có nhiều loại văn bản mà đòi hỏi phải tạo nhiều thư mục thì nó có thể auto update vào trong file quản lý văn bản được ko? Theo như VD của bạn thì có 4 folder thôi.

 

[yeudoi]

Được chứ sao không bạn. Bạn hãy tìm hiểu chúng để biết thêm

 

[dangquang]

Mình đã xài thử file quanlyvanban của bạn yeudoi, rất hay. Tuy nhiên mình muốn sửa lại cho phù hợp với CQ mình, nhưng file bạn she có thuộc tính chỉ đọc. Bạn có thể chỉ mình cách bỏ thuộc tính này ko? cám ơn bạn nhiều

 

[duong78]

Mình đã dùng thử file của bạn, nhưng khi mình thêm 1 new fol nhưng ko thể cập nhật được.

 

[hanoi545]

phần quản lý văn bản của bác cũng rất hay, nhưng phần nầy chỉ quản lý văn bản có file ở trên máy. Bác có thể viết phần quản lý công văn đi và công văn được không.
Khi cần có thể đánh một vài câu của tên văn bản là có thể tìm được số văn bản và ngày tháng văn bản đến đến.
Nếu có bác post cho em xin với.

 

[thanhnhanubnd]

phần quản lý văn bản của bác cũng rất hay, nhưng phần nầy chỉ quản lý văn bản có file ở trên máy. Bác có thể viết phần quản lý công văn đi và công văn được không.
Khi cần có thể đánh một vài câu của tên văn bản là có thể tìm được số văn bản và ngày tháng văn bản đến đến.
Nếu có bác post cho em xin với.

Cái này mình cũng vừa làm xong, chạy cũng ổn. Tuy nhiên,để phù hợp với bạn, bạn hãy đưa ra yêu cầu ( công văn đi : công văn , QĐịnh, thư mời...Công văn đến : Sở A, B, Các huyện...); mình sẽ sửa file cho phù hợp và gửi lên cho bạn.

 

[thanhnam0119]

nhưng phần in sao ko in được vậy

 

[ki_calvin]

file quản lý văn bản này hay lam,nhưng anh chị nào có thể hứong dẩn em cách trớ lại design lai !cho thêm nhiều mục hơn để cho phù hợp công việc của em!thank

 

[phạm văn trình]

Mình đã xài thử file quanlyvanban của bạn yeudoi, rất hay. Tuy nhiên mình muốn sửa lại cho phù hợp với CQ mình, nhưng file bạn she có thuộc tính chỉ đọc. Bạn có thể chỉ mình cách bỏ thuộc tính này ko? cám ơn bạn nhiều

 

[ocean_pa]

minh không mở được,giúp mình với.sao chẳng thấy thông bao nào vậy?

 

[nguyenhungsbv]

Được chứ sao không bạn. Bạn hãy tìm hiểu chúng để biết thêm

Sao mình tải các file của bạn về rồi và giải nén rồi nhưng mình mở ra có thấy gì đâu ngoài 2 file Data và Setup rồi chẳng hiểu sử dụng như thế nào cả và chúng có tác dụng gì?

 

[NH_DK]

Sao mình tải các file của bạn về rồi và giải nén rồi nhưng mình mở ra có thấy gì đâu ngoài 2 file Data và Setup rồi chẳng hiểu sử dụng như thế nào cả và chúng có tác dụng gì?

Bạn down file nào? Mình down của anh yedoi dùng được mà? Nó có 1 file chạy (Excel) và các thư mục chứa các file để chương trình link đến mà!?

 

[chanchaucang]

Rất hay, đây là chương trình phù hợp với công việc của tôi.
Nhưng có một vấn đề phát sinh là khi số lượng công văn lên đến hàng chục nghìn thì việc tìm ra văn bản trong số đó sẽ rất khó khăn, bạn có thể thiết kế module để tìm kiếm và hiển thị văn bản đó không.
Cám ơn.