chromeでX(旧Twitter)にポスト(tweet)するExcelマクロ(VBA)

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

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

マクロの初期設定

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

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

Seleniumを導入し、VBAでchromeを自動操作する設定手順

2022/6/16、InternetExplorer（IE）のサポートが終了しましたが、従来、IEとVBAを使ってWEBスクレイピングされていた方の乗り換え先として、Seleniumを導入し、VBAでchromeを自動操作するための設定手順を紹介します。

hineke.jp

2022.03.04

マクロコードの紹介

次に、以下のコードにより、VBAで X(旧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[2]/div[1]/div/div/div/div[1]/div[2]/div/div/div/div/div/div/div/div/div/div/div/label/div[1]/div/div/div/div/div/div[2]/div/div/div/div"

Public Const tweet_post As String = "//*[text()='ポストする']"

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)しています。

以下のような感じ。

まとめ

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

参考になれば幸いです。

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

エクセルマクロ（VBA）を活用し、生産性を向上させる

FIRE（早期リタイア）を実現するためには、一定の資産の蓄財と、当該資産が、生涯にわたって尽きないという状態が必要です。 その状態を早期に達成するためには、仕事の生産性を向上させるのが効果的です。仕事の生産性を向上させると...

hineke.jp

2022.04.19

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

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

FIRE太郎さん(その他)に依頼・外注する | 簡単ネット発注なら【クラウドワークス】

日本最大級のクラウドソーシング「クラウドワークス」にご登録いただいているFIRE太郎さんのプロフィールです。その他のスキルを持つプロフェッショナルに1時間から仕事を気軽に発注！発注者は手数料無料。

crowdworks.jp

FIRE太郎さん(会社員)のプロフィール | ココナラ

Excelマクロ（VBA）による自動化ツールの作成が得意です。｜ブログ「FIRE（早期リタイア）研究所」運営中

coconala.com