excel - 向表中添加数据时移动到下一列

Question

我正在尝试将 Excel 中的一部分数据添加到 Access 中的表中。我使用了 TransferSpreadSheet 方法，数据在表中出现乱序。

我尝试的下一件事是尝试将每个单元格逐列添加到表中，但这不起作用，因为要继续将数据添加到下一行而不是转到下一列，然后添加到第一行下一栏。

一般来说，我在 Excel 中有 7 行/单元格和 100 列。我希望它在表格中看起来与在电子表格中一样

这是我尝试过的:

For i = 0 To 7
    For j = 5 To 100
        xColumn = MultiLetter(j)
        xCell = shNames + "!" + xColumn + CStr(BCellNum + i) + ":" + xColumn + CStr(BCellNum + i)
        'xCell = shNames + "!E" + CStr(BCellNum + i) + ":" + xColumn + CStr(BCellNum + i)

        DoEvents
            DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Sheet1", _
                ExcelFileList(XFile), No, xCell, yes
    Next j
Next i

它最终是什么

A
B
C
D
E
F
G
H

我想要它是什么

A     E
B     F
C     G
D     H

谁能帮助我的困境？

Answer 1

为什么不先将数据提取到新工作表，然后在新工作表上使用 DoCmd.TransferSpreadsheet!