ホーム>source

私はVBAを使用してExcelからの情報をIEに入力ボックスに入れると次の問題が発生しますが、これらは正しく読み込まれますが、入力ボックスで2行目に変更すると(すべて同じ形式です) (保存ボタンを押しても)前に入力したものは保存されません。情報を残すために見つけた唯一の方法は、これらのボックスのいずれかに移動して、手動で入力することです。

誰がこれがなぜそうなるのか考えていますか?

ありがとう!

For Each cell In wsbd.range(range("A6"), range("A6").End(xlDown))
  additemsbtn.Click
  Set aNodeList = ieDoc.querySelectorAll("[dojoinsertionindex]")
      aNodeList.Item(0).Click
  For i = 0 To 15
    If ieDoc.getElementById("meetingResultsPlanningTable").getElementsByTagName("select")(0).Item(i).innerText = wsbd.range("A6").Value Then
      ieDoc.getElementById("meetingResultsPlanningTable").getElementsByTagName("select")(0).Item(i).Selected = True
      Exit For
    End If
  Next i
  
Set dropOptions = ieDoc.getElementById("meetingResultsPlanningTable").getElementsByTagName("select")(5)
    dropOptions.Value = "Value"
    
Set itemName = ieDoc.getElementById("dynamicLineItems").getElementsByClassName("InputBox")(0)
    itemName.Value = wsbd.range("F6").Value
    
Set itemName = ieDoc.getElementById("dynamicLineItems").getElementsByClassName("NumInputBox2")(0)
    itemName.Value = wsbd.range("J6").Value
    
Set itemName = ieDoc.getElementById("dynamicLineItems").getElementsByClassName("NumInputBox")(0)
    itemName.Value = wsbd.range("Q6").Value
Set itemName = ieDoc.getElementById("dynamicLineItems").getElementsByClassName("NumInputBox")(1)
    itemName.Value = wsbd.range("T6").Value * 100
    
Set itemName = ieDoc.getElementById("dynamicLineItems").getElementsByClassName("NumInputBox")(1)
    itemName.Value = itemName.Value + 0
    
'Set savebtn = ieDoc.getElementById("/images/buttons/save.gif")
' savebtn.Click
Next cell

コードは動作しており、Excelのすべての情報を適切に読み取って、対応する入力ボックスを見つけて入力しますが、何も保存または記録されません..ご覧のように、ボックスの完了後に保存しようとしましたが、まだ動作しません。 ..

あなたの答え
  • 解決した方法 # 1

    私は解決策を思いつきました!ちなみに、各入力ボックスにfireevent(「onchange」)を追加しただけで、すべての変更が記録されます。

    Set itemName = ieDoc.getElementById("dynamicLineItems").getElementsByClassName("InputBox")(0)
        itemName.Focus
        itemName.FireEvent ("onchange")
        itemName.Value = somevalue.Value
    
    

関連記事

  • 前へ java - JPAクエリ:サブクエリをグループ化条件に結合する
  • 次へ Pythonリクエスト:JSON応答の処理、リストまたは辞書への保存?