code để open excel file trong VBA Powerpoint file (3 người xem)

[huongduongxanh2007]

Bạn nào biết làm sao để viết code trong VBE Poweroint mà mỗi khi mình click vào đó thì file excel mở ra.Thanks

 

[cadafi]

Bạn nào biết làm sao để viết code trong VBE Poweroint mà mỗi khi mình click vào đó thì file excel mở ra.Thanks

Việc này không cần phải viết code bạn à! Bạn click chuột phải chọn Hyperlink, gõ địa chỉ chứa file excel vào ô address là xong.

 

[nhatthai]

Bạn nào biết làm sao để viết code trong VBE Poweroint mà mỗi khi mình click vào đó thì file excel mở ra.Thanks

CHẮC LÀ BẠN ẤY MUỐN NHÚNG HẲN BẢNG TÍNH EX VÀO PEWEOINT CHỨ KHÔNG PHẢI LIÊN KẾT (GIỐNG NHƯ CHÈN BẢNG TÍNH EX VÀO WORD) CHỨ KHÔNG PHẢI LINK
CHỌN INSERT->OBJECT..->TRONG KHUNG INSERT OBJECT CHỌN MICROSOFT EXCEL WORKSHEET R NH OK

 

[huongduongxanh2007]

cái hyperlink đó cũng mình biết. Nhưng mình muốn viết code,tại cái đó là 1 phần trong code của mình .vd trong VBA Excel thì application.workbooks.open......Nhưng vào VBA Powerpoint thì ko được.

 

[cadafi]

cái hyperlink đó cũng mình biết. Nhưng mình muốn viết code,tại cái đó là 1 phần trong code của mình .vd trong VBA Excel thì application.workbooks.open......Nhưng vào VBA Powerpoint thì ko được.

Để mở file excel:

Sub MoFile()
        Dim MyFile
        MyFile = Shell("C:\Program Files\Microsoft Office\Office11\Excel.exe D:\GPE\kiet.xls", vbNormalFocus)
End Sub

Để mở file Word:

Sub MoFile()
        Dim MyFile
        MyFile = Shell("C:\Program Files\Microsoft Office\Office11\WinWord.exe D:\GPE\kiet.doc", vbNormalFocus)
End Sub

Để mở file Access:

Sub MoFile()
        Dim MyFile
        MyFile = Shell("C:\Program Files\Microsoft Office\Office11\MSACCESS.EXE D:\GPE\kiet.mdb", vbNormalFocus)
End Sub

Để mở file PDF (tùy theo đường dẫn cài đặt chương trình đọc PDF, mình giả lập trên ADOBE READER 8.0)

Sub MoFile()
        Dim MyFile
        MyFile = Shell("C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe D:\GPE\kiet.pdf", vbNormalFocus)
End Sub

Cú pháp chung của hàm shell:

Shell(PathName, [windowstyle])

Trong đó; PathName bao gồm đường dẫn kích hoạt chương trình chạy_đường dẫn tới file cần mở.

Bạn xem thêm bài viết tại đây:
http://www.giaiphapexcel.com/forum/showthread.php?p=77600

 

[huongduongxanh2007]

Không biết giữa 2 path có ngăn cách gì ko nhỉ ?Sao mình run hoài mà chỉ chạy được path đầu tiên,ra được excel application thôi à,còn path thứ 2 báo lỗi sai đường dẫn trong khi mình check đi check lại rẩt là careful lắm .Mà cũng thanks bạn nhiều

 

[cadafi]

Không biết giữa 2 path có ngăn cách gì ko nhỉ ?Sao mình run hoài mà chỉ chạy được path đầu tiên,ra được excel application thôi à,còn path thứ 2 báo lỗi sai đường dẫn trong khi mình check đi check lại rẩt là careful lắm .Mà cũng thanks bạn nhiều

Giữa hai Path là một khoản trắng bạn à.

 

[huongduongxanh2007]

sao thu hoai ma chi open duoc path thu 1 a.

 

[cadafi]

sao thu hoai ma chi open duoc path thu 1 a.

Bạn đưa file bạn làm lên mình xem thử. Hoặc bạn đưa đoạn code mà bạn đang thử không được lên xem nhé!

 

[huongduongxanh2007]

Code của mình ở bên dưới,mình dang viết trong PPT nha.

Sub openfile()
Dim fileopen
fileopen = Shell("C:\Program Files\Microsoft Office\OFFICE11\excel.exe E:\my data\My Chevron internship project\tien\VN Tested Data.xls", vbNormalFocus)
End Sub

Nó chỉ chạy được workbook,rồi báo lỗi.cứ mỗi lần click OK là nó lại ra thông báo khác tương tự như vậy với tên file khác.
Mà chắc chắc là path của mình đúng.

 

[cadafi]

Bạn kiểm tra lại một lần nữa đướng dẫn đến file excel xem. Vì như mình thấy đường dẫn của bạn có nhiều thư mục được đặt tên có khoản trắng đấy.

Bạn cũng có thể thử tạo một file excel với đường dẫn dễ nhìn hơn, ví dụ E:\excel.xls và cho code chạy thử xem.

 

[huongduongxanh2007]

cái path mình copy đường link ra luôn nên không thể nào nhầm được.Mình cũng đã check lại rồi

 

[huongduongxanh2007]

Hic,tôi biết rồi.Nếu file của tôi là book1.xls thì nó chạy được,còn file name mà có space thì nó chạy không được.vd :book 1.xls.Cũng không hiểu nguyên nhân tại sao nữa