VBAでエクセルからツイッターに投稿

質問

VBAでエクセルからツイッターに連続投稿したいのですが難しいでしょうか？？

試しに作ってみたVBAです。

'モバイルなら投稿できるかも・・・？

Sub tweet()

Dim ie As InternetExplorer
Dim txtAreaInput As HTMLTextAreaElement

Set ie = CreateObject("internetExplorer.Application") 'IEを開く○
ie.Visible = True
ie.Navigate "https://mobile.twitter.com/compose/tweet" 'ツイッターを開く○

Do While ie.Busy Or ie.ReadyState < READYSTATE_COMPLETE 'ページの読み込みを待つ○
DoEvents
Loop

Range("B2").Select '画像ファイルのセルをコピー○しかし連続となるとやり方わからないです。
Selection.Copy

Set txtAreaInput = ie.Document.getElementsByName("textarea")(0) 'セルを選択×
txtAreaInput.Value = ActiveSheet.Cells(2, 1).Value

ObjIE.Document.all("camera-input").Click '画像パスを開く×そもそもカメラボタンが消えている？？

SendKeys "^v{ENTER}" '画像ファイルのパスをペーストしエンター×効かない？？

For Each Anchor In ie.Document.getElementsByTagName("A") 'ツイートを投稿×ボタンが押せない
If Anchor.innerText = " ツイート " Then
Anchor.Click
Exit For
End If
Next

End Sub

回答No.3

adfadfa · ベストアンサー

VBA　IE操作にcopyは利用しないですね。

あと、クリック処理の後は、IE読込処理入れないとプログラムが次の処理をしてしまい、うまくいきませんよ。

できるかできないかについては、「できる」ですが、ちょっと手間がかかるので、私はギブです（笑）

下記サイトの主にメールしたらどうですか？

ツイッター系のVBA操作も書かれているので、もしかしたら協力してくれるかもしれません。

http://www.vba-ie.net/

回答No.2

l3651s31io4

画像は画像URLをつぶやいた方が早いかもしれませんね。
昔は、画像ファイルの選択も自動化できましたが、マイクロソフトのセキュリティ対策としてできなくなっています。

回答No.1

eden3616

回答ではないですが以下が参考になるのでは。

http://blog.cles.jp/item/4549
http://news.mynavi.jp/articles/2011/11/04/excelvba/