Xin Giúp : Mở 1 File Trong VBA | Giải Pháp Excel

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Excel và các ngôn ngữ lập trình khác
• Excel và các ngôn ngữ lập trình khác

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Xin giúp : Mở 1 file trong VBA

• Thread starter tedaynui
• Ngày gửi 23/6/07

tedaynui

(*_*)

Thành viên danh dự Tham gia 12/8/06 Bài viết 1,875 Được thích 2,478 Nhờ các anh chị giúp đỡ Trong VBA, để mở một file Word, Access ... thì Mã:Sao chép. Shell "[B]Winword[/B] Path\ABC.doc" Shell "[B]MSAccess[/B] Path\ABC.mdb" vậy muốn mở file *.html và *.pdf thì tên ứng dụng là gì ? Nếu không muốn dùng Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE Path\ABC.html" Mong được giúp đỡ, xin cám ơn ! TDN T

thlamvba

Thành viên mới

Tham gia 13/1/12 Bài viết 10 Được thích 0 help me Help me!! Tôi làm form để mở thông tin tại file kdns.xls bằng cú pháp sau Private Sub cmdkdns_click() Shell "Workbook g:\duanchuan\duan\kdns.xls" End Sub mà nó không thực hiện, ACE có thể giúp tôi thực hiện được không? trong trường hợp này mình có cần thiết phải type cái part ra không? Thank all S

scooby

Thành viên mới

Tham gia 28/1/12 Bài viết 18 Được thích 3 Copy and paste in Module try this Sub test() ' Workbooks.Open Filename:="C:\showthread.php.htm" ' or ' Workbooks.Open Filename:="C:\Name.xls" End Sub

phihndhsp

Thành viên gạo cội

Tham gia 26/12/09 Bài viết 3,363 Được thích 2,487 Giới tính Nam Nghề nghiệp Giáo Viên

tedaynui đã viết: Nhờ các anh chị giúp đỡ Trong VBA, để mở một file Word, Access ... thì Mã:Sao chép. Shell "[B]Winword[/B] Path\ABC.doc" Shell "[B]MSAccess[/B] Path\ABC.mdb" vậy muốn mở file *.html và *.pdf thì tên ứng dụng là gì ? Nếu không muốn dùng Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE Path\ABC.html" Mong được giúp đỡ, xin cám ơn ! TDN Nhấp chuột vào đây để mở rộng...

anh có thể chỉ cho em cách mở 1 file POWER POINT và File WORD trong VBA trên EXCEL được không nếu có ví dụ cụ thể càng tốt. em xin cảm ơn anh nhiều Lần chỉnh sửa cuối: 27/1/14

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,936

phihndhsp đã viết: anh có thể chỉ cho em cách mở 1 file POWER POINT và File WORD trong VBA trên EXCEL được không nếu có ví dụ cụ thể càng tốt. em xin cảm ơn anh nhiều Nhấp chuột vào đây để mở rộng...

Câu lệnh: CreateObject("Shell.Application").Open "Đường dẫn đến file" để mở bất cứ file nào (miễn là file ấy có thể mở được bằng cách double click vào file)

phihndhsp

Thành viên gạo cội

Tham gia 26/12/09 Bài viết 3,363 Được thích 2,487 Giới tính Nam Nghề nghiệp Giáo Viên TRONG EXCLE MUỐN TẠO MỚI 1 FILE POWER POINT CÓ SẲN THÌ MÌNH LÀM NHƯ THẾ NÀO ANH NDU trong word thì em mò ra rồi đây là code tạo mới một 1 file word có sẵn Set wordapp = CreateObject("word.Application") wordapp.Documents.Add Template:="D:\ABC.doCX" wordapp.Visible = True còn file PP thì chịu mong anh hướng dẫn dùm, xin cảm ơn anh nhiều

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,936

phihndhsp đã viết: TRONG EXCLE MUỐN TẠO MỚI 1 FILE POWER POINT CÓ SẲN THÌ MÌNH LÀM NHƯ THẾ NÀO ANH NDU Nhấp chuột vào đây để mở rộng...

TẠO MỚI 1 FILE POWER POINT CÓ SẲN nghĩa là thế nào nhỉ? Tôi không hiểu

phihndhsp

