Sử dụng lệnh Shell

[challenge98]

Trong VB6 hoặc Vba Khi sử dụng lệnh Shell

Dim revat
revat = Shell("C:\Program Files\Microsoft Office\OFFICE11\excel.exe c:\book1.xls", 1)

Thì chạy được nhưng chuyển book1.xls thành book1.xla

Dim revat
revat = Shell("C:\Program Files\Microsoft Office\OFFICE11\excel.exe c:\book1.xla", 1)

Thì lại bật cả Excel lên
Mình muốn chỉ bật file book1.xla như khi mình kích đúp chuột vào file đó thì làm thế nào?
Xin mọi người chỉ giáo.

 

[Hoàng Trọng Nghĩa]

Trong VB6 hoặc Vba Khi sử dụng lệnh Shell

Dim revat
revat = Shell("C:\Program Files\Microsoft Office\OFFICE11\excel.exe c:\book1.xls", 1)

Thì chạy được nhưng chuyển book1.xls thành book1.xla

Dim revat
revat = Shell("C:\Program Files\Microsoft Office\OFFICE11\excel.exe c:\book1.xla", 1)

Thì lại bật cả Excel lên
Mình muốn chỉ bật file book1.xla như khi mình kích đúp chuột vào file đó thì làm thế nào?
Xin mọi người chỉ giáo.

Bạn phải dùng đường dẫn này mới đúng chứ nhỉ?
C:\Users\Your computer name\AppData\Roaming\Microsoft\AddIns

 

[challenge98]

Bạn xem lại rùm không được chạy báo lỗi ngay bạn à?

 

[Hoàng Trọng Nghĩa]

Bạn xem lại rùm không được chạy báo lỗi ngay bạn à?

Bạn có đổi tên "Your computer name" là tên của máy tính bạn chưa nhỉ?

 

[challenge98]

Tất nhiên là phải đổi tên rồi, thế bạn có test trên máy của bạn chạy không? bạn vui lòng Test hộ mình với! thanks! với lại trong foder Addin của đường dẫn bạn đưa ra là một foder trống thì làm sao chạy được?

 

[ndu96081631]

Trong VB6 hoặc Vba Khi sử dụng lệnh Shell

Dim revat
revat = Shell("C:\Program Files\Microsoft Office\OFFICE11\excel.exe c:\book1.xls", 1)

Thì chạy được nhưng chuyển book1.xls thành book1.xla

Dim revat
revat = Shell("C:\Program Files\Microsoft Office\OFFICE11\excel.exe c:\book1.xla", 1)

Thì lại bật cả Excel lên
Mình muốn chỉ bật file book1.xla như khi mình kích đúp chuột vào file đó thì làm thế nào?
Xin mọi người chỉ giáo.

Tôi nghĩ code sẽ thế này:

With CreateObject("Shell.Application")
 .Open ("c:\book1.xla")
End With

Tương đương với việc bạn Double Click vào file đấy!
Thí nghiệm xem

 

[challenge98]

Cho Em hỏi là để run một macro trong file xla đã được bật, trong VB6 ta viết code này không ạ

Private Sub Command1_Click()
With CreateObject("Shell.Application")
 .Open ("c:\book1.xla")
End With
Excel.Application.Run test
End Sub

TRong file book1.xla có macro tên là Test, em đã thủ nhưng không chạy mong mọi người test dùm.Thanks!

 

[ndu96081631]

Cho Em hỏi là để run một macro trong file xla đã được bật, trong VB6 ta viết code này không ạ

Private Sub Command1_Click()
With CreateObject("Shell.Application")
 .Open ("c:\book1.xla")
End With
Excel.Application.Run test
End Sub

TRong file book1.xla có macro tên là Test, em đã thủ nhưng không chạy mong mọi người test dùm.Thanks!

Tôi chưa hiểu RUN là RUN thế nào nhỉ?
Một code tồn tại trong 1 file Excel, nếu muốn chạy nó đương nhiên ta phải khởi động ứng dụng Excel lên (hoặc khởi động 1 file Excel) ---> Đàng này, chỉ có mổi file .xla thì RUN cái gì (chẳng có bảng tính, sao mà RUN)

 

[challenge98]

Em muốn mở file book1.xla và run macro trong file xla thêm wb để book1.xla trở thành addin Hihi có thể em nói hơi khó hiểu em xin gửi file đính kèm
kết quả phải như ta nhấn Alt +F8 nhập Test mới đúng thì ở đây khi chạy nó chỉ báo là đã thêm WB mà không thêm gì cả? mong các anh xem giúp

 

[ndu96081631]

Em muốn mở file book1.xla và run macro trong file xla thêm wb để book1.xla trở thành addin Hihi có thể em nói hơi khó hiểu em xin gửi file đính kèm
kết quả phải như ta nhấn Alt +F8 nhập Test mới đúng thì ở đây khi chạy nó chỉ báo là đã thêm WB mà không thêm gì cả? mong các anh xem giúp

Bạn vui lòng nói rõ "MỤC ĐÍCH CUỐI CÙNG" xem
Mục đích của bạn là:
- Thêm file xla (của bạn) vào Excel và load nó
- Chạy code trong file xla
Hai chuyện khác nhau à nha!
- Nếu chỉ cài Add-Ins thì không cần RUN
- Nếu cần RUN code (trong Module Test) thì đâu cần tạo Add-Ins --> Chạy trực tiếp luôn
(Không biết đây là bài tập VB6 hay là thực tế công việc)

 

[challenge98]

Hi mục đích của mình là chạy code trong file book1.xla có cách nào giải quyết không bạn?

 

[ndu96081631]

Hi mục đích của mình là chạy code trong file book1.xla có cách nào giải quyết không bạn?

Thế bạn cho tôi hỏi: Nếu tôi chạy code trực tiếp luôn (tức viết code vào trong cửa sổ VB6) mà không cần file xla này thì có vấn đề gì không?
Mà tôi nghĩ bạn thừa sức làm được ấy chứ ---> Code trong file xla thế nào cứ viết vào VB6 y chang thế (sửa lại tí thôi)
Còn như bạn muốn cài đặt file xla này thành 1 Add-In cho Excel thì đó lại là chuyện khác (không cần chạy code)

 

[challenge98]

Hi mọi người thường bật Excel rùi cài addin nhưng mình mốn bật addin rùi cài vào Excel mà. bạn xem giúp mình code ở bài trên nhé! thankS

 

[ndu96081631]

Hi mọi người thường bật Excel rùi cài addin nhưng mình mốn bật addin rùi cài vào Excel mà. bạn xem giúp mình code ở bài trên nhé! thankS

Mình muốn giúp lắm (vì theo như yêu cầu thì cũng chẳng khó khăn gì) nhưng thật sự mình vẫn chưa hiểu rõ ý đồ của bạn ---> Chẳng biết phải giúp theo hướng nào!

 

[challenge98]

Hì hì chỉ cần đơn giản thế này thôi mở file .xla đã làm được rùi còn tạo Workbook mới thì chưa làm được sau khi mở wb. vui lòng xem file đính kèm