PR
キーワードサーチ
▼キーワード検索
EXCEL VBA TIPS
わたしのブログへようこそ
カレンダー
コメント新着
フリーページ
2008.07.02
テーマ： パソコン講師(297)
カテゴリ： カテゴリ未分類
一括削除のボタンはあるのだが、こいつが効かない
個別削除を繰り返すvbsを作りました
xxx.vbsの名前でファイルを作りソースをテキストエディタなどで以下をコピー
そのファイルのダブルクリックで一括削除できます
トラックバック一覧が複数ページになる場合は想定していません
そのうち複数もできるようにします
ソースは以下
Dim objIE0
Dim objIE1
'対象画面を検索、なければ開く（必要に応じ使用してください）
Set xShell = CreateObject("Shell.Application")
win_s = False
For Each Window In xShell.Windows '対象URLが表示されているか？
If TypeName(Window.Document) = "HTMLDocument" Then
if Window.Document.url="https://my.plaza.rakuten.co.jp/index.phtml?func=diary&act=trackback" then
Set objIE0 = Window '対象URLが表示→その画面を使う
win_s=true
exit for
end if
end if
if win_s=false then '対象URLが非表示→新しく画面を開く
Set objIE0 = CreateObject("InternetExplorer.Application")
objIE0.Visible = True
objIE0.Navigate "https://my.plaza.rakuten.co.jp/index.phtml?func=diary&act=trackback"
Do While objIE0.busy = True
Do While objIE0.document.readyState <> "complete"
Loop
end if
Set objIEdel = CreateObject("InternetExplorer.Application")
objIEdel.Visible = True
for ii=0 to objIE0.document.links.Length - 1
if instr(objIE0.document.links(ii).href,"sub_act=delete")>0 then
objIEdel.Navigate objIE0.document.links(ii).href
Do While objIEdel.busy = True
Loop
Do While objIEdel.document.readyState <> "complete"
Loop
objIEdel.document.all.tags("INPUT").item(0).Click
Do While objIEdel.busy = True
Loop
Do While objIEdel.document.readyState <> "complete"
Loop
end if
next
'For Each objTAG In objIE0.document.getElementsByTagName("INPUT")
' if instr(objTAG.name,"del_list") then
' objTAG.click
' end if
'next
'objIE0.document.all.tags("INPUT").item(25).Click
個別削除を繰り返すvbsを作りました
xxx.vbsの名前でファイルを作りソースをテキストエディタなどで以下をコピー
そのファイルのダブルクリックで一括削除できます
トラックバック一覧が複数ページになる場合は想定していません
そのうち複数もできるようにします
ソースは以下
Dim objIE0
Dim objIE1
'対象画面を検索、なければ開く（必要に応じ使用してください）
Set xShell = CreateObject("Shell.Application")
win_s = False
For Each Window In xShell.Windows '対象URLが表示されているか？
If TypeName(Window.Document) = "HTMLDocument" Then
if Window.Document.url="https://my.plaza.rakuten.co.jp/index.phtml?func=diary&act=trackback" then
Set objIE0 = Window '対象URLが表示→その画面を使う
win_s=true
exit for
end if
end if
if win_s=false then '対象URLが非表示→新しく画面を開く
Set objIE0 = CreateObject("InternetExplorer.Application")
objIE0.Visible = True
objIE0.Navigate "https://my.plaza.rakuten.co.jp/index.phtml?func=diary&act=trackback"
Do While objIE0.busy = True
Do While objIE0.document.readyState <> "complete"
Loop
end if
Set objIEdel = CreateObject("InternetExplorer.Application")
objIEdel.Visible = True
for ii=0 to objIE0.document.links.Length - 1
if instr(objIE0.document.links(ii).href,"sub_act=delete")>0 then
objIEdel.Navigate objIE0.document.links(ii).href
Do While objIEdel.busy = True
Loop
Do While objIEdel.document.readyState <> "complete"
Loop
objIEdel.document.all.tags("INPUT").item(0).Click
Do While objIEdel.busy = True
Loop
Do While objIEdel.document.readyState <> "complete"
Loop
end if
next
'For Each objTAG In objIE0.document.getElementsByTagName("INPUT")
' if instr(objTAG.name,"del_list") then
' objTAG.click
' end if
'next
'objIE0.document.all.tags("INPUT").item(25).Click
お気に入りの記事を「いいね！」で応援しよう
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
