【ChatGPT × Twitter （X）】初心者もできる！ツイートをプチ自動化した話

Sub TweetWithPython()
    Dim tweetText As String
    Dim chromePath As String
    Dim tweetURL As String
    Dim pythonPath As String
    Dim scriptPath As String
    Dim cmd As String
    
    ' Twitter用シートのC12セルの内容を取得
    tweetText = Sheets("Twitter用シート").Range("C12").Value
    
    ' クリップボードにコピー
    AlternativeCopyToClipboard tweetText
    
    ' Google Chromeのインストールパスを設定（自分の環境に合わせて変更してください）
    chromePath = "C:\Program Files\Google\Chrome\Application\chrome.exe"
    
    ' Twitterの投稿画面のURLを指定
    tweetURL = "https://twitter.com/compose/tweet"
    
    ' Google ChromeでURLを開く
    Shell """" & chromePath & """ """ & tweetURL & """", vbNormalFocus
    
    ' 2秒待機（Twitterの投稿画面が表示されるまでの待ち時間）
    Application.Wait Now + TimeValue("00:00:02")
    
    ' ブラウザ上でペーストする（Ctrl+Vを送信）
    SendKeys "^{v}"
    
    ' Pythonのインストールパスを設定（自分の環境に合わせて変更してください）
    pythonPath = "C:\Users\（ユーザー名）\AppData\Local\Programs\Python\Python39\python.exe"
    
    ' Pythonスクリプトのファイルパスを設定
    scriptPath = "C:\Users\（ユーザー名）\Desktop\pythontest\twitter_post.py"
    
    ' コマンドを組み立てる
    cmd = """" & pythonPath & """ """ & scriptPath & """ """ & tweetText & """"
    
    ' Pythonスクリプトを実行
    Call Shell(cmd, vbNormalFocus)
End Sub

Sub AlternativeCopyToClipboard(text As String)
    ' クリップボードにテキストをコピーする代替方法
    Dim dataObj As Object
    Set dataObj = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    dataObj.SetText text
    dataObj.PutInClipboard
    Set dataObj = Nothing
End Sub

Sub TweetMultipleTimes()
    Dim tweetText As String
    Dim tweetCount As Integer
    Dim i As Integer
    
    ' Twitter用シートのD2セルの回数を取得
    tweetCount = Sheets("Twitter用シート").Range("D2").Value
    
    ' ツイート内容を取得
    tweetText = Sheets("Twitter用シート").Range("C12").Value
    
    ' 指定された回数だけツイートを繰り返す
    For i = 1 To tweetCount
        TweetWithPython tweetText
        
        ' Twitter用シートのD2セルの値を1増やす
        Sheets("Twitter用シート").Range("D2").Value = Sheets("Twitter用シート").Range("D2").Value + 1
        
        Application.Wait Now + TimeValue("00:00:02") ' ツイート間の待ち時間（必要に応じて調整してください）
    Next i
End Sub

Sub TweetWithPython(tweetText As String)
    ' 以下は前述のTweetWithPython()マクロのコードをそのまま記載します（省略しています）
End Sub