Question

我必须将数据从VBA传递到Python，然后再传递回来。

我还需要VBA中的Python Obj来使用Pandas库（以及其他库，例如numpy，...）。

我已成功使用Florent B.提供的解决方案2：Moving numpy arrays from VBA to Python and back
如果我根本不尝试导入熊猫，则对象创建成功并且可以正常工作（但不使用任何熊猫）。传递给Python对象的任何 VBA数组都被识别为元组元组
我需要将数据输入（元组的元组）转换为pandas DataFrames。因此，在MyLibrary.py文件中，我随后将“ pandas”添加到了导入列表（在文件顶部-请参见下面的Python代码）
然后我已经在Python shell中成功注册了模块（带有熊猫）

在VBA中，创建对象时...

Set Py = CreateObject("Python.MyModule")

...我收到与以下内容有关的错误消息：

返回retObj。 CreateInstance （clsid，reqID）

替代地...

如果我从MyFunction内部导入熊猫（未在文件顶部声明），则将成功创建Python对象（这是从Python中从MyFunction导入熊猫的方式）：
```
def MyFunction(self, data) :
import pandas
```
但是当我从VBA调用MyFunction时（导入大熊猫时）...
```
ArrayOutput = Py.MyFunction(ArrayInput)
```
...我收到一条错误消息：

返回self._invoke（dispid，lcid，wFlags，args）

下面的代码（我在文件顶部报告了导入熊猫的版本）：

VBA代码：

Sub UsePythonObj(ArrayInput)

''''''''''''''''''''''''''''''
' Create Python Object
Dim ArrayOutput As Variant
Dim Py As Object
Set Py = CreateObject("Python.MyModule")


''''''''''''''''''''''''''''''''''''''
' Run Python 
ArrayOutput = Py.MyFunction(ArrayInput)

End Sub

Python代码：

import sys, os, win32api, win32com.server.localserver, win32com.server.register, pandas

    class MyModule(object):


      _reg_clsid_ = "{5B4A4174-EE23-4B70-99F9-E57958CFE3DF}"
      _reg_desc_ = "My Python COM Server"
      _reg_progid_ = "Python.MyModule"
      _public_methods_ = ['MyFunction']


      def MyFunction(self, data) :
          ProcessingData = pandas.DataFrame(list(data))
          return ProcessingData


    def register(*classes) :
      regsz = lambda key, val: win32api.RegSetValue(-2147483647, key, 1, val)
      isPy = not sys.argv[0].lower().endswith('.exe')
      python_path = isPy and win32com.server.register._find_localserver_exe(1)
      server_path = isPy and win32com.server.register._find_localserver_module()

      for cls in classes :
        if isPy :
          file_path = sys.modules[cls.__module__].__file__
          class_name = '%s.%s' % (os.path.splitext(os.path.basename(file_path))[0], cls.__name__)
          command = '"%s" "%s" %s' % (python_path, server_path, cls._reg_clsid_)
        else :
          file_path = sys.argv[0]
          class_name = '%s.%s' % (cls.__module__, cls.__name__)
          command = '"%s" %s' % (file_path, cls._reg_clsid_)

        regsz("SOFTWARE\\Classes\\" + cls._reg_progid_ + '\\CLSID', cls._reg_clsid_)
        regsz("SOFTWARE\\Classes\\AppID\\" + cls._reg_clsid_, cls._reg_progid_)
        regsz("SOFTWARE\\Classes\\CLSID\\" + cls._reg_clsid_, cls._reg_desc_)
        regsz("SOFTWARE\\Classes\\CLSID\\" + cls._reg_clsid_ + '\\LocalServer32', command)
        regsz("SOFTWARE\\Classes\\CLSID\\" + cls._reg_clsid_ + '\\ProgID', cls._reg_progid_)
        regsz("SOFTWARE\\Classes\\CLSID\\" + cls._reg_clsid_ + '\\PythonCOM', class_name)
        regsz("SOFTWARE\\Classes\\CLSID\\" + cls._reg_clsid_ + '\\PythonCOMPath', os.path.dirname(file_path))
        regsz("SOFTWARE\\Classes\\CLSID\\" + cls._reg_clsid_ + '\\Debugging', "0")

        print('Registered ' + cls._reg_progid_)


    if __name__ == "__main__":
      if len(sys.argv) > 1 :
        win32com.server.localserver.serve(set([v for v in sys.argv if v[0] == '{']))
      else :
        register(MyModule)

如何将熊猫导入VBA的Python COM对象

0 个答案: