主页 / 问题 / 1604967
Accepted
Рустам Рысаев
Asked:2025-01-17 13:16:59 +0000 UTC2025-01-17 13:16:59 +0000 UTC

将数据从 Excel VBA 传递到 Python 代码的最快方法

  • 772

有一个 VBA 代码可以填充数组，同时考虑到用户选择的范围：

ReDim dataСontract(1 To rng.Rows.Count)
ReDim dataLegal(1 To rng.Rows.Count)
ReDim BuyerTin(1 To rng.Rows.Count)
ReDim dataAddress(1 To rng.Rows.Count)

i = 1
For Each cell In rng.Cells
    dataСontract(i) = Cells(cell.Row, 1).Value
    dataLegal(i) = ReformatName(Cells(cell.Row, 2).Value)
    BuyerTin(i) = Cells(cell.Row, 8).Value
    dataAddress(i) = Cells(cell.Row, 13).Value
    i = i + 1
Next cell

然后我也PDF файл从这些数组接收数据base64。

Dim base64Pdf As String
base64File = ConvertFileToBase64(pdfFileName)

所有这些数组都必须传递到Python代码中，以便随后创建数据并将数据上传到站点。您是否想知道如何以更优化的方式在代码之间传输数据？有一个想法是通过命令行，或者创建一个中间文件，例如在csv.

python

2 个回答

  1. Best Answer

    总的来说，是的，目前还不清楚为什么 Excel 会出现在这里。显然整个解决方案的架构需要重新设计。如果您写得更详细，我们会建议您。

    在 Excel 中，您需要快速使用数组，如下所示：

    Dim arr As Variant
arr = [A1:C10] ' получить данные из диапазона в массив
[B2:D11] = arr ' записать массив в диапазон

    然后将数组写入文件。或者，如果数据涉及整个工作表，则只需将工作表另存为 CSV 即可。

    如果 Excel 是您主要工作的交互式应用程序，则可以执行以下操作：

    1. 使用 Excel 中的按钮，将数据写入文件。
    2. 之后：a) 要么从那里启动一个 Python 应用程序，以某种方式处理这些数据，b) 要么根据 Web 的请求获取文件中的数据 - 相反，此选项。
    • 1

  2. 我感谢评论员，我附上我的脚本，以防有人发现它有用。来自VBA的部分：

    Sub RunPythonScript()
    Dim scriptPath As String
    Dim shellObj As Object
    
    startTime = Timer
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculateManual
    
    desktopPath = Environ("USERPROFILE") & "\Desktop"
    scriptPath = desktopPath & "\test.py"
    
    Set shellObj = CreateObject("WScript.Shell")
    shellObj.Run "python " & scriptPath, 0, True
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculateManual
    
    endTime = Timer

    elapsedTime = endTime - startTime
    
    Debug.Print "Время выполнения кода: " & Format(elapsedTime, "0.00") & " секунд"
    
End Sub

    对于蟒蛇

    # Функция для экспорта данных из выделенного диапазона
def export_data_and_convert_pdf():
    # Подключение к Excel
    excel = win32com.client.Dispatch("Excel.Application")
    workbook = excel.ActiveWorkbook
    sheet = excel.ActiveSheet

    # Получение выделенного диапазона
    selection = excel.Selection

    # Массив для хранения данных
    data_array = []

    # Сбор данных из диапазона
    for cell in selection:
        
        data_legal = sheet.Cells(cell.Row, 2).Value

        # Находим индекс первого символа кавычки
        quote_index = data_legal.find('"')

        if quote_index != -1:
            # Разделяем строку на две части
            before_quote = data_legal[:quote_index].strip()  # Часть до кавычек
            inside_quote = data_legal[quote_index:].strip()  # Часть внутри кавычек

            # Создаем новую строку с переносом
            reversed_data_legal = f'"{inside_quote[1:]} {before_quote}'
        else:
            # Если нет кавычек, оставляем как есть
            reversed_data_legal = data_legal
    
        buyer_tin = sheet.Cells(cell.Row, 8).Value
        buyer_tin = int(buyer_tin) if buyer_tin == int(buyer_tin) else buyer_tin
    
        row_data = {
            "dataContract": sheet.Cells(cell.Row, 1).Value,
            "dataLegal": reversed_data_legal,
            "BuyerTin": buyer_tin,
            "dataAddress": sheet.Cells(cell.Row, 13).Value,
        }
        
        # Добавляем данные в массив
        data_array.append(row_data)

# Запуск основного кода
if __name__ == "__main__":
    export_data_and_convert_pdf()
    • 0

相关问题