Nhờ các anh chị kiểm tra dùm e code e sai chỗ nào mà vẫn báo lỗi "Run time error '424'"

Liên hệ QC
T

tdnhandno

Thành viên mới
Tham gia
10/3/16
Bài viết
47
Được thích
1
Sub testthu()
Dim i As Long, EndR As Long
If Not IsObject(Application) Then
Set SapGuiAuto = GetObject("SAPGUI")
Set Applications = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(Connection) Then
Set Connection = Applications.Children(0)
End If
If Not IsObject(session) Then
Set session = Connection.Children(0)
End If
If IsObject(WScript) Then
WScript.ConnectObject session, "on"
WScript.ConnectObject Application, "on"
End If
EndR = Sheet1.Range("A65000").End(xlUp).Row

session.findById("wnd[0]").maximize
session.findById("wnd[0]/usr/cntlIMAGE_CONTAINER/shellcont/shell/shellcont[0]/shell").doubleClickNode "0000000259"
For i = 2 To EndR
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/ctxtZTB_HSMG_H-ZF_MST").Text = Sheet1.Range("A" & i).Value
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/txtZTB_HSMG_H-SO_HS").Text = Sheet1.Range("B" & i).Value
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/ctxtZTB_HSMG_H-NGAY_HS").Text = "05052020"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/txtZTB_HSMG_H-SO_CVAN").Text = "01"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/ctxtZTB_HSMG_H-NGAY_CVAN").Text = "05052020"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/ctxtZTB_HSMG_H-NGAY_DU_HS").Text = "05052020"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/ctxtZTB_HSMG_H-TRG_HOP_MG").Text = "20"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/ctxtZTB_HSMG_H-TRG_HOP_MG").SetFocus
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/ctxtZTB_HSMG_H-TRG_HOP_MG").caretPosition = 2
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").pressToolbarButton "CREATE"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").pressToolbarButton "CREATE"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").modifyCell 0, "ZF_TIEU_MUC", "1701"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").modifyCell 0, "ZF_CHUONG", "757"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").modifyCell 0, "ZF_KY_THUE_TU", "2005"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").modifyCell 0, "ZF_KY_THUE_DEN", "2005"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").modifyCell 0, "ZF_THUE_DNMG", Sheet1.Range("I" & i).Value
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").modifyCell 0, "ZF_MA_LYDO", "2001"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").modifyCell 1, "ZF_TIEU_MUC", "1003"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").modifyCell 1, "ZF_CHUONG", "757"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").modifyCell 1, "ZF_KY_THUE_TU", "2005"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").modifyCell 1, "ZF_KY_THUE_DEN", "2005"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").modifyCell 1, "ZF_THUE_DNMG", Sheet1.Range("K" & i).Value
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").modifyCell 1, "ZF_MA_LYDO", "2001"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").setCurrentCell 1, "ZF_MA_LYDO"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").pressEnter
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC3").Select
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC3/ssubHSMG_SCA:ZPG_MG_HS:0203/txtZTB_HSMG_H-ZZ_SO_QD").Text = Sheet1.Range("P" & i).Value
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC3/ssubHSMG_SCA:ZPG_MG_HS:0203/ctxtZTB_HSMG_H-ZZ_NGAY_QD").Text = "06052020"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC3/ssubHSMG_SCA:ZPG_MG_HS:0203/txtZTB_HSMG_H-ZZ_SO_QD").SetFocus
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC3/ssubHSMG_SCA:ZPG_MG_HS:0203/txtZTB_HSMG_H-ZZ_SO_QD").caretPosition = 4
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC3/ssubHSMG_SCA:ZPG_MG_HS:0203/btnBTN_HOTRO").press
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC3/ssubHSMG_SCA:ZPG_MG_HS:0203/cntlDXMG/shellcont/shell").modifyCell 0, "ZF_THUE_DU_DKMG", Sheet1.Range("N" & i).Value
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC3/ssubHSMG_SCA:ZPG_MG_HS:0203/cntlDXMG/shellcont/shell").modifyCell 1, "ZF_THUE_DU_DKMG", Sheet1.Range("O" & i).Value
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC3/ssubHSMG_SCA:ZPG_MG_HS:0203/cntlDXMG/shellcont/shell").pressEnter
session.findById("wnd[0]/tbar[0]/btn[11]").press
session.findById("wnd[0]/tbar[1]/btn[48]").press
session.findById("wnd[0]/tbar[1]/btn[8]").press
Next i
End Sub
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
tdnhandno đã viết:
Sub testthu()
Dim i As Long, EndR As Long
If Not IsObject(Application) Then
Set SapGuiAuto = GetObject("SAPGUI")
Set Applications = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(Connection) Then
Set Connection = Applications.Children(0)
End If
If Not IsObject(session) Then
Set session = Connection.Children(0)
End If
If IsObject(WScript) Then
WScript.ConnectObject session, "on"
WScript.ConnectObject Application, "on"
End If
EndR = Sheet1.Range("A65000").End(xlUp).Row

