マイケルジャクソン急死真相暴露　怠慢警官・公務員のハレンチ行為紹介

キーワードサーチ

▼キーワード検索

プロフィール

AKB48激安放出中握手権CDDVD写真集てんこ盛り

フォローする

カレンダー

楽天カード

お気に入りブログ

ほぼ週間!!くいしん… くいしんぼ〜さん
????? オヤじぃさん

コメント新着

ヤフオクからきたけど@ Re:Yahooオークション落札、こんなハレンチ出品者がまだいた(03/06) このフォームのどこがハレンチなんだろう …

ミュウミュウ財布@ tomdwok@gmail.com 突然訪問します失礼しました。あなたのブ…

ヴィトン通販@ efmfnzclws@gmail.com 今日は　よろしくお願いしますね^^すごい…

ヴィトンコピー@ jqgghwgag@gmail.com 突然訪問します失礼しました。あなたのブ…

ボッテガ財布@ ddxabohuu@gmail.com こんにちは、またブログ覗かせていただき…

フリーページ

2010.08.26

twitter自動投稿excelのセルを順に投稿するマクロ

テーマ：オークション　楽しんでいますか？(696)

カテゴリ：カテゴリ未分類

たとえば出品中のオークションの宣伝に、セルの内容が告ぎの場合のマクロソースです
・セル1列：オークションid,セル3列：タイトル,セル14列：価格,セル2列：url
Sub twitIe()
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.navigate ("http://twitter.com/")
Sleep (3000)
num = 0

If Cells(i, 1).Value = "" Then Exit For
If Cells(i, 4).Value = "" Then
s = Cells(i, 3).Value & " ヤフオク出品中現在" & Cells(i, 14).Value & "円" & vbCrLf & Cells(i, 2).Value
objIE.Document.all.tags("textarea").Item.Value = s
objIE.Document.all.tags("textarea").Item.Click
SendKeys "{TAB}", True
Do
objIE.Document.getElementById("update-submit").Click
Sleep (200)
If objIE.Document.all.tags("textarea").Item.Value = "" Then Exit Do
Sleep (300)

num = num + 1
End If
Next
Application.StatusBar = "done twitNum=" & num
End Sub

お気に入りの記事を「いいね！」で応援しよう