Tự động tạo file với tên cho sẵn (2 người xem)

[tuhue79]

Em có nhu cầu thế này:


[TABLE="class: grid, width: 500"]
[TR]
[TD]filename01
filename02
filename03
filename04
filename05
......
filename99
[/TD]
[TD]Đường dẫn:
(Nơi lưu file tạo)
D:\\LuuFile\
[/TD]
[TD] NÚT
TẠO FILE PDF
[/TD]
[/TR]
[/TABLE]

Kết quả:
Khi em có sẵn danh sách filename , e chĩ cần copy tên vào ô1, nhập đường dẫn vào ô 2, sau đó thì bấm nút tạo file PDF
thì trong D:\\LuuFile\ xuất hiện hàng loạt các file pdf mang tên đã cho. Hàng tháng em phải làm tay cv này cho hàng trăm file, mỏi tay quá, Bác nào Pro vụ này giúp em với.

 

[huy vu]

Các file Filename01, Filename02... của bạn là file gì? file excel, word, pdf ?

 

[ndu96081631]

Các file Filename01, Filename02... của bạn là file gì? file excel, word, pdf ?

Ở trên người ta nói rõ:

Em có nhu cầu thế này:


[TABLE="class: grid, width: 500"]
[TR]
[TD]filename01
filename02
filename03
filename04
filename05
......
filename99[/TD]
[TD]Đường dẫn:
(Nơi lưu file tạo)
D:\\LuuFile\[/TD]
[TD] NÚT
TẠO FILE PDF[/TD]
[/TR]
[/TABLE]

Kết quả:
Khi em có sẵn danh sách filename , e chĩ cần copy tên vào ô1, nhập đường dẫn vào ô 2, sau đó thì bấm nút tạo file PDF
thì trong D:\\LuuFile\ xuất hiện hàng loạt các file pdf mang tên đã cho. Hàng tháng em phải làm tay cv này cho hàng trăm file, mỏi tay quá, Bác nào Pro vụ này giúp em với.

Còn hỏi gì nữa?
-----------------
Vấn đề là: Nội dung trong các file PDF là gì? Là file trắng à?

 

[VetMini]

Ở trên người ta nói rõ:

Còn hỏi gì nữa?
-----------------
Vấn đề là: Nội dung trong các file PDF là gì? Là file trắng à?

Có vẻ như là nội dung của các file 1, 2, 3 trên (hổng biết docx, xlsx, hay gì gì đó, dổi thành PDF.

Lắp phần mềm của Adobe rồi thì chọn cả đống files, "convert to PDF" là xong. Lười biếng hơn nữa thì tạo luôn một cái droplet, nó tự động làm cho. Dùng VBA chi cho mệt, mỗi lần thay đổi yêu cầu lại phải lên "xin chỉnh giùm em..."

 

[tuhue79]

File trắng bác ui. chỉ cần file như thế này: filename01.pdf ; filename02.pdf .....filename99.pdf ...

 

[tuhue79]

Em xin nói rõ hơn là, em cần tên đúng theo ds và nội dung file trắng thôi. vì em sẽ scan chứng từ bỏ vào đúng tên file.pdf, làm tên đồng loạt em sẽ khg bị nhầm và sót.

 

[tuhue79]

Các bác Pro ơi, cái đoạn này làm gần như yêu cầu của em. Mà sao nó ra txt chứ khg là pdf, các bác am hiểu chỉnh giúp với.
---------------------------------------------------------------------
Public Sub SaveTemplate()
Const strSavePath As String = "C:\My Documents\"
Const strTemplatePath As String = "C:\My Documents\template.pdf"

Dim rngNames As Excel.Range
Dim rng As Excel.Range
Dim wkbTemplate As Excel.Workbook

Set rngNames = ThisWorkbook.Worksheets("Sheet1").Range("A1:A200").Cells

Set wkbTemplate = Application.Workbooks.Open(strTemplatePath)

For Each rng In rngNames.Cells
wkbTemplate.SaveAs strSavePath & rng.Value
Next rng

wkbTemplate.Close SaveChanges:=False

End Sub

----------------------------------------------------

 

[kuldokk]

Em có nhu cầu thế này:


[TABLE="class: grid, width: 500"]
[TR]
[TD]filename01
filename02
filename03
filename04
filename05
......
filename99[/TD]
[TD]Đường dẫn:
(Nơi lưu file tạo)
D:\\LuuFile\[/TD]
[TD] NÚT
TẠO FILE PDF[/TD]
[/TR]
[/TABLE]

Kết quả:
Khi em có sẵn danh sách filename , e chĩ cần copy tên vào ô1, nhập đường dẫn vào ô 2, sau đó thì bấm nút tạo file PDF
thì trong D:\\LuuFile\ xuất hiện hàng loạt các file pdf mang tên đã cho. Hàng tháng em phải làm tay cv này cho hàng trăm file, mỏi tay quá, Bác nào Pro vụ này giúp em với.

Chào bạn, mình gửi bạn cái này, chỉ cần ghi tên các file pdf vào filesnames.txt ( mỗi file trên 1 dòng) rồi bấm vào do-it.bat là xong ...
Chúc thành công!

Nội dung file do-it.bat

SET source_file=blank.pdf
SET name_list_file=filesnames.txt
FOR /F "usebackq delims=," %%G IN (`TYPE %name_list_file%`) DO (
    COPY %source_file% %%G
)

 

[tuhue79]

THANKS BÁC kuldokk NHIỀU NHA, ĐƠN GIẢN MÀ HIỆU QUÀ. NẾU CÓ BÁC NÀO GIÚP CHO ĐOẠN CODE VỀ VBA THÌ EM HỌC HỎI THÊM. CẢM ƠN CÁC BÁC ĐÃ QUAN TÂM GIÚP EM.