VBAからPythonのプログラムに引数を渡して実行したい

Question

お世話になります。
以下の内容について、アドバイスをいただけると幸いです。

実現したいこと

VBAからPythonのプログラムに引数を渡して実行させたいのですがうまくいきません。
VBA側は、GUIでファイルを選択し、その後処理内容を記載したPythonにVBAで選択したファイル名を引数として渡すことを実現したいです。

VBA側のコード

Sub FileOpen()
    Dim FileName As Variant
    
    'ファイルを選択（GUI）
    FileName = Application.GetOpenFilename("CSVファイル(*.csv),*.csv")
    If FileName = False Then
        Exit Sub
    End If
     
    'Python呼び出し　引数はファイル名
    Call RunPython("import READFILE; READFILE.Read(String FileName)")
End Sub

Pythonのコード

import os
import sys
import pandas as pd
import openpyxl
import socket

def Read(FileName):
   df = pd.DataFrame()
   df = pd.read_csv(FileName, header=None )
   print(df)

エラーメッセージ

VBAで以下のエラーが表示されます。

---

Error

File "<string>", line 1

import sys, os; sys.path[0:0]=os.path.normcase

import READFILE; READFILE.Read(String FileName)

SyntaxError: invalid syntax

Press Ctrl+C to copy this message to the clipboard.

よろしくお願いします。

Answer 1

こうしてみてください。

Call RunPython("import READFILE; READFILE.Read(r`" & FileName & "`)")

Comments

[退会済みユーザー]

アドバイスをいただきありがとうございます。
上記で実行したところ、エラーメッセージの内容が変わりました。
以下の内容ですが、何かお分かりになりますか？

---------------------------
Error
---------------------------
File "<string>", line 1

import sys, os; sys.path[0:0]=os.path.normcase(os.path.expandvars("マクロのパス")).split(';'); import READFILE; READFILE.Read(C:\Users\ファイル名.txt)
　　　　　　　　　　　　　　　　　　　^
SyntaxError: invalid syntax

Press Ctrl+C to copy this message to the clipboard.
---------------------------
OK
---------------------------

[itagagaki]

なるほど、そうか、READFILE.Read(C:\Users\ファイル名.txt) となるので、これではダメでしたね。
回答のコードを修正しましたので、あらためてお試しください。

[退会済みユーザー]

ご丁寧に対応いただきありがとうございます。
ファイルを読み込むことができました。大変助かりました。
短時間で上記エラーから原因を特定されていて、とてもすごいと思いました。

Answer 2

こんばんは。

問題文読ませていただきました。

VBA使ったことないので、適切な答えになっているのかわかりませんが、こちらの記事が良さそうですので、ご確認いただけますか？????‍♂️
・VBAでPython(pyファイル)を実行する方法

Comments

[退会済みユーザー]

アドバイスをいただきありがとうございました。
コマンドプロンプトを挟んで実行する方法を試したのですが、うまくいかず。。。
ただ、自分が書いたコード以外にも実行方法があるとわかりました。ありがとうございました。

[退会済みユーザー]

なるほど、うまくいってよかったです。

また困ったことがありましたら、気軽にご相談ください〜！！

[退会済みユーザー]

ありがとうございます。
今後ともよろしくお願いいたします。