chromeでTwitterにtweetするExcelマクロ(VBA)

Excelマクロ(VBA)

FIREを目指し、収入増加を目的にSNS運用をしているものの、時間の制約などから、運用の効率化に課題を感じている方、多いのではないかと思います。

この記事では、VBAでchromeを使ってTwitterにtweetする方法を紹介します。SNS運用の参考にしていただければ幸いです。

マクロの初期設定

まず、初期設定が必要です。

以下記事を参考に、Seleniumの設定をします。

マクロコードの紹介

次に、以下のコードにより、VBAでTwitterにtweetできます。


Public Const tweet_text As String = "/html/body/div[1]/div/div/div[1]/div[2]/div/div/div/div/div/div[2]/div[2]/div/div/div/div[3]/div/div[1]/div/div/div/div/div[2]/div[1]/div/div/div/div/div/div[2]/div/div/div/div/label/div[1]/div/div/div/div/div/div[2]/div/div/div/div"

Public Const tweet_post As String = "/html/body/div[1]/div/div/div[1]/div[2]/div/div/div/div/div/div[2]/div[2]/div/div/div/div[3]/div/div[1]/div/div/div/div/div[2]/div[3]/div/div/div[2]/div[4]/div/span/span"

Sub tweet()

Dim driver As New ChromeDriver


Dim ky As New keys

driver.AddArgument ("user-data-dir=" & PROFILE_PATH)

driver.Get "https://twitter.com/compose/tweet"


driver.FindElementByXPath(tweet_text).SendKeys "XXXXX" '入力テキスト

driver.FindElementByXPath(tweet_post).Click


driver.Close
Set driver = Nothing
   
End Sub

私は、定期的に運用成績をVBAで各種証券会社のサイトからエクセルに取得しているのですが、当該結果を、上記コードにより、あわせて、tweetしています。

以下のような感じ。

まとめ

いかがでしたでしょうか。

参考になれば幸いです。

その他、エクセルマクロの便利ツールは以下記事を参照ください。

本稿で紹介したマクロのサポートやカスタマイズ、もしくは新規案件については、条件によって、有償にて対応受付しております。

以下、クラウドワークスないしココナラのアカウントよりご依頼いただければ幸いです。

FIRE太郎さん(その他)に依頼・外注する | 簡単ネット発注なら【クラウドワークス】
日本最大のクラウドソーシング「クラウドワークス」にご登録いただいているFIRE太郎さんのプロフィールです。その他のスキルを持つプロフェッショナルに1時間から仕事を気軽に発注!発注者は手数料無料。
FIRE太郎さん(会社員)のプロフィール | ココナラ
Excelマクロ(VBA)による自動化ツールの作成が得意です。|ブログ「FIRE(早期リタイア)研究所」運営中

コメント

タイトルとURLをコピーしました