向表

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！