Thành viên gạo cội

Tham gia 26/12/09 Bài viết 3,363 Được thích 2,487 Giới tính Nam Nghề nghiệp Giáo Viên

ndu96081631 đã viết: TẠO MỚI 1 FILE POWER POINT CÓ SẲN nghĩa là thế nào nhỉ? Tôi không hiểu Nhấp chuột vào đây để mở rộng...

có nghĩa là đã có 1 file nào đó là file mẫu, người ta không muốn mở trực tiếp file đó lên rồi save as thành file khác người ta muốn nhấn 1 nút thì nó sẽ ra file mới hoàn toàn (giống như file mẫu) sau đó tự người ta save lại tùy ý S

siwtom

Thành viên gắn bó

Tham gia 19/3/08 Bài viết 2,127 Được thích 4,208

phihndhsp đã viết: có nghĩa là đã có 1 file nào đó là file mẫu, người ta không muốn mở trực tiếp file đó lên rồi save as thành file khác người ta muốn nhấn 1 nút thì nó sẽ ra file mới hoàn toàn (giống như file mẫu) sau đó tự người ta save lại tùy ý Nhấp chuột vào đây để mở rộng...

Chỗ xanh xanh không cần thực hiện thì chuyển thành chú thích Mã:Sao chép. Sub Button1_Click() Dim PPApp As Object, P As Object, index As Long Set PPApp = CreateObject("PowerPoint.Application") PPApp.Activate Set P = PPApp.Presentations.Add P.ApplyTemplate "C:\Program Files\Microsoft Office\Templates\1033\ContemporaryPhotoAlbum.potx" ' "c:\hehe.potx" [COLOR=#0000ff]For index = 1 To P.SlideMaster.CustomLayouts.Count P.Slides.AddSlide index, P.SlideMaster.CustomLayouts(index) Next P.SaveAs "c:\hichic.pptx"[/COLOR] End Sub

phihndhsp

Thành viên gạo cội

Tham gia 26/12/09 Bài viết 3,363 Được thích 2,487 Giới tính Nam Nghề nghiệp Giáo Viên

siwtom đã viết: Chỗ xanh xanh không cần thực hiện thì chuyển thành chú thích Mã:Sao chép. Sub Button1_Click() Dim PPApp As Object, P As Object, index As Long Set PPApp = CreateObject("PowerPoint.Application") PPApp.Activate Set P = PPApp.Presentations.Add P.ApplyTemplate "C:\Program Files\Microsoft Office\Templates\1033\ContemporaryPhotoAlbum.potx" ' "c:\hehe.potx" [COLOR=#0000ff]For index = 1 To P.SlideMaster.CustomLayouts.Count P.Slides.AddSlide index, P.SlideMaster.CustomLayouts(index) Next P.SaveAs "c:\hichic.pptx"[/COLOR] End Sub Nhấp chuột vào đây để mở rộng...

nếu mình lấy luôn tất cả toàn bộ thông tin trên file đó không bỏ cái gì thì nên làm như thế nào thầy? vì trong file của thầy chỉ lấy toàn bộ các mẫu layout chứ không có toàn bộ nội dung file ý của em là tạo mới 1 file từ 1 file có sẵn. có nghĩa là nó lấy toàn bộ file kia (thay vì em copy bên ngoài rồi save as thành file khác) nhưng bây giờ em muốn nhấn nút thì nó sẽ tự động làm như vậy. xin chân thành cảm ơn các thầy đã quan tâm vấn đề này. xin chân thành cảm ơn

ptm0412

Bad Excel Member

Thành viên BQT Administrator Tham gia 4/11/07 Bài viết 13,957 Được thích 36,533 Donate (Momo) Giới tính Nam Nghề nghiệp Consultant

phihndhsp đã viết: n ý của em là tạo mới 1 file từ 1 file có sẵn. có nghĩa là nó lấy toàn bộ file kia (thay vì em copy bên ngoài rồi save as thành file khác) Nhấp chuột vào đây để mở rộng...

Trong code của anh siwtom có đường dẫn tới 2 "file có sẵn" thì chỉ việc thay vào thôi S

siwtom

Thành viên gắn bó

Tham gia 19/3/08 Bài viết 2,127 Được thích 4,208

