0

PRODRLIST というボタンを含むユーザー フォームがあり、クリックすると My Product.csv が並べ替えられ、その出力が My Product.grouped.csv として保存されます。IDLE で Python コードを実行できますが、機能しますが、関数 (Sort_File()) を定義すると機能しません。私はまだPythonに慣れていないので、簡単なものだと思います。

Python プログラムを起動する Excel VBA コード:

Private Sub PRODRLIST_Click()
RunPython ("import SortProduct; SortProduct.Sort_File()")
End Sub

.csv ファイルを並べ替える Python コード:

from xlwings import Workbook, Range
# file group_by_trailing_py2.py
import os
import csv
from itertools import groupby

DELIM=';'
IN_FILENAME = 'My Product.csv'
OUT_FILENAME = 'My Product.grouped.csv'


keyfunc = lambda row: row[1:]

with open(IN_FILENAME) as csv_file:
    rows = sorted(csv.reader(csv_file, delimiter=DELIM), key=keyfunc)

it = map(lambda t: [", ".join(v[0].strip() for v in t[1]) + " "] + t[0],
        groupby(rows, key=keyfunc))

with open(OUT_FILENAME, 'w') as csv_file:
    writer = csv.writer(csv_file, delimiter=DELIM)  
for row in it:
    writer.writerow(row)

たぶん、さらにいくつかのことを定義する必要がありますか、それとも私のインデントですか?

4

1 に答える 1

0 
  Private Sub PRODRLIST_Click()
    Dim pyPrgm As String, pyScript As String
    pyPrgm = "C:\Python33\python.exe " 
'---- Space should be there after python 'exe path
    pyScript = "C:\Python33\MyScripts\sort.py" ' File path
    Call Shell(pyPrgm & pyScript, vbMaximizedFocus)
    End Sub
于 2015-11-11T12:06:34.060 に答える