 vodainhan  Access Cơ Bản  Bài viết: 32 Chủ đề: 5 Tham Gia: 06-11 -13 Điểm danh tiếng: 0 Tiền Access: 682.93Ac$ #1 05-07-18, 12:19 PM VBA Access: Nhờ giúp đưa tham số vào hàm Call Shell để mở file Excel! Thanks! Private Sub cmdOpenExcel_Click() Dim s As String s = Application.CurrentProject.Path & "\BC_Thang_Phong_KT.xlsx" Call Shell("EXCEL ""s", 1) 'error End Sub Chữ ký của vodainhan Xin chào, mình là vodainhan, Tham gia http://thuthuataccess.com/forum từ ngày 06-11 -13. Website Find Reply  ongke0711 Honorary members Bài viết: 3,579 Chủ đề: 63 Tham Gia: 10-04 -15 Điểm danh tiếng: 165 Tiền Access: 92,601.88Ac$ #2 05-07-18, 01:18 PM (05-07-18, 12:19 PM)vodainhan Đã viết: VBA Access: Nhờ giúp đưa tham số vào hàm Call Shell để mở file Excel! Thanks! Private Sub cmdOpenExcel_Click() Dim s As String s = Application.CurrentProject.Path & "\BC_Thang_Phong_KT.xlsx" Call Shell("EXCEL ""s", 1) 'error End Sub Sửa code này: Call Shell("Excel.exe " & s, 1) - Có khoảng trắng sau chữ '.exe' - Bạn đã truyền tham số "s" là biến chuỗi vô câu lệnh thì đóng ngoặc kép nó làm gì. Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake! ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ          Website Find Reply vodainhan Access Cơ Bản Bài viết: 32 Chủ đề: 5 Tham Gia: 06-11 -13 Điểm danh tiếng: 0 Tiền Access: 682.93Ac$ #3 05-07-18, 02:05 PM (05-07-18, 01:18 PM)ongke0711 Đã viết: (05-07-18, 12:19 PM)vodainhan Đã viết: VBA Access: Nhờ giúp đưa tham số vào hàm Call Shell để mở file Excel! Thanks! Private Sub cmdOpenExcel_Click() Dim s As String s = Application.CurrentProject.Path & "\BC_Thang_Phong_KT.xlsx" Call Shell("EXCEL ""s", 1) 'error End Sub Sửa code này: Call Shell("Excel.exe " & s, 1) - Có khoảng trắng sau chữ '.exe' - Bạn đã truyền tham số "s" là biến chuỗi vô câu lệnh thì đóng ngoặc kép nó làm gì. đã thử rồi mà không được đó chứ. nó bị lỗi. vd: đường dẫn: D:\Khoa hoc\Baocao|BC_thang.xlsx nó có nhiều thông báo lỗi: không tìm thấy D:\khoa.xlsx. , không tìm thấy D:\hoc.xlsx ... Chữ ký của vodainhan Xin chào, mình là vodainhan, Tham gia http://thuthuataccess.com/forum từ ngày 06-11 -13. Website Find Reply ongke0711 Honorary members Bài viết: 3,579 Chủ đề: 63 Tham Gia: 10-04 -15 Điểm danh tiếng: 165 Tiền Access: 92,601.88Ac$ #4 05-07-18, 02:29 PM Bạn phải xem lại biến 's' của bạn. Bạn khai báo: s = Application.CurrentProject.Path & "\BC_Thang_Phong_KT.xlsx" --> tức là file Excel này phải nằm trong cùng một folder chứa cái ứng dụng Access này thì nó mới tìm thấy chứ (Application.CurrentProject.Path). Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake! ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ Website Find Reply vodainhan Access Cơ Bản Bài viết: 32 Chủ đề: 5 Tham Gia: 06-11 -13 Điểm danh tiếng: 0 Tiền Access: 682.93Ac$ #5 05-07-18, 03:24 PM (05-07-18, 02:29 PM)ongke0711 Đã viết: Bạn phải xem lại biến 's' của bạn. Bạn khai báo: s = Application.CurrentProject.Path & "\BC_Thang_Phong_KT.xlsx" --> tức là file Excel này phải nằm trong cùng một folder chứa cái ứng dụng Access này thì nó mới tìm thấy chứ (Application.CurrentProject.Path). CHÍNH XÁC LÀ NHƯ VẦY: File Access: D:\Khoa hoc\TestCallShell.accdb file Excel: D:\Khoa hoc\Bao cao\BC_Thang.xlsx code 1 nút lệnh trên form (đã kiểm tra kỹ, sửa lại vẫn bị lỗi không rõ sai chỗ nào): Private Sub cmdOpenExcel_Click() Dim s As String s = Application.CurrentProject.Path & "\Bao cao\BC_Thang.xlsx" Call Shell("EXCEL.exe " & s, 1) End Sub Bác test lại giúp, cám ơn thật nhiều! Chữ ký của vodainhan Xin chào, mình là vodainhan, Tham gia http://thuthuataccess.com/forum từ ngày 06-11 -13. Website Find Reply  Xuân Thanh Lang Thang Miền Đất Lạ... Bài viết: 1,768 Chủ đề: 92 Tham Gia: 25-03 -12 Điểm danh tiếng: 79 Tiền Access: 28,156.60Ac$ #6 05-07-18, 03:53 PM (Được chỉnh sửa: 05-07-18, 03:54 PM bởi Xuân Thanh.) Hình như Tên Thư Mục và Tên File không được có khoảng trắng khi tham chiếu bằng Shell thì phải Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp Trăm năm sau biết gặp được không? Cuộc đời sắc sắc không không Thì thôi ta cứ hết lòng vì nhau ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ   Website Find Reply ongke0711 Honorary members Bài viết: 3,579 Chủ đề: 63 Tham Gia: 10-04 -15 Điểm danh tiếng: 165 Tiền Access: 92,601.88Ac$ #7 05-07-18, 04:13 PM Đúng như bác Xuân Thanh nói. Shell script không dùng được các tên folder, file có khoảng trắng. Nếu không muốn đổi tên file. thư mục thì bạn dùng code của bạn maidinhdan theo llink bên dứoi. Link: http://thuthuataccess.com/forum/thread-8444.html Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake! ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ Website Find Reply  MTNQ MTNQ Bài viết: 401 Chủ đề: 0 Tham Gia: 07-09 -13 Điểm danh tiếng: 40 Tiền Access: 12,665.87Ac$ #8 05-07-18, 05:19 PM (05-07-18, 03:24 PM)vodainhan Đã viết: CHÍNH XÁC LÀ NHƯ VẦY: File Access: D:\Khoa hoc\TestCallShell.accdb file Excel: D:\Khoa hoc\Bao cao\BC_Thang.xlsx code 1 nút lệnh trên form (đã kiểm tra kỹ, sửa lại vẫn bị lỗi không rõ sai chỗ nào): Private Sub cmdOpenExcel_Click() Dim s As String s = Application.CurrentProject.Path & "\Bao cao\BC_Thang.xlsx" Call Shell("EXCEL.exe " & s, 1) End Sub Bác test lại giúp, cám ơn thật nhiều! Nếu trong đường dẫn hoặc thư mục có khoảng trắng thì bạn phải bỏ vào ngoặc kép: Mã:Private Sub cmdOpenExcel_Click() Dim s As String s = Chr(34) & Application.CurrentProject.Path & "\Bao cao\BC_Thang.xlsx" & Chr(34) 'Debug.Print s Call Shell("EXCEL.exe " & s, 1) End Sub Chữ ký của MTNQ Thời gian nước chảy... da mòn Ngủ quên một chốc thấy còn bộ xương! Website Find Reply Xuân Thanh Lang Thang Miền Đất Lạ... Bài viết: 1,768 Chủ đề: 92 Tham Gia: 25-03 -12 Điểm danh tiếng: 79 Tiền Access: 28,156.60Ac$ #9 05-07-18, 05:46 PM (05-07-18, 05:19 PM)MTNQ Đã viết: (05-07-18, 03:24 PM)vodainhan Đã viết: CHÍNH XÁC LÀ NHƯ VẦY: File Access: D:\Khoa hoc\TestCallShell.accdb file Excel: D:\Khoa hoc\Bao cao\BC_Thang.xlsx code 1 nút lệnh trên form (đã kiểm tra kỹ, sửa lại vẫn bị lỗi không rõ sai chỗ nào): Private Sub cmdOpenExcel_Click() Dim s As String s = Application.CurrentProject.Path & "\Bao cao\BC_Thang.xlsx" Call Shell("EXCEL.exe " & s, 1) End Sub Bác test lại giúp, cám ơn thật nhiều! Nếu trong đường dẫn hoặc thư mục có khoảng trắng thì bạn phải bỏ vào ngoặc kép: Mã:Private Sub cmdOpenExcel_Click() Dim s As String s = Chr(34) & Application.CurrentProject.Path & "\Bao cao\BC_Thang.xlsx" & Chr(34) 'Debug.Print s Call Shell("EXCEL.exe " & s, 1) End Sub Lão MTNQ này nhanh tay thiệt. Đang tính nhắc thì thấy bài của lão. Hêhê  Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp Trăm năm sau biết gặp được không? Cuộc đời sắc sắc không không Thì thôi ta cứ hết lòng vì nhau ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ Website Find Reply MTNQ MTNQ Bài viết: 401 Chủ đề: 0 Tham Gia: 07-09 -13 Điểm danh tiếng: 40 Tiền Access: 12,665.87Ac$ #10 05-07-18, 09:15 PM (05-07-18, 05:46 PM)Xuân Thanh Đã viết: Lão MTNQ này nhanh tay thiệt. Đang tính nhắc thì thấy bài của lão. Hêhê  Cũng sắp thành "Lão" rùi, mà "lão" thì "chân chậm mắt mờ" chứ cũng còn "nhanh tay" lém  Chữ ký của MTNQ Thời gian nước chảy... da mòn Ngủ quên một chốc thấy còn bộ xương! Website Find Reply |
« Trở lại 1 ... 4 5 6 7 8 ... 20 Tiếp theo » 
[Help] Tham so trong lenh Call Shell Đánh giá chủ đề: