お世話になります。
初めて質問させて頂きます。
ネットショップ運営しております。楽天とヤフオク(ストア)の在庫連動システムを導入しておりますが、
そのシステムでは、ヤフオクに反映されたかを確認する機能がありません。
CSVでオークションIDは取得できますが、そのID(URL)の商品が、
・出品中
・期間終了(落札者あり・なし)
を判別できて、エクセルに表示させるVBAなど作っていただきたいのです。
・期間終了のページには"終了"の文字が表示されます。
一覧のURLから全文検索して"終了"の文字かあるものに返値を表示するとか・・・・
エクセル記載のURLからページが存在するかを表示させる、VBAを見つけ、
試してみましたが、存在しないオークションID(URL)のページにも
「このオークションIDの商品はありません」等のメッセージが表示されたページが
存在するので、やはり判別できません。
そのVBAは下記のとおりです。
'-------------------------------------------
'Option Explicit
Dim objHTTP As Object 'モジュールの上部に置く
Sub CheckURL()
Dim ret As Variant
Dim c As Range
On Error GoTo ErrHandler
If objHTTP Is Nothing Then
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
End If
For Each c In Range("J2", Range("J2000").End(xlUp)) If StrConv(c.Value, vbLowerCase) Like "http://*" Then c.Offset(, 1).Value = GetHttpHeader(c.Value) End If Next
ErrHandler:
If Err.Number > 0 Then
MsgBox Err.Number & " : " & Err.Description
End If
Set objHTTP = Nothing
End Sub
Function GetHttpHeader(ByVal strURL As String)
Dim ret As Variant
ret = Empty
On Error Resume Next
objHTTP.Open "GET", strURL, False
objHTTP.Send
ret = objHTTP.Status
On Error GoTo 0
If ret <> 0 Then
GetHttpHeader = ret
End If
End Functio
こんな感じのVBAで特定の文字を検索し表示させることをしたいのですが・・・・
他の方法でも良いのですが、
初心者でも使えるようにエクセルに表示させたいのです。
どうぞよろしくお願いいたします。
【追加】
すいません。簡単にいうと、ヤフオクストアの出品中一覧(オークションIDや商品名等)
をCSV形式でダウンロードする方法を探しております。
出品数が2000件以上ありますが、現状では100件単位しかダウンロードできず手間がかかります。
全件一度にCSV化したいのです。個人ID用のツール存在するのですが、ストアに対応しているのが
ありません。よろしくお願いいたします。
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。