PythonとVBAの連携: データ処理と自動化のためのベストプラクティス

Shell "python C:\path\to\your\script.py", vbNormalFocus

Shell "python C:\path\to\your\script.py arg1 arg2", vbNormalFocus

# my_script.py
print("Hello from Python!")

Sub RunPythonScript()
    Dim pythonScriptPath As String
    pythonScriptPath = "C:\path\to\your\python\script\my_script.py"
    
    ' Shell関数を使用してPythonスクリプトを実行
    Shell "python " & pythonScriptPath, vbNormalFocus
End Sub

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hwnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

Sub RunPythonScriptWithAPI()
    Dim pythonScriptPath As String
    pythonScriptPath = "C:\path\to\your\python\script\my_script.py"
    
    ' ShellExecute関数を使用してPythonスクリプトを実行
    ShellExecute 0, "open", "python", pythonScriptPath, vbNullString, 1
End Sub

# process_data.py
import pandas as pd

def process_excel_data(input_path, output_path):
    # Excelデータを読み込む
    df = pd.read_excel(input_path)

    # データを加工する（ここでは簡単に列を追加してみる）
    df['New_Column'] = df['Existing_Column'] * 2

    # 加工したデータを新しいExcelファイルに書き出す
    df.to_excel(output_path, index=False)

if __name__ == "__main__":
    # スクリプトが直接実行された場合の処理
    process_excel_data("input_data.xlsx", "output_data.xlsx")

' VBA
Sub RunPythonScriptAndGetData()
    ' Pythonスクリプトのパス
    Dim pythonScriptPath As String
    pythonScriptPath = "C:\path\to\your\python\script\process_data.py"

    ' 入力Excelファイルと出力Excelファイルのパス
    Dim inputExcelPath As String
    Dim outputExcelPath As String
    inputExcelPath = ThisWorkbook.Path & "\input_data.xlsx"
    outputExcelPath = ThisWorkbook.Path & "\output_data.xlsx"

    ' Pythonスクリプトを外部プロセスとして実行
    Shell "python " & pythonScriptPath & " " & inputExcelPath & " " & outputExcelPath, vbNormalFocus

    ' 処理が完了するまで待つ（適宜調整が必要かもしれません）
    Application.Wait (Now + TimeValue("0:00:05"))

    ' Pythonで加工されたデータを読み込む
    Dim processedData As Workbook
    Set processedData = Workbooks.Open(outputExcelPath)

    ' ここで加工されたデータを使った処理を行う（例: メッセージボックスに表示）
    MsgBox "New data loaded from Python script:" & vbCrLf & vbCrLf & _
           processedData.Sheets(1).Cells(1, 1).Value, vbInformation

    ' 不要になったら閉じる
    processedData.Close SaveChanges:=False
End Sub

# data_processing.py

import pandas as pd

def process_data(input_path, output_path):
    # CSVファイルの読み込み
    df = pd.read_csv(input_path)

    # データ処理（例：年齢が30歳以上の行を抽出）
    processed_data = df[df['Age'] >= 30]

    # CSVファイルの書き込み
    processed_data.to_csv(output_path, index=False)

if __name__ == "__main__":
    # コマンドライン引数から入力と出力のファイルパスを取得
    import sys
    input_file, output_file = sys.argv, sys.argv

    # データ処理を実行
    process_data(input_file, output_file)

' VBA
Sub RunPythonScript()
    ' Pythonスクリプトのファイルパス
    Dim pythonScript As String
    pythonScript = "C:\path\to\your\data_processing.py"

    ' 入力と出力のファイルパス
    Dim inputFile As String, outputFile As String
    inputFile = "C:\path\to\your\input_data.csv"
    outputFile = "C:\path\to\your\output_data.csv"

    ' Pythonスクリプトを非同期で実行
    Shell "python """ & pythonScript & """ """ & inputFile & """ """ & outputFile & """", vbNormalFocus

    ' Pythonスクリプトの実行が終わるまで待機
    Application.Wait (Now + TimeValue("0:00:05")) ' 5秒待機（適宜調整）

    ' 処理が終わったデータをExcelに読み込み
    Workbooks.Open (outputFile)
    ActiveSheet.Copy Before:=ThisWorkbook.Sheets(1)
    ActiveWindow.Close
End Sub

# api_data_fetch.py

import requests
import json

def fetch_user_data():
    url = 'https://jsonplaceholder.typicode.com/users'
    response = requests.get(url)

    if response.status_code == 200:
        user_data = response.json()
        return user_data
    else:
        return None

if __name__ == "__main__":
    data = fetch_user_data()
    print(json.dumps(data, indent=2))

' VBA
Sub CallPythonScript()
    Dim objShell As Object
    Dim pythonScript As String
    Dim scriptPath As String
    Dim cmd As String
    
    ' Pythonスクリプトのパス
    scriptPath = "C:\path\to\your\api_data_fetch.py"
    
    ' Pythonスクリプトのコマンド
    pythonScript = "python " & scriptPath
    
    ' コマンドを作成
    cmd = "cmd /c """ & pythonScript & """"
    
    ' Shellオブジェクトを作成
    Set objShell = VBA.CreateObject("WScript.Shell")
    
    ' Pythonスクリプトを実行
    objShell.Run cmd, vbNormalFocus
    
    ' Shellオブジェクトを解放
    Set objShell = Nothing
End Sub

# Python: model.py
from sklearn.model_selection import train_test_split
from sklearn.ensemble import RandomForestClassifier
from sklearn.metrics import accuracy_score
import pandas as pd

# サンプルデータ読み込み
data = pd.read_csv('sample_data.csv')

# 特徴量とターゲットを分ける
X = data.drop('target', axis=1)
y = data['target']

# データを訓練用とテスト用に分割
X_train, X_test, y_train, y_test = train_test_split(X, y, test_size=0.2, random_state=42)

# モデルの構築
model = RandomForestClassifier()
model.fit(X_train, y_train)

# テストデータでの精度
y_pred = model.predict(X_test)
accuracy = accuracy_score(y_test, y_pred)

print(f'Model Accuracy: {accuracy}')

' VBA: CallPythonMacro.bas
Sub CallPythonMacro()
    Dim objShell As Object
    Set objShell = VBA.CreateObject("WScript.Shell")
    
    ' Pythonスクリプトのパス
    pythonScript = "C:\path\to\your\model.py"
    
    ' コマンドを実行
    objShell.Run "python " & pythonScript, vbNormalFocus
End Sub

' VBA: DisplayPrediction.bas
Sub DisplayPrediction()
    ' 予測結果を取得するPythonスクリプトの実行
    Call CallPythonMacro
    
    ' 予測結果をExcelに表示
    Dim modelAccuracy As Double
    modelAccuracy = 0.85 ' 仮の値
    
    ' 結果を表示するセル
    Range("A1").Value = "Model Accuracy:"
    Range("B1").Value = modelAccuracy
End Sub