今現在ネットで得た情報で作った既存のモノがあり、一度100件ほど実行した所で得れるデータが10件も満たない状況となっております。そこで、送信速度が速いのかと思い処理を遅らせて、やってみたのですが結果は芳しくない状態です。
なので只今何度も繰り返している状態となっております。
・実現したいこと
一度実行し、得た情報を除いて再度実行繰り返すプログラムを方法をご教授いただけないでしょうか。お手数ですが、宜しくお願い致します。
また他に何かいい案がございましたら、それも含めご教授お願いいたします。
Dim KeyId As String
Dim sKey As String, AWSKeyId As String
Dim asin As String
Dim ecsaddress As String
Dim associateid As String, AssociateID22 As String, APIVersion As String
Dim timestamp As String
Dim base64Array As Variant
Dim URI As String
Dim xml As Object, Lowest As Object, itemAttributes As Object, Items As Object
' シートをセットしてクリアする。 Set WS1 = Worksheets("getLowest") ASINRowIndex = 2
While (WS1.Cells(ASINRowIndex, 1) <> "")
' ステータスバーの表示 Application.StatusBar = (ASINRowIndex - 1) & "件目 API取得中..." asin = WS1.Cells(ASINRowIndex, 1)
~~~~~~~省略~~~~~~~~
sign = sign & "=" 'URLエンコード sign = UrlEncode(sign) URI = "http://" & ecsaddress & "/onca/xml?" & rawText & "&Signature=" & sign On Error Resume Next 'XML オブジェクト作成 Set xml = CreateObject("Microsoft.XMLDOM") xml.async = False xml.Load URI Set Items = xml.SelectSingleNode("ItemLookupResponse/Items") If WS1.Cells(ASINRowIndex, 5) = "" Then ~~~~~~~情報取得、~~~~~~~ '次の行を処理するために
Application.Wait (Now() + TimeValue("00:00:02"))
ASINRowIndex = ASINRowIndex + 1
Wend
End Sub
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。