doc.loadXML (xml.responseText) If doc.documentElement.selectSingleNode("responseStatus").nodeTypedValue <> "OK" Then msg = doc.documentElement.selectSingleNode("message").nodeTypedValue MsgBox "GMO側が以下のエラーを返しました" + vbCrLf + "[" + msg + "]" Exit Sub End If
doc.loadXML (xml.responseText) If doc.documentElement.selectSingleNode("responseStatus").nodeTypedValue = "NG" Then If doc.documentElement.selectSingleNode("message").nodeTypedValue = "Authentication Failure." Then MsgBox ("ユーザIDまたはパスワードが誤っています") Exit Sub ElseIf doc.documentElement.selectSingleNode("message").nodeTypedValue = "Web service is not permitted." Then '2007/04/03現在、GMOはこのエラーをかえさない。正常になる。ただし発注や一覧を問い合わせるとエラーになる MsgBox ("GMOホームページに行って利用設定が必要です") Exit Sub Else msg = doc.documentElement.selectSingleNode("message").nodeTypedValue MsgBox "GMO側が以下のエラーを返しました" + vbCrLf + "[" + msg + "]" Exit Sub End If ElseIf doc.documentElement.selectSingleNode("responseStatus").nodeTypedValue <> "OK" Then msg = doc.documentElement.selectSingleNode("message").nodeTypedValue MsgBox "GMO側が以下のエラーを返しました" + vbCrLf + "[" + msg + "]" Exit Sub End If
Err: MsgBox "エラーが発生しました" + vbCrLf + Err.Description, vbOKOnly End Sub 0071|男|名無し湯|女|垢版2007/12/23(日) 21:05:01ID:Q7K+YiMa Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Dim xml As Object Dim doc As Object Dim 基底URL As String Sub Macro50() Dim msg As String
On Error GoTo Err: If xml Is Nothing Then MsgBox "Loginされていません。Loginしてください", vbOKOnly Exit Sub End If
With ActiveWorkbook.Worksheets(ActiveWorkbook.ActiveSheet.Name) 行 = 11 AAA = Buy.TextBox1 BBB = Buy.TextBox2 CCC = Buy.TextBox3 If Buy.OptionButton1.Value = True Then DDD = "001" ElseIf (Buy.OptionButton2.Value = True) Then DDD = "002" ElseIf (Buy.OptionButton3.Value = True) Then DDD = "006" ElseIf (Buy.OptionButton4.Value = True) Then DDD = "007" End If
If Buy.OptionButton7.Value = True Then EEE = "01" ElseIf (Buy.OptionButton8.Value = True) Then EEE = "02" ElseIf (Buy.OptionButton9.Value = True) Then EEE = "04" End If 0072|男|名無し湯|女|垢版2007/12/23(日) 21:15:57ID:Q7K+YiMa doc.Async = False
doc.loadXML (xml.responseText) If doc.documentElement.selectSingleNode("responseStatus").nodeTypedValue <> "OK" Then msg = doc.documentElement.selectSingleNode("message").nodeTypedValue MsgBox "GMO側が以下のエラーを返しました" + vbCrLf + "[" + msg + "]" Exit Sub End If
Err: MsgBox "エラーが発生しました" + vbCrLf + Err.Description, vbOKOnly End Sub 0073|男|名無し湯|女|垢版2007/12/23(日) 21:17:26ID:Q7K+YiMa Private Sub SpinButton4_SpinUp()
On Error Resume Next
If 1999 >= oohike.TextBox6.Value Then oohike.TextBox6.Value = oohike.TextBox6.Value + 1 End If
If oohike.TextBox6.Value < 3000 Then If oohike.TextBox6.Value >= 2000 Then oohike.TextBox6.Value = oohike.TextBox6.Value + 5 End If End If
If 3000 <= oohike.TextBox6.Value Then If 30000 > oohike.TextBox6.Value Then oohike.TextBox6.Value = oohike.TextBox6.Value + 10 End If End If If 50000 <= oohike.TextBox6.Value Then If 100000 > oohike.TextBox6.Value Then oohike.TextBox6.Value = oohike.TextBox6.Value + 100 End If End If
If oohike.TextBox6.Value = "" Then oohike.TextBox5.Value = 0 End If If 100000 <= oohike.TextBox6.Value Then oohike.TextBox6.Value = oohike.TextBox6.Value + 1000
End If
End Sub 0074|男|名無し湯|女|垢版2007/12/23(日) 21:17:56ID:Q7K+YiMa Private Sub SpinButton4_SpinDown()
On Error Resume Next
If 2000 >= oohike.TextBox6.Value Then oohike.TextBox6.Value = oohike.TextBox6.Value - 1 End If
If oohike.TextBox6.Value < 3000 Then If oohike.TextBox6.Value > 2000 Then oohike.TextBox6.Value = oohike.TextBox6.Value - 5 End If End If
If 3000 <= oohike.TextBox6.Value Then If 30000 >= oohike.TextBox6.Value Then oohike.TextBox6.Value = oohike.TextBox6.Value - 10 End If End If If 50000 <= oohike.TextBox6.Value Then If 100000 >= oohike.TextBox6.Value Then oohike.TextBox6.Value = oohike.TextBox6.Value - 100 End If End If
If oohike.TextBox6.Value = "" Then oohike.TextBox5.Value = 0 End If If 100000 < oohike.TextBox6.Value Then oohike.TextBox6.Value = oohike.TextBox6.Value - 1000 End If
End Sub 0075|男|名無し湯|女|垢版2007/12/23(日) 21:31:38ID:Q7K+YiMa Private Sub SpinButton3_SpinUp()
On Error Resume Next
If oohike.TextBox5.Value < 100 Then oohike.TextBox5.Value = oohike.TextBox5.Value + 1 End If If oohike.TextBox5.Value >= 100 Then If oohike.TextBox5.Value <= 1900 Then oohike.TextBox5.Value = oohike.TextBox5.Value + 100 End If End If If oohike.TextBox5.Value >= 2000 Then oohike.TextBox5.Value = oohike.TextBox5.Value + 1000 End If
End Sub Private Sub SpinButton3_SpinDown()
On Error Resume Next
If oohike.TextBox5.Value < 100 Then oohike.TextBox5.Value = oohike.TextBox5.Value - 1 End If If oohike.TextBox5.Value >= 100 Then If oohike.TextBox5.Value <= 1900 Then oohike.TextBox5.Value = oohike.TextBox5.Value - 100 End If End If If oohike.TextBox5.Value >= 2000 Then oohike.TextBox5.Value = oohike.TextBox5.Value - 1000 End If
End Sub 0076|男|名無し湯|女|垢版2007/12/23(日) 21:36:05ID:Q7K+YiMa Private Sub CommandButton5_Click()
Call Macro51
End Sub 0077|男|名無し湯|女|垢版2007/12/23(日) 23:33:01ID:Q7K+YiMa 指定時刻 = TimeValue(Range("L1") & "時" & Range("L4") & "分" & "00秒") 'スタート時間
doc.loadXML (xml.responseText) If doc.documentElement.selectSingleNode("responseStatus").nodeTypedValue <> "OK" Then msg = doc.documentElement.selectSingleNode("message").nodeTypedValue MsgBox "GMO側が以下のエラーを返しました" + vbCrLf + "[" + msg + "]" Exit Sub End If
Set chumonListItems = doc.documentElement.selectSingleNode("chumonList").childNodes 0084API垢版2008/01/20(日) 14:52:26ID:ZjqTclM4 ii = 0 Do While ii < chumonListItems.Length And ii < 15 Set chumonListItem = chumonListItems.Item(ii)
.Cells(行 + ii, 3) = "'" & chumonListItem.selectSingleNode("chumonBango").nodeTypedValue .Cells(行 + ii, 4) = chumonListItem.selectSingleNode("meigara").Attributes.getNamedItem("shokenCode").nodeTypedValue .Cells(行 + ii, 7) = chumonListItem.selectSingleNode("torihiki").nodeTypedValue .Cells(行 + ii, 6) = chumonListItem.selectSingleNode("baibai").nodeTypedValue .Cells(行 + ii, 5) = "'" & chumonListItem.selectSingleNode("shijo").nodeTypedValue
.Cells(行 + ii, 10) = chumonListItem.selectSingleNode("juchuSuryo").nodeTypedValue .Cells(行 + ii, 11) = chumonListItem.selectSingleNode("miyakujoSuryo").nodeTypedValue
.Cells(行 + ii, 13) = chumonListItem.selectSingleNode("sashine").nodeTypedValue .Cells(行 + ii, 14) = chumonListItem.selectSingleNode("heikinYakujoTanka").nodeTypedValue .Cells(行 + ii, 15) = "'" & chumonListItem.selectSingleNode("shikko").nodeTypedValue
ii = ii + 1 Loop If ii < chumonListItems.Length Then MsgBox ("注文が15件以上あります") End If Do While ii < 15 'ゴミ掃除 .Rows(行 + ii) = Null ii = ii + 1 Loop
End Sub 0085API垢版2008/01/20(日) 15:28:00ID:ZjqTclM4 Dim xml As Object Dim doc As Object Dim 基底URL As String 0086API垢版2008/01/20(日) 15:35:44ID:ZjqTclM4http://sky.geocities.jp/mujintrading/0087|男|名無し湯|女|垢版2008/01/21(月) 22:41:49ID:TFHtYsd1 Sub TE1()
doc.loadXML (xml.responseText) If doc.documentElement.selectSingleNode("responseStatus").nodeTypedValue <> "OK" Then msg = doc.documentElement.selectSingleNode("message").nodeTypedValue MsgBox "GMO側が以下のエラーを返しました" + vbCrLf + "[" + msg + "]" Exit Sub End If