Tạo comments ở thẻ summary

[chucuoi92]

Kính mong các anh chị trong diễn đàn giúp mình một việc.
Mình có sưu tầm và chỉnh sửa một code
Code này có tác dụng đổi tên hàng loạt các file theo một số cell nằm trong file đó
việc mình nhờ là các A/C viết thêm doạn code tự động điền thêm nội dung Comments (thẻ summary), nội dung này cũng lấy từ 1 cell nằm trong file đó.

Sub Button2_Click()
Dim tenfile, x, y, plink As String
Dim ten1 As String, ten2 As String, ten3 As String, i
On Error Resume Next
x = Application.GetOpenFilename(filefilter:=

 

[ndu96081631]

việc mình nhờ là các A/C viết thêm doạn code tự động điền thêm nội dung Comments (thẻ summary)

Không hiểu bạn đang nói cái gì cả ---> Cho file lên đi

 

[chucuoi92]

File excel chỉ là file rổng chỉ có đoạn code đấy thôi anh!
Em muốn đổi tên file hàng loạt (workbook) và tên cần đổi lấy từ nội dung trong chính workbook đó
và có kèm theo comments cũng lấy trong chính workbook đó
Em gửi kèm file
File (Book1.xls) là file có code
file ( file1.xls) là file cần đổi (có rất nhiều file như vậy)

 

[ndu96081631]

File excel chỉ là file rổng chỉ có đoạn code đấy thôi anh!
Em muốn đổi tên file hàng loạt (workbook) và tên cần đổi lấy từ nội dung trong chính workbook đó
và có kèm theo comments cũng lấy trong chính workbook đó
Em gửi kèm file
File (Book1.xls) là file có code
file ( file1.xls) là file cần đổi (có rất nhiều file như vậy)

Cái trò này không dễ ăn đâu nha!
Lấy thông tin ra rất dễ chứ còn ghi thông tin vào mà lại không mở file thì... Ẹc... Ẹc... tôi cũng không biết có cách nào không nữa

 

[chucuoi92]

Anh ơi!
Có phải ghi comments vào sheet đâu mà comments vào File-

 

[ndu96081631]

Anh ơi!
Có phải ghi comments vào sheet đâu mà comments vào File->properties -> summary ->comments
Code em đưa lên đã lấy được nội dung và đổi tên file, chỉ còn thêm comments vào nữa thôi.
trong code tên file được lấy từ 3 cell (ten1 , ten2 và ten3) và em muốn thêm ten3 vào comments

Thì vậy!
Tôi chỉ biết cách mở file lên rồi ghi thôi... File đang đóng tôi chẳng biết dùng cách nào

 

[chucuoi92]

Thì vậy!
Tôi chỉ biết cách mở file lên rồi ghi thôi... File đang đóng tôi chẳng biết dùng cách nào

Cám ơn anh trước,anh có cách nào cũng được.

 

[ndu96081631]

Cám ơn anh trước,anh có cách nào cũng được.

Bạn tự làm đi! Đại khái câu lệnh thế này:

Workbooks("Tên Workbook").BuiltinDocumentProperties("Comments") = "Cái gì đó tùy bạn"

Cái vụ phải mở file hàng loạt tôi không khoái lắm
(Để xem còn cách nào khác không)