エクセルからツイートを画像付きで出力す るようなマクロは組めないでしょうか？
未読分：1件
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応
近田 伸矢, 植木 悠二, 上田 寛
IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。
| 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 |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