phihndhsp đã viết: nếu mình lấy luôn tất cả toàn bộ thông tin trên file đó không bỏ cái gì thì nên làm như thế nào thầy? vì trong file của thầy chỉ lấy toàn bộ các mẫu layout chứ không có toàn bộ nội dung file ý của em là tạo mới 1 file từ 1 file có sẵn. có nghĩa là nó lấy toàn bộ file kia (thay vì em copy bên ngoài rồi save as thành file khác) nhưng bây giờ em muốn nhấn nút thì nó sẽ tự động làm như vậy. xin chân thành cảm ơn các thầy đã quan tâm vấn đề này. xin chân thành cảm ơn Nhấp chuột vào đây để mở rộng...

Tôi nghĩ là thế này. Template nó chỉ là cái sườn. Bạn dự định làm 10 presentation nhưng chúng chỉ khác nhau về nội dung còn có chung một cái sườn. Lúc đó thay vì 10 lần tạo "sườn - cấu trúc" từ A tới Z thì bạn chỉ tạo 1 lần duy nhất. Sau đó thì mỗi lần làm presentation mới thì bạn "load" cái sườn vào rồi nhập nội dung hiện hành. Lúc đó thì dùng code trước thôi. Nhưng bạn phải tạo sườn. Cách tạo thì xin mời tìm đọc. Vắn tắt thì là: Mở PowerPoint --> View --> Slide Master --> chỉnh sửa --> save dưới định dạng "potx" Bạn không thể: Mở PowerPoint --> thiết kế 1 presentation hoàn chỉnh --> nhưng không save ở dạng "pptx" mà save ở dạng "potx". Có nghĩa là lúc đó thì bạn không có cái sườn kia. Tức nếu sau khi thực hiện code trong Excel bạn chuyển sang PowerPoint để thao tác bằng tay thì khi chọn menu Home --> New Slide thì bạn không có những slide trong sườn của mình để thêm vào. Vì bạn tạo sườn không đúng cách. Tôi nghĩ là thế vì tôi không nghiên cứu PP. Nếu bạn cố tình: Mở PowerPoint --> thiết kế 1 presentation hoàn chỉnh --> nhưng không save ở dạng "pptx" mà save ở dạng "potx". thì Mã:Sao chép. Sub Button1_Click() Dim PPApp As Object, P As Object Set PPApp = CreateObject("PowerPoint.Application") PPApp.Activate Set P = PPApp.Presentations.Open("c:\hehe.potx") P.SaveAs "c:\hichic.pptx" End Sub Tức bạn mở "gốc" rồi saveas, vậy gốc vẫn còn. Chỉ có điều lúc đó chỗ xanh xanh save luôn thành "pptx" cho rồi.

Quang_Hải

Thành viên gạo cội

Tham gia 21/2/09 Bài viết 6,053 Được thích 7,969 Nghề nghiệp Làm đủ thứ

phihndhsp đã viết: nếu mình lấy luôn tất cả toàn bộ thông tin trên file đó không bỏ cái gì thì nên làm như thế nào thầy? vì trong file của thầy chỉ lấy toàn bộ các mẫu layout chứ không có toàn bộ nội dung file ý của em là tạo mới 1 file từ 1 file có sẵn. có nghĩa là nó lấy toàn bộ file kia (thay vì em copy bên ngoài rồi save as thành file khác) nhưng bây giờ em muốn nhấn nút thì nó sẽ tự động làm như vậy. xin chân thành cảm ơn các thầy đã quan tâm vấn đề này. xin chân thành cảm ơn Nhấp chuột vào đây để mở rộng...

Cuối năm rồi nên làm thầy bói đoán thử 1 quẻ. Có phải ý bạn là chỉ đơn giản thế này không? Không trúng coi như vui hén. PHP:Sao chép. Sub Copy_File_As() Dim FileSource, FileDes FileSource = ThisWorkbook.Path & "\presentation1.pptx" FileDes = ThisWorkbook.Path & "\presentation2.pptx" With CreateObject("Scripting.FileSystemObject") .copyfile FileSource, FileDes End With End Sub V

vodoi2x

Nothing & Nothing

Tham gia 16/5/11 Bài viết 1,592 Được thích 1,660

