|
こんにちわ、ブログの読者で浅井と申します。 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 |
↑エクセルVBAのIE(InternetExplorer)操作で分からない事があればこちらの掲示板よりご質問ください^^
ExcelのVBA初心者入門↑こちらはExcelのVBAをマスターできるよう初心者向けのエクセルVBA入門コンテンツになります^^
こちらでは、エクセルVBAで実際に作成したIE(InternetExplorer)制御ツールをまとめています。自動ログインや情報収集など具体的に解説しています。IE(InternetExplorer)制御をされる方は参考にしてください。
こちらでは、これまでに紹介したIE(InternetExplorer)操作で便利な機能をツール化しています。無償でダウンロードできますので、目的に合わせたご利用ください。
こちらでは、IE(InternetExplorer)オブジェクトのメソッド・プロパティをまとめています。
こちらでは、エクセルVBAのIE(InternetExplorer)操作で利用されたVBA関数をまとめています。
こちらでは、エクセルVBAのIE(InternetExplorer)操作で利用されたステートメントをまとめています。ExcelのVBAで基本的な部分になりますので、しっかり理解しましょう。
こちらでは、これまでに作成したIE(InternetExplorer)操作で役立つサブルーチンをまとめています。
全てをコピーする必要はありませんが、目的に合わせたサブルーチンをご利用ください。
こちらでは、IE(InternetExplorer)制御の利用だけでなく、Excel全般で利用できるVBAコードです。エクセルVBAで役に立つものばかりですので、ご利用ください。