エクセルからツイートを画像付きで出力す るようなマクロは組めないでしょうか? 削除
Message#1 2014年9月11日(木)09時50分 From: i |
こんにちわ、ブログの読者で浅井と申します。 twitterの記事についてなのですが、エクセルからツイートを画像付きで出力す るようなマクロは組めないでしょうか? 自分なりにマクロをくんでみたのですが画像ナシでのツイートは可能でした。 画像付きで行おうとしたところ、画像のパスを入力しエンターを押すことががで きませんでした。 ご教授していただけたら幸いです。 '画像つき挑戦 Sub useform2333() Dim form As HTMLFormElement Dim ie As InternetExplorer Dim button As HTMLInputElement Dim txtAreaput As HTMLTextAreaElement Set ie = CreateObject("internetExplorer.Application") 'IEを開く○ ie.Visible = True ie.Navigate "https://twitter.com" 'ツイッターを開く○ Do While ie.Busy Or ie.ReadyState < READYSTATE_COMPLETE 'ページの読 み込みを待つ○ DoEvents Loop Range("A2").Select '画像ファイルのセルをコピー○ Selection.Copy For Each button In ie.Document.getElementsByTagName("button") ' ボタンをクリックしフォームを呼び出す If button.Type = "button" And button.ID = "global-new-tweet-button" Then button.Click Exit For End If Next 'ツイート処理開始 Sleep 1000 SendKeys "ららららら" '画像ファイルのパスをペーストしエンター×効か ない?? Sleep 1000 SendKeys "{TAB}{LEFT}{LEFT}" '選んでいる状態だとボタンクリックがう まくいった For Each button In ie.Document.getElementsByTagName("input") ' ボタンをクリックしフォームを呼び出す If button.Name = "media_empty" Then button.Click Exit For End If Next Sleep 500 SendKeys "^V" '押すことができない Sleep 100 Sleep 1000 SendKeys "{ENTER}" 'もちろん押せない 'ツイートボタンを押す処理 End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。