phihndhsp đã viết: nếu mình lấy luôn tất cả toàn bộ thông tin trên file đó không bỏ cái gì thì nên làm như thế nào thầy? vì trong file của thầy chỉ lấy toàn bộ các mẫu layout chứ không có toàn bộ nội dung file ý của em là tạo mới 1 file từ 1 file có sẵn. có nghĩa là nó lấy toàn bộ file kia (thay vì em copy bên ngoài rồi save as thành file khác) nhưng bây giờ em muốn nhấn nút thì nó sẽ tự động làm như vậy. xin chân thành cảm ơn các thầy đã quan tâm vấn đề này. xin chân thành cảm ơn Nhấp chuột vào đây để mở rộng...

Thế dùng tạm cái này đi Nếu ở trong powerpoint thì dùng cái này PHP:Sao chép. Sub CommandButton1_Click() Dim sTemplate As String sTemplate = "C:\Users\newnew\AppData\Roaming\Microsoft\Templates\Mau_moi14.potx" Presentations.Open sTemplate, False, True, True End Sub Thích ở Excel thì dùng cái này (sửa từ code bác Siwtom, cám ơn bác) PHP:Sao chép. Sub Button1_Click() Dim PPApp As Object,sTemplate As String sTemplate = "C:\Users\newnew\AppData\Roaming\Microsoft\Templates\Mau_moi14.potx" Set PPApp = CreateObject("PowerPoint.Application") PPApp.Activate PPApp.Presentations.Open sTemplate, False, True, True End Sub tự sửa giá trị đường dẫn sTemplate lại cho hợp lý -- Mà Thầy ơi là thầy, hỏi bao nhiêu lần ở GPE rui, mà sao không có file ví dụ cho người ta thử người ta làm cho, cứ phát biểu xuông vậy vì thế thầy tự test nhé - đặc biệt là cái sub sau cho excel có chi phản hồi sớm xin cảm ơn Lần chỉnh sửa cuối: 28/1/14

phihndhsp

Thành viên gạo cội

Tham gia 26/12/09 Bài viết 3,363 Được thích 2,487 Giới tính Nam Nghề nghiệp Giáo Viên cảm ơn các bạn bè và các bậc tiền bối. vodoi2x ,quanghai1969, siwtom và anh Ndu. mình đã giải quyết được vấn đề. Code của voidoi2x là đúng yêu cầu, qua đây mình học hỏi được thêm vài cách mở file của thầy siwtom. và anh quanghai1969. chúc đại gia đình GPE đón xuân mới vui vẻ. thật tình từ khi biết đến GPE mình đã giải quyết được rất nhiều việc, hiện tại vì cơm áo gạo tiền nên ít có thời gian góp sức cho GPE. Hy vọng sau này có nhiều thời gian để cùng GPE giúp đỡ cho những người (chẳng hạn giống như tôi bây giờ) giải quyết được nhiều công việc. một lần nữa xin chân thành cảm ơn N

ngocanhwin

Thành viên mới

Tham gia 14/2/08 Bài viết 21 Được thích 0 Cũng đang vướng vấn đề mở file bằng VBA: Em muốn mờ file bàng VBA trên Access xin các thầy chỉ giúp. Ý của em là: Trong một folder em có nhiều file mdb " D:/DATA/data1.mdb ..... data9.mdb" và một file chay.mdb Trong file chay.mdb em tạo form có các nút bấm tương đương với data1.mdb đến data9.mdb .khi bấm vào các nút lệnh tương ứng thì nó sẽ thực thi file data tương ướng trong folder D:/DATA/data..mdb nhưng có điều em muốn nó sửa tên file bằng một cái tên khác khi chạy. Ví dụ: Chọn nút bấm trên form là data1 nó sẽ sửa tên data1.mdb (trong D:/DATA/data1.mdb) thành update.mdb và chạy file update.mdb để thực hiện công việc sau khi thoát file update.mdb thì nó sẽ tự động sửa tên về data1.mdb. Mỗi khi chạy các file data1..9.mdb bằng nút lệnh tương ứng trên form của file chay.mdb thì nó sẽ sửa tên thành 1 tên duy nhất là update.mdb sau khi thoát nó lại về tên ban đầu. Em tìm hiểu mãi mà vẫn chưa làm được các thầy giúp em vơi nhé. H

