Xin Giúp : Mở 1 File Trong VBA | Giải Pháp Excel
Có thể bạn quan tâm
- 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
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 đề Tìm kiếm Tìm nâng cao…- Tìm bài viết mới
- Tìm theo chuyên mục
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
- 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,479 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 Tthlamvba
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 Sscooby
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 Subphihndhsp
Thành viên gạo cội
Tham gia 26/12/09 Bài viết 3,363 Được thích 2,488 Giới tính Nam Nghề nghiệp Giáo Viêntedaynui đã 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,950phihndhsp đã 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,488 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ềundu96081631
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,950phihndhsp đã 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,488 Giới tính Nam Nghề nghiệp Giáo Viênndu96081631 đã 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,210phihndhsp đã 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,488 Giới tính Nam Nghề nghiệp Giáo Viênsiwtom đã 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 14,459 Được thích 37,127 Donate (Momo) Giới tính Nam Nghề nghiệp Consultantphihndhsp đã 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,210phihndhsp đã 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,070 Được thích 7,992 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,660phihndhsp đã 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,488 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 Nngocanhwin
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é. HHồ Đì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 HHồ Đì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 Namndu96081631 đã 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
Nhờ ae hỗ trợ bỏ cảnh báo hết hạn phần mềm Êxel.- Tran hieu 92
- Chủ nhật lúc 10:23
- Hàm và công thức Excel
- LINHCM
- Chủ nhật lúc 05:56
- Tìm kiếm, dò tìm và tham chiếu
- acrox84
- Chủ nhật lúc 10:48
- Xử lý chuỗi ký tự
- songiang5011
- Hôm qua, lúc 21:51
- Hàm và công thức Excel
- bipbo2008
- Chủ nhật lúc 11:32
- Hàm và công thức Excel
- Question
- Manhhung90
- Chủ nhật lúc 12:30
- Lập Trình với Excel
- Question
- BuiQuangThuan
- Hôm qua, lúc 14:29
- Lập Trình với Excel
- Question
- Luan Nguyen 02
- Hôm qua, lúc 14:30
- Lập Trình với Excel
- nghiemcongdien
- 9/11/24
- Google Spreadsheets
- pqdowntailieu3
- 5/9/24
- Google Spreadsheets
- Question
- ongke0711
- 6/10/24
- Lập Trình với Excel
- Question
- bipbo2008
- Chủ nhật lúc 10:57
- Lập Trình với Excel
- thuong-minh
- Thứ sáu lúc 14:16
- Hàm và công thức Excel
- Nguyễn Duy Tuân
- 13/9/24
- BLUESOFTS: A-Excel, A-Tools
- AnhThu-1976
- Thứ bảy lúc 13:48
- Excel và các ngôn ngữ lập trình khác
- Linh trịnh 211
- Chủ nhật lúc 14:17
- Tìm kiếm, dò tìm và tham chiếu
- hieuchi89
- 28/8/24
- Hàm và công thức Excel
- GPE-Trợ Lý
- Thứ năm lúc 07:30
- Học tập Online
- vba_excel
- 31/3/16
- MS Word và Các phần mềm soạn thảo văn bản
- PhanTuHuong
- 16/10/19
- Thư giãn
Đếm ngược thời gian
000 Ngày 00 Giờ 00 phút 00 giây [GPE] TALK SHOW EXCEL KẾT HỢP VỚI GOOGLE SHEETS: ỨNG DỤNG THỰC TẾ [GPE] TALK SHOW EXCEL KẾT HỢP VỚI GOOGLE SHEETS: ỨNG DỤNG THỰC TẾThành viên có số lượng bài viết cao nhất tháng
- Hoàng Tuấn 868 29
- HeSanbi 21
- hoangtuaotrang_hp_vn 20
- LINHCM 18
- qtm1987 17
- huuthang_bd 15
- SA_DQ 15
- ongke0711 15
- DeTong 12
- HUONGHCKT 12
- ptm0412 12
- Duy Tùng 9x 10
- hvnhpro 10
- hoangminhtien 10
- Nguyễn Duy Tuân 9
- BuiQuangThuan 9
- GPE-Trợ Lý 8
- thuong-minh 7
- ngọcanh@123 6
- befaint 6
Thành viên có điểm tương tác cao nhất tháng
- huuthang_bd 33
- Hoàng Tuấn 868 31
- hoangtuaotrang_hp_vn 27
- SA_DQ 22
- HieuCD 19
- HUONGHCKT 19
- HeSanbi 19
- GPE-Trợ Lý 17
- hoangminhtien 17
- ptm0412 17
- ongke0711 13
- DeTong 12
- Hai Lúa Miền Tây 11
- befaint 11
- qtm1987 9
- Nguyễn Duy Tuân 9
- NT Ngoc Yen 8
- Phuocam 8
- Duy Tùng 9x 8
- zinhzinh 6
- 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.…
Từ khóa » Câu Lệnh Mở File Trong Vba
-
Mở File Excel Trong VBA - VietTuts
-
Đóng Và Mở File Excel Bằng VBA
-
Hướng Dẫn Sử Dụng VBA Làm Việc Với File Trong Thư Mục Khác
-
Hướng Dẫn Cách Tạo Nút Bấm Chọn Thư Mục Trong Excel Bằng VBA
-
Tổng Hợp Các Code VBA Excel Thao Tác Với Workbook Chỉ Trong Nháy ...
-
[Tool Ex Test]Mở Một File Excel Khác Và Lấy Thông Tin ở File đó ...
-
Hai Cách Mở File Bằng VBA| Sử Dụng GetOpen FileName để Tạo ...
-
Đóng Và Mở File Excel Bằng VBA - ự Học Excel VBA - Code24h
-
Hàm DIR Trong VBA (Phần 2) - Thủ Thuật
-
Các Sự Kiện Và Thao Tác Với Workbook Bằng VBA
-
Tự động Chạy Macro Khi Mở Một Sổ Làm Việc - Microsoft Support
-
Cách Cập Nhật Dữ Liệu Từ Nhiều File Excel Về Một File Excel Duy Nhất
-
Cách Lưu File Excel Chứa Code Macros VBA