‘获取暂支金额费用
Dim TemporaryAmount
TemporaryAmount = Browser("SAP").Page("SAP").Frame("表单").WebEdit("暂支金额").GetROProperty("value")
MsgBox CCur(TemporaryAmount)
‘去除金额中间的,号
Dim TemporaryAmount_V
TemporaryAmount_V = Split(TemporaryAmount ,",")
Dim i
Dim TemporaryAmount_value
For i =0 To UBound(TemporaryAmount_V)
TemporaryAmount_value=TemporaryAmount_value&TemporaryAmount_V(i)
Next
msgbox TemporaryAmount_value
时间: 2024-10-12 02:25:55