关于循环问题

512008404

可以用下面的语句获取表格的行数。
session.FindById("wnd[0]").FindByName("SAPLMIGOTV_GOITEM", "GuiTableControl").VisibleRowCount

sampsonpon

512008404 发表于 2023-11-15 10:35
参与一下，用findbyname方法做的。各公司的SAP都是经过二次开发的，无法测试，请小心使用。

出现和9楼差不多的错误，如图

sampsonpon

山菊花 发表于 2023-11-15 10:23
这个估计是SAP带来的问题，我不知道如何解决。
在过程前面加一句启用错误处理试试：
On Error Resume Nex ...

这个附件才注意到，跟16还是一样的错误，用了On Error Resume Next才不会报错

山菊花

sampsonpon 发表于 2023-11-15 18:50
这个附件才注意到，跟16还是一样的错误，用了On Error Resume Next才不会报错

说明错误不止一个。用了On Error Resume Next只是把知道的、不知道的错误都忽略了，也许不是好事。
我没用过SAP，可能会帮倒忙，请向512008404老师学习。

512008404

sampsonpon 发表于 2023-11-15 18:36
出现和9楼差不多的错误，如图

要把session.FindByName改成session.FindById("wnd[0]").FindByName
请用21楼的附件试一下。那个文件改过了的。

sampsonpon

512008404 发表于 2023-11-15 20:32
要把session.FindByName改成session.FindById("wnd[0]").FindByName
请用21楼的附件试一下。那个文 ...

21楼附件测试后，发现到数据输入就停止了并且报错，如图

sampsonpon

山菊花 发表于 2023-11-15 18:57
说明错误不止一个。用了On Error Resume Next只是把知道的、不知道的错误都忽略了，也许不是好事。
我没 ...

请老师帮加一段代码：打开本工作簿时即清除A2:G非空所有旧数据，然后光标停留在A2

山菊花

sampsonpon 发表于 2023-11-16 11:02
请老师帮加一段代码：打开本工作簿时即清除A2:G非空所有旧数据，然后光标停留在A2

已添加代码。

512008404

可见行号已经取出来了，表格定位要换个方法用GetCell。猜你只是要把表格中的数据填在SAP里，做了两种方法。

sampsonpon

512008404 发表于 2023-11-16 14:16
可见行号已经取出来了，表格定位要换个方法用GetCell。猜你只是要把表格中的数据填在SAP里，做了两种方法。

1. Sub 按钮2_Click()
   
2. 
   
3. 
   
4.     Application.ScreenUpdating = False
   
5.     Application.DisplayAlerts = False
   
6. 
   
7.     Application.Speech.Speak "今日天气晴朗，不会下雨"
   
8. 
   
9.     Dim lastRow&, i&, n&, rowCount&, win
   
10.     lastRow = Sheet1.Range("A1").End(xlDown).Row
    
11. 
    
12. 
    
13.     If Not IsObject(Applicationa) Then
    
14.        Set SapGuiAuto = GetObject("SAPGUI")
    
15.        Set Applicationa = SapGuiAuto.GetScriptingEngine
    
16.     End If
    
17.     If Not IsObject(Connection) Then
    
18.        Set Connection = Applicationa.Children(0)
    
19.     End If
    
20.     If Not IsObject(session) Then
    
21.        Set session = Connection.Children(0)
    
22.     End If
    
23.     If IsObject(WScript) Then
    
24.        WScript.ConnectObject session, "on"
    
25.        WScript.ConnectObject Applicationa, "on"
    
26.     End If
    
27.    
    
28. 
    
29.     If Not IsObject(win) Then
    
30.         Set win = session.findById("wnd[0]")
    
31.     End If
    
32. 
    
33. 
    
34.     session.findById("wnd[0]/tbar[0]/okcd").Text = "/NMIGO"
    
35.     session.findById("wnd[0]").sendVKey 0
    
36.    
    
37.     win.FindByName("GODYNPRO-ACTION", "GuiComboBox").Key = "A07"
    
38.     win.FindByName("GODYNPRO-REFDOC", "GuiComboBox").Key = "R10"
    
39.     win.FindByName("GODEFAULT_TV-BWART", "GuiCTextField").Text = "ZK2"
    
40.     session.findById("wnd[0]").sendVKey 0
    
41.    
    
42. '    For n = 0 To Application.WorksheetFunction.RoundUp((lastRow - 1) / rowCount, 0)
    
43.     rowCount = win.FindByName("SAPLMIGOTV_GOITEM", "GuiTableControl").VisibleRowCount
    
44.     For n = 0 To Application.WorksheetFunction.RoundUp((lastRow - 1) / rowCount, 0)
    
45. 
    
46.    
    
47.         For i = 0 To rowCount - 1
    
48.             If rowCount * n + 2 + i > lastRow Then Exit For
    
49.                 win.FindByName("SAPLMIGOTV_GOITEM", "GuiTableControl").GetCell(i, 1).Text = Sheet1.Cells(rowCount * n + 2 + i, 1).Text
    
50.                 win.FindByName("SAPLMIGOTV_GOITEM", "GuiTableControl").GetCell(i, 3).Text = Sheet1.Cells(rowCount * n + 2 + i, 3).Text
    
51.                 win.FindByName("SAPLMIGOTV_GOITEM", "GuiTableControl").GetCell(i, 4).Text = Sheet1.Cells(rowCount * n + 2 + i, 4).Text
    
52.                 win.FindByName("SAPLMIGOTV_GOITEM", "GuiTableControl").GetCell(i, 2).Text = Sheet1.Cells(rowCount * n + 2 + i, 2).Text
    
53.         Next i
    
54.         win.FindByName("SAPLMIGOTV_GOITEM", "GuiTableControl").GetCell(0, 1).SetFocus
    
55.         win.sendVKey 0
    
56.    
    
57.         For i = 0 To rowCount - 1
    
58.             If rowCount * n + 2 + i > lastRow Then Exit For
    
59.                 win.FindByName("SAPLMIGOTV_GOITEM", "GuiTableControl").GetCell(i, 8).Text = Sheet1.Cells(rowCount * n + 2 + i, 7).Text
    
60.                 win.FindByName("SAPLMIGOTV_GOITEM", "GuiTableControl").GetCell(i, 5).Text = Sheet1.Cells(rowCount * n + 2 + i, 5).Text
    
61.                 win.FindByName("SAPLMIGOTV_GOITEM", "GuiTableControl").GetCell(i, 7).Text = Sheet1.Cells(rowCount * n + 2 + i, 6).Text
    
62.         Next i
    
63.         win.FindByName("SAPLMIGOTV_GOITEM", "GuiTableControl").GetCell(0, 5).SetFocus
    
64.         session.findById("wnd[0]/tbar[0]/btn[83]").press
    
65.         
    
66.     Next n
    
67. 
    
68.     session.findById("wnd[0]/tbar[1]/btn[7]").press
    
69. '    session.findById("wnd[0]/tbar[1]/btn[23]").press
    
70. 
    
71.     Application.Speech.Speak "今日天气晴朗，确定不会下雨"
    
72.    
    
73.     Application.ScreenUpdating = True
    
74.     Application.DisplayAlerts = True
    
75. 
    
76. 
    
77. 
    
78. End Sub

复制代码

这个方法好，只是每第14项数据丢失了