Hồ Đình Thường

Thành viên mới

Tham gia 26/11/17 Bài viết 2 Được thích 0 Giới tính Nam Em muốn thực hiện mở file .jpg bằng nút lệnh trong form thì dùng lệnh nào nhỉ? Mong các bác chỉ dùm H

Hồ Đình Thường

Thành viên mới

Tham gia 26/11/17 Bài viết 2 Được thích 0 Giới tính Nam

ndu96081631 đã viết: Câu lệnh: CreateObject("Shell.Application").Open "Đường dẫn đến file" để mở bất cứ file nào (miễn là file ấy có thể mở được bằng cách double click vào file) Nhấp chuột vào đây để mở rộng...

Nhờ bạn chỉ cụ thể hơn tí, mình muốn mở file .jpg thì làm thế nào? T

ThangCuAnh

Mới rờ Ét xeo

Tham gia 1/12/17 Bài viết 896 Được thích 792 Giới tính Nam Nghề nghiệp Coder nghỉ hưu, RCE dạo Dùng hàm API ShellExecute đi. https://msdn.microsoft.com/en-us/library/windows/desktop/bb762153(v=vs.85).aspx Hoặc hàm API WinExec https://msdn.microsoft.com/en-us/library/windows/desktop/ms687393(v=vs.85).aspx Hoặc gọi method Shell của VBA.Interaction class VBA.Interaction.Shell "Your file", VbWinAppStyle := xxx Lần chỉnh sửa cuối: 9/12/17 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

Cách điền dữ liệu theo nhiều điều kiện

• ajimichikko
• 55 phút trước
• Hàm và công thức Excel

Trả lời 6 Đọc 31 Vài giây trước Duy Tùng 9x D Xin giúp đỡ: Theo dõi hợp đồng lao động

• • 

• Denly
• Thứ hai lúc 09:07
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 5 Đọc 120 24 phút trước Phan Thế Hiệp D Hàm sumifs bị lỗi khi có điều kiện thời gian

• • 

• Denly
• Thứ hai lúc 08:55
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 1 Đọc 46 39 phút trước Phan Thế Hiệp Xin giúp vấn đề vba chèn hình nhưng người nhận file không nhìn thấy hình

• hungvm1505
• Thứ bảy lúc 22:48
• Thành viên giúp nhau

Trả lời 4 Đọc 142 Hôm nay lúc 09:40 giaiphap T

• Question

Tim tên và số trận đấu

• theducthethao591
• Hôm qua, lúc 17:06
• Lập Trình với Excel

Trả lời 1 Đọc 55 Hôm nay lúc 09:34 HieuCD H Xem thêm… Chia sẻ: Facebook X (Twitter) Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1

DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2

Thành viên có số lượng bài viết cao nhất tháng

• ptm0412 19
• VetMini 17
• Phan Thế Hiệp 13
• nguyenthibaohoa1502@gmail 9
• SA_DQ 8
• longtay1111 6
• Hoàng Tuấn 868 6
• hung2412 6
• Nhattanktnn 5
• HieuCD 5
• Denly 5
• huuthang_bd 4
• PHONGGANHHAO 4
• ongke0711 4
• ajimichikko 3
• nguyễn thanh tùng3288 2
• HeSanbi 2
• BuiQuangThuan 2
• huhumalu 2
• acrox84 2

Thành viên có điểm tương tác cao nhất tháng

• Phan Thế Hiệp 43
• VetMini 17
• Nhattanktnn 15
• huuthang_bd 15
• longtay1111 13
• SA_DQ 12
• HieuCD 12
• Hoàng Tuấn 868 7
• ptm0412 7
• ongke0711 6
• befaint 4
• LmoovoenX 3
• BuiQuangThuan 3
• PHONGGANHHAO 3
• Mr.hieudoanxd 2
• caocat 2
• nguyenthibaohoa1502@gmail 2
• Denly 2
• Phuocam 1
• Kiều Mạnh 1

• Trang chủ
• Diễn đàn
• Excel và các ngôn ngữ lập trình khác
• Excel và các ngôn ngữ lập trình khác

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom