Tạo nút lệnh

[tklshb]

Tôi có vấn đề này, mong các anh chị giải quyết giùm. Giả sử tôi có file A nằm trong thư mục B ở ổ C (hoặc D, E...). Tôi muốn tạo một đoạn mã ( trong đó có sử dụng Userform) để khi nhấn nút Cài đặt thì nó sẽ đưa file A đó chuyển sang thư mục khác (có thể ở ổ khác) được không. Và làm thế nào để biên dịch nó thành file exe, khi chạy nó chỉ hiện lên Massagebox (có nút Cài đặt và nút thoát) chứ không hiện lên file Word hoặc Excel rồi nhấn Enable Macro thì mới hiện lên thông báo.

 

[ptm0412]

Tiêu đề bạn đặt là Tạo nút lệnh, mà bạn lại không muốn hiện lên file Word hoặc Excel, vậy nút lệnh đặt ở đâu?
Cái bạn muốn chính xác sẽ là 1 file exe cài đặt, nếu bạn có dùng WinNC nó co hỗ trợ tạo 1 file nén tự bung đuôi exe. Bạn nghiên cứu xem.

 

[anhtuan1066]

he...he... nghĩa là làm 1 chương trình có chức năng Cut, Paste... và đàng nào thì cũng phải hiện ra 1 InputBox cho phép chọn file nào cần Cut, và thư mục nào dc chọn đễ Paste vào... Ac.. Ac... ko biết có nhanh bằng tôi mở My Computer, duyệt đến thư mục, Click phải chuột trên file, Cut, sang thư mục đích và Paste... ???
ANH TUẤN

 

[boong]

Trong Windows Explorer có chức năng Move To và Copy To mà. Chỉ cần chọn File rồi chọn Move To (hay Copy To) -> Chọn thư mục -> OK là đến ngay luôn. Không biết vậy có nhanh không nhỉ!

 

[ptm0412]

Còn 1 cách kéo thả trong Explorer, bằng chuột phải hoặc trái tuỳ theo muốn copy hay move
Nhưng tác giả có mục đích khác kia!

 

[tklshb]

Tạo nút lệnh !

Còn 1 cách kéo thả trong Explorer, bằng chuột phải hoặc trái tuỳ theo muốn copy hay move
Nhưng tác giả có mục đích khác kia!

Đúng vậy. Tôi có ý định để một file Add-in cùng thư mục với file Setup.exe. Khi chạy file Setup, nó sẽ tạo ra một lệnh để copy file Add-in đó đến thư mục Add-in trong Documents and Settings\Administrator\Application Data\Microsoft\AddIns (hoặc thư mục STARTUP trong Excel hoặc Word). Tôi nghĩ là có cách viết trong VBA, có thể là viết lệnh để khi chạy thì file Word hoặc Excel chỉ hiện lên trong thời gian rất, rất ngắn rồi mất đi để hiện lên các nút lệnh. Các bạn nghĩ sao?

 

[ptm0412]

Có nghĩa là bạn có 1 hoặc nhiều file add-ins, bạn muốn chia sẻ qua mạng, hoặc đem vào công ty làm việc, copy từ máy này qua máy kia mà chỉ muốn làm đơn giản bằng 1 file exe?
Xem file kèm theo nhé, yên chí exe này không phải virus.

 

[tklshb]

Cám ơn bạn (vì không thấy nút Thanks). Tuy nhiên, tôi muốn nó nhìn có vẻ chuyên nghiệp hơn. Khi ta chạy file Setup, nó sẽ hiện lên một Toolbox (trên đó có nút Cài đặt và nút Thoát). Khi ta nhấn Cài đặt, sẽ có lệnh để copy file đó vào luôn thư mục mặc định (như tôi trình bày ở trên) chứ không chọn nơi Extract file tới. Bạn có ý kiến khác không?

 

[ptm0412]

Extract đối với 1 file nén chính là copy. Hình như bạn chưa chạy đến hết file exe trên? hoặc ít nhất đến khi hiện ra dialog thứ nhì? Dialog thứ nhì có 2 nút start và cancel đấy chứ? Lại còn kèm 1 text box cho bạn chọn thư mục nữa!
Tôi cũng có thể làm mặc định như bạn muốn nhưng chỉ được 55 ký tự, đường dẫn như của bạn dài quá.
TB: Nếu muốn cài vào 1 máy, cho mọi user của máy dùng thì không phải copy vào Administrator, mà vào All User.

 

[duchuynh103]

Có nghĩa là bạn có 1 hoặc nhiều file add-ins, bạn muốn chia sẻ qua mạng, hoặc đem vào công ty làm việc, copy từ máy này qua máy kia mà chỉ muốn làm đơn giản bằng 1 file exe?
Xem file kèm theo nhé, yên chí exe này không phải virus.

Thanks. Mình down về, đã add in nhưng không thấy tool nào cả. Nhờ chỉ giúp.




hi hi mình tìm ra rôi, nhưng khổ nổi bọn mình thường dùng font "Times new roman" nên xài anh chàng VNI này cũng hơi khổ!

 

[ptm0412]

Trong textbox đường dẫn, phải gõ tay hoặc copy đường dẫn C:\Documents and Settings\<tên usercủa bạn>\Application Data\Microsoft\AddIns
Sau đó vào menu tool > Add-ins của Excel, nếu có sẵn docso thì click chọn, nếu không có sẵn thì nhấn nút Browse đến folder hồi nãy, chọn docso.xla, nhấn Open, trở lại dialog add-in, nhấn OK. Addins này là các hàm đọc số tiếng việt Say() tiếng Anh SayE(), và tiếng Pháp SayF().
Ngoài ra có hàm CtoN() tách số dính chuỗi như 1,200.25USD

 

[ngocmaipretty]

Theo bản tọa thì tklshb làm 1 file setup.bat là đúng ý lun:

copy *.xla c:\Documents and Settings\All User\Application Data\Microsoft\AddIns /y

 

[tklshb]

Theo bản tọa thì tklshb làm 1 file setup.bat là đúng ý lun:

copy *.xla c:\Documents and Settings\All User\Application Data\Microsoft\AddIns /y

Bạn đưa tôi vào mê cung rồi??? Giải thích rõ hơn được không?

 

[boong]

Theo mình thì nên sữa lại một chút thì hay hơn.

  copy "\*.xla" "[B]%USERPROFILE%[/B]\Application Data\Microsoft\AddIns\*.xla" /y Exit

Bạn mở chương trình Notepad.exe ra rồi gõ code này vào. Sau đó lưu lại với tên.bat là được. Đặt file .bat này ở nơi có chứa các tập tin .xla mà bạn muốn đem nó đi.