Code không thực thi được

[masteroffice1988]

Em có một chạy thử một đoạn code để mở phần mềm Window Calculator (calc.exe) như sau.

Sub StartCalculator()
Dim Program As String
Dim TaskID As Double
On Error Resume Next
Program = “calc.exe”
TaskID = Shell(Program, 1)
If Err <> 0 Then
MsgBox “Can’t start “ & Program
End If
End Sub

Nhưng khi chạy nó lại không được mà báo lỗi như sau:

Xin mọi người giúp em sửa lỗi này.

Ngoài ra có một đoạn code dự phòng này nữa. Em không biết nó chạy như thế nào?

Public TaskIDSub StartCalculator2()
Dim Program As String
Dim TaskID As Double
Program = “calc.exe”
On Error Resume Next
AppActivate “Calculator”
If Err <> 0 Then
Err = 0
TaskID = Shell(Program, 1)
If Err <> 0 Then MsgBox “Can’t start “ & Program
End If
End Sub

 

[ndu96081631]

Em có một chạy thử một đoạn code để mở phần mềm Window Calculator (calc.exe) như sau.

Sub StartCalculator()
Dim Program As String
Dim TaskID As Double
On Error Resume Next
Program = “calc.exe”
TaskID = Shell(Program, 1)
If Err <> 0 Then
MsgBox “Can’t start “ & Program
End If
End Sub

Nhưng khi chạy nó lại không được mà báo lỗi như sau:

Xin mọi người giúp em sửa lỗi này.

Ngoài ra có một đoạn code dự phòng này nữa. Em không biết nó chạy như thế nào?

Public TaskIDSub StartCalculator2()
Dim Program As String
Dim TaskID As Double
Program = “calc.exe”
On Error Resume Next
AppActivate “Calculator”
If Err <> 0 Then
Err = 0
TaskID = Shell(Program, 1)
If Err <> 0 Then MsgBox “Can’t start “ & Program
End If
End Sub

Code đúng, chỉ sai dấu “ và ”

Bạn sửa nó thành dấu " nhé
------------
Mà sao lằng nhằng thế, sao không rút gọn thành:

Sub StartCalculator()
  Shell "calc.exe", 1
End Sub