session.findById("wnd[0]").maximize
session.findById("wnd[0]/usr/cntlIMAGE_CONTAINER/shellcont/shell/shellcont[0]/shell").doubleClickNode "0000000259"
For i = 2 To EndR
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/ctxtZTB_HSMG_H-ZF_MST").Text = Sheet1.Range("A" & i).Value
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/txtZTB_HSMG_H-SO_HS").Text = Sheet1.Range("B" & i).Value
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/ctxtZTB_HSMG_H-NGAY_HS").Text = "05052020"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/txtZTB_HSMG_H-SO_CVAN").Text = "01"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/ctxtZTB_HSMG_H-NGAY_CVAN").Text = "05052020"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/ctxtZTB_HSMG_H-NGAY_DU_HS").Text = "05052020"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/ctxtZTB_HSMG_H-TRG_HOP_MG").Text = "20"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/ctxtZTB_HSMG_H-TRG_HOP_MG").SetFocus
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/ctxtZTB_HSMG_H-TRG_HOP_MG").caretPosition = 2
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").pressToolbarButton "CREATE"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").pressToolbarButton "CREATE"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").modifyCell 0, "ZF_TIEU_MUC", "1701"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").modifyCell 0, "ZF_CHUONG", "757"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").modifyCell 0, "ZF_KY_THUE_TU", "2005"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").modifyCell 0, "ZF_KY_THUE_DEN", "2005"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").modifyCell 0, "ZF_THUE_DNMG", Sheet1.Range("I" & i).Value
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").modifyCell 0, "ZF_MA_LYDO", "2001"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").modifyCell 1, "ZF_TIEU_MUC", "1003"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").modifyCell 1, "ZF_CHUONG", "757"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").modifyCell 1, "ZF_KY_THUE_TU", "2005"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").modifyCell 1, "ZF_KY_THUE_DEN", "2005"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").modifyCell 1, "ZF_THUE_DNMG", Sheet1.Range("K" & i).Value
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").modifyCell 1, "ZF_MA_LYDO", "2001"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").setCurrentCell 1, "ZF_MA_LYDO"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC1/ssubHSMG_SCA:ZPG_MG_HS:0201/cntlDNMG/shellcont/shell").pressEnter
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC3").Select
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC3/ssubHSMG_SCA:ZPG_MG_HS:0203/txtZTB_HSMG_H-ZZ_SO_QD").Text = Sheet1.Range("P" & i).Value
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC3/ssubHSMG_SCA:ZPG_MG_HS:0203/ctxtZTB_HSMG_H-ZZ_NGAY_QD").Text = "06052020"
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC3/ssubHSMG_SCA:ZPG_MG_HS:0203/txtZTB_HSMG_H-ZZ_SO_QD").SetFocus
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC3/ssubHSMG_SCA:ZPG_MG_HS:0203/txtZTB_HSMG_H-ZZ_SO_QD").caretPosition = 4
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC3/ssubHSMG_SCA:ZPG_MG_HS:0203/btnBTN_HOTRO").press
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC3/ssubHSMG_SCA:ZPG_MG_HS:0203/cntlDXMG/shellcont/shell").modifyCell 0, "ZF_THUE_DU_DKMG", Sheet1.Range("N" & i).Value
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC3/ssubHSMG_SCA:ZPG_MG_HS:0203/cntlDXMG/shellcont/shell").modifyCell 1, "ZF_THUE_DU_DKMG", Sheet1.Range("O" & i).Value
session.findById("wnd[0]/usr/tabsHSMG/tabpHSMG_FC3/ssubHSMG_SCA:ZPG_MG_HS:0203/cntlDXMG/shellcont/shell").pressEnter
session.findById("wnd[0]/tbar[0]/btn[11]").press
session.findById("wnd[0]/tbar[1]/btn[48]").press
session.findById("wnd[0]/tbar[1]/btn[8]").press
Next i
End Sub
Nhấp chuột vào đây để mở rộng...
Bạn cần phải tìm người viết code để hỏi mới được. Dám cá là GPE không có người tìm ra nguyên nhân tại sao lại bị lỗi. Có ai cá cược không?
 
Upvote 0
Upvote 0
Bạn ở đây lâu rồi, và biết dùng VBA đủ để biết phải nói rõ lỗi xảy ra ở dòng nào chứ.
Cái tin tức quan trọng nhất, và sẵn trước mặt mà bạn bỏ qua, bắt người ta phải mò giùm sao?
 
Upvote 0
VetMini đã viết:
Bạn ở đây lâu rồi, và biết dùng VBA đủ để biết phải nói rõ lỗi xảy ra ở dòng nào chứ.
Cái tin tức quan trọng nhất, và sẵn trước mặt mà bạn bỏ qua, bắt người ta phải mò giùm sao?
Nhấp chuột vào đây để mở rộng...
Set Connection = Applications.Children(0) dạ ở dòng này. Nhưng e nghĩ mãi ko hiểu sao lại lỗi ở đây a ạ
 
Upvote 0
Vậy bạn hiểu nó là gì không?
 
Upvote 0
Người nào viết cái code ban đầu khong có kinh nghiệm đặt tên biến.
Cái SAP Application nên đặt tên nó rõ rệt là SAP_App, hay SAP_Application
Người không kinh nghiệm kia đã dùng Applications cho nên dễ bị lẫn lộn.
Trong nhóm code này:
If Not IsObject(Application) Then
Set SapGuiAuto = GetObject("SAPGUI")
Set Applications = SapGuiAuto.GetScriptingEngine
End If
Application là Excel, và nó là object. Vì vậy nhóm code trên không được thực hiện.
Cái 'Applications' trên không hề được set làm object gì cả.
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

B
49 + 49+ 1= 100? Vã mồ hôi luôn
Trả lời
12
Đọc
1K
-_-
-_-
H
Sửa code tính lũy kế ạ
Trả lời
3
Đọc
34
Hoàng Tuấn 868
H
Quyen182
  • Question
Nhờ chỉnh code VBA để tô màu dòng chứa Activecell và không làm mất màu gốc
Trả lời
3
Đọc
90
HeSanbi
HeSanbi
H
Nhờ hướng dẫn tạo bảng như hình vẽ
Trả lời
0
Đọc
31
hoaiantrinh
H
L
Đổi màu chữ trong VBA
Trả lời
11
Đọc
102
lvh1064
L
V
Chỉ cách sửa lỗi trong Excell
Trả lời
1
Đọc
36
A-T
A
T
Không đếm dữ liệu rỗng trong PivotTable
Trả lời
9
Đọc
1K
Dũng NĐ
Dũng NĐ
H
Hỗ trợ lấy danh sách dữ liệu thỏa mãn điều kiện
Trả lời
3
Đọc
138
DeTong
D
PhanTuHuong
Bàn về môn thể thao bóng bàn nào!
    • Thích
    • Yêu thích
    • Cười
2
Trả lời
38
Đọc
2K
lvh1064
L
salam
Ẩn ảnh sau chữ trong excel
Trả lời
11
Đọc
29K
itusbbk
itusbbk
nobita994
Trừ số lượng dần theo dòng khi quét Sumif tổng có tên sản phẩm bị trùng.
Trả lời
4
Đọc
126
nobita994
nobita994
F
  • Question
Nhờ tư vấn cách tạo QR trong Excel
Trả lời
7
Đọc
552
huuthang_bd
huuthang_bd
nguyen trung cuong
File chứa marco không mở được.
Trả lời
3
Đọc
109
hvnhpro
H
Tienvinh191
  • Question
Nhờ viết Code lấy dữ liệu tờ khai hải quan vào bảng tổng hợp
2
Trả lời
25
Đọc
2K
haott
H
CodyPham97
tạo biểu tượng thay thế nhấn đúp chuột
Trả lời
4
Đọc
94
phansythao
phansythao
dovanha1994
Giúp e tìm nguyên nhân sai và hướng dẫn e đọc file này với ạ
    • Phẫn nộ
Trả lời
4
Đọc
137
SA_DQ
SA_DQ
20050911
File Excel lỗi ''The file could not be accessed. Try one of the following:.."
Trả lời
10
Đọc
608
20050911
20050911
N
Giúp sửa mã code
2
Trả lời
20
Đọc
472
Nguyễn Diêu Hiền
N
GPE-Trợ Lý
MỪNG NGÀY NHÀ GIÁO VIỆT NAM 20/11/2024
    • Thích
    • Yêu thích
Trả lời
1
Đọc
101
SA_DQ
SA_DQ
Tuấn Bụng Bự
  • Question
Tìm Bộ 8 số xuất hiện nhiều nhất trong random( 1 - 80)
2
Trả lời
32
Đọc
894
VetMini
V
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom