VBA 到 Python 的转换答案

【问题标题】：VBA to Python conversionVBA 到 Python 的转换
【发布时间】：2015-02-14 12:12:10
【问题描述】：

我有一个 vba 宏，它在 Excel 中的 D 列中嵌入了一系列文本文件，该文件引用了 A 列中的值，向下迭代该列。在将其转换为 Python 时，我在指定文件的嵌入位置时遇到了困难。 vba 宏将每个文件嵌入到相关行中，而 Python 脚本以其当前形式将所有文件嵌入到同一单元格 (B2) 中。我尝试了各种策略，主要是将 Offset 放在不同的地方，但没有成功，并且无法在网上找到任何示例。这是代码sn-ps： VBA：

Sub Insert_Text_File()

    Dim ol As OLEObject
    Dim file As String
    Dim cell As Range

    ' loop each cell in column A 
    For Each cell In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
        If Not IsEmpty(cell) Then
            file = cell.Value & ".txt"
            ' create and insert a new OleObject based on the path
            ' ThisWorkbook.path & "\" & cell & file will make the filename
            Set ol = Worksheets("Inventory").OLEObjects.Add(Filename:=ThisWorkbook.path & "\" & file, Link:=False, DisplayAsIcon:=True, Height:=10)
            ' align the OleObject with Column D - (0 rows, 3 columns to the right from column A)
            ol.Top = cell.Offset(0, 3).Top
            ol.Left = cell.Offset(0, 3).Left
        End If
    Next
End Sub

Python：

folder = 'C:\Users\ioe\\' #raw_input("Please specify Show Files directory: ")
inventory_csv = 'inventory.csv'
book = Workbook()
sheet = book.add_sheet('Inventory',cell_overwrite_ok=True)

inventory_data_to_csvfile(folder)

csv_to_xls(inventory_csv)

os.remove('inventory.csv')

xl = win32.gencache.EnsureDispatch('Excel.Application')
xl.Visible = 1
wb = xl.Workbooks.Open("C:\Users\\robertph\Share\inventory\INVENTORY.xls")

column = wb.ActiveSheet.Range("A2:A200")
for cell in column:
    if cell.Value is not None:
        f = 'C:\Users\\robertph\Share\ioe\\' + str(cell.Value) + '.txt'
        ol = wb.ActiveSheet.OLEObjects().Add(Filename=f, Link=False)
        #ol.Offset(0, 3)
        #cell.GetOffset(0, 3).Value = ol 
        #ol_offset = ol.Cells(cell).GetOffset(0, 3)
        #ol.Top = cell.Offset(0, 3)
        #ol.Left = cell.Offset(0, 3)

非常感谢任何建议。谢谢。

【问题讨论】：

标签： python excel vba pywin32

【解决方案1】：

如果其他人发现自己处于相同的位置；我终于解决了：（呼！）

range = wb.ActiveSheet.Range("A2:A200")
for cell in range:
    if cell.Value is not None:
        f = 'C:\Users\\robertph\Share\ioe\\' + str(cell.Value) + '.txt'
        ol = wb.ActiveSheet.OLEObjects().Add(Filename=f, Link=False)
        ol.Top = cell.GetOffset(0, 3).Top
        ol.Left = cell.GetOffset(0, 3).Left

【讨论】：