VBAからpythonの実行　xlwings　うまく動かない

前提・実現したいこと

VBAにxlwingsをアドインし、VABからpythonを実行しています。
これまで動いていたのに動かなくなったり、PCによっては最初から動かなかったりします。
何か設定が干渉しているように思うのですが、解決の糸口がつかめず困っています。
教示いただけると助かります。

発生している問題・エラーメッセージ

VBA側にて

実行時エラー'9'　インデックスが有効範囲にありません

デバッグすると
xlwingsのコードにて、以下で止まっています。

Function SheetExists(sheetName As String) As Boolean
Dim sht As Worksheet
On Error Resume Next
Set sht = ThisWorkbook.Sheets(sheetName)　←ここで止まっています
On Error GoTo 0
SheetExists = Not sht Is Nothing
End Function

該当のソースコード

以下一例を示します(以下のような初歩的な連携も動きません）

VBA側
1Sub Run_Python()
2    Call RunPython("import 2;2.test()")
3End Sub

python側
1import xlwings as xw
2
3def test():
4    txt = xw.Range('A1').value
5    txt += ', I have a pen.'
6    xw.Range('B2').value = txt

試したこと

xlwingsのアドインのやり直し
pythonプログラム中、sheet名追加
別ソフトのため、Oracle Cliant 12c 32bit をインストールしてから動かなくなったものあり。
ただし、動くPCもあり、根本原因ではないと考えています（設定の問題かと思っています）

補足情報（FW/ツールのバージョンなど）

Windows 10 Pro
Microsoft office2016
python3.8.5(anaconda使用)

行動規範の内容に同意します

回答1件

対象のシートが存在しないためのエラーと思われます。
エラー箇所にブレークポイントを置いて、変数sheetNameに入っている文字列を確認してください。また、そのシート名のシートは、提示いただいたマクロが含まれるブックにあることを確認してください。
存在しない場合、シート名はこのプロシージャの引数で渡されていますから、呼び出し元のコードを確認または提示してください。

投稿2021/10/04 02:39

hex309

総合スコア761

kura-ta.31

2021/10/04 04:06

早速のご教示ありがとうございます。 MsgBoxにて確認したところ、sheetNameにはxlwings.conf、ThisWorkbook.Nameには1.xlsm(VBAのファイル名)となっていました。動くPC、動かないPC双方同じです。動くPCのxlwings.confと中身が異なっていたため、合わせましたが解決しませんでした。動くPCはMsgboxが何回か表示(ループしているよう)して、結果表示されます。動かないPCはMsgboxが表示され、その後先に提示しましたエラーが発生し停止します。そもそもシート名がxlwings.confのため、この辺の詳細がよくわかっていないのですが、原因わかりませでしょうか？