拆分表格以格式化为电子表格

时间:2014-10-08 16:52:06

标签: vba access-vba ms-access-2010 ole

我有一张表,其数据类似。

    ------------+---------------+---------------+---------------+---------------+---------------+---------------+------------+
    Agent Name  |   Total Fails |   To Process  |   Processed   |   Declined    |   Total Today |   Daily Net   |   Switched |  
    ------------+---------------+---------------+---------------+---------------+---------------+---------------+------------+
    John H      |       0       |       3       |       0       |       3       |       10      |       18      |       3    |
    Mary B      |       0       |       1       |       0       |       1       |       14      |       25      |       4    |
    Department  |       0       |       4       |       0       |       4       |       24      |       43      |       7    |
    ------------+---------------+---------------+---------------+---------------+---------------+---------------+------------+

我想要的是访问表单中的嵌入式Excel表格。除了复杂性之外,我还需要以不同的方式进行组织。我需要Excel表格采用这种格式。

    Agent Name      |   John H  |   Mary B  |   Department
    ----------------+-----------+-----------+---------------
    Total Fails     |       0   |       0   |       0   
    To Process      |       3   |       1   |       4
    Processed       |       0   |       0   |       0
    Declined        |       3   |       1   |       4
    Total Today     |       10  |       14  |       24
    Daily Net       |       18  |       25  |       43
    Switched        |       3   |       4   |       7

所以简单来说,我希望表中的第一个Column值是excel中的Column头。列名称是Excel工作表的第一列。我无法准确解释我需要什么。

我需要移植工作表,而不是完全。任何想法或想法?

2 个答案:

答案 0 :(得分:1)

以下是Microsoft的一个示例,介绍如何在表格中转置数据行/列:http://support.microsoft.com/kb/182822

标题为“访问:如何在表或查询中转置数据”,它提供了两种方法:

  • 方法1 - 在Microsoft Excel中转​​置数据
  • 方法2 - 使用自定义函数转置表格(包括示例代码)

很高兴它有效!

答案 1 :(得分:0)

我会将数据带入Access中的本地表,然后将表单绑定到Crosstab Query。然后,您需要的唯一代码是从Excel导入Access。