使用VBA访问数据的其他方法

Question

美好的一天。 在过去的8个小时内，我正在寻找Access 2007中的数据透视替代方案，因为我们的Citrix帐户（OWC10.dll）中没有提供参考dll。所以我尽我的全力去研究这个方法，但到目前为止我什么都没有，所以我认为它有一点帮助。

什么我这里是原始数据的样本..

这是最终的结果我找了，枢轴表，其中当然也可以在观看形式（最佳解决方案）或提取的excel文件。

所以基本上，我需要显示：

• 多少，他们工作时间每天
• 他们有多少工作的每一天。

我试着TRANSFORM Statement/Crosstab，我得到的错误是有太多的行使它成为一个列，因为我确实有20,000+行 - 30天/月*工作的人。 - DISTINCT他们，但我不知道如何？

我在我们的系统中没有.dll文件，所以正常的摆动是没有问题的。有谁知道可以给我这些显示结果的替代品吗？

Answer 1

对于其他与我一样麻烦的人。我使用了CrossTab。 使用查询向导非常容易理解。下面是编辑的SQL查询，以适应我的需要：

TRANSFORM format(Sum(MyCopy.[Duration]), "hh:mm:ss") AS SumOfDuration 
SELECT MyCopy.[UserID].[FullName], MyCopy.[TL], Sum(MyCopy.[Duration]) AS [Total Of Duration] 
FROM MyCopy 
Group BY MyCopy.[UserID], MyCopy.[FullName], MyCopy.[TL] 
PIVOT MyCopy.[Process Date]; 

注意：为报告目的，它非常容易提取此查询。我确实使用了format，这样它就不会看到小数点。显然，MS Access不会给出答案的实际数字，但相同的百分比。当sum of total duration通过24小时时它解决不同。所以我把它留在十进制格式中，以显示正确的数字。

Answer 2

你需要做的是编译你需要的数据查询，并将其推送到excel中，然后以编程方式在excel中建立一个数据透视表。

我几乎所有的东西都使用ADO - 所以我在这里得到的语法反映了这一点;如果你是DAO，你需要翻译它。

sql = _ 
    "SELECT Name, ProcessDate, HandlingTime " & _ 
    "FROM tbl ... WHERE ..." 

GenerateSimplePivot(excel_path&file_name_to_create, sql, 2) 


Private Sub GenerateSimplePivot(xname As String, auditData As String, _ pivotColumns As Long) 
    Dim ii  As Long 
    Dim XL  As Object 
    Dim WB  As Object 
    Dim WS1  As Object 
    Dim WS2  As Object 
    Dim rst  As ADODB.Recordset 

    'create/assign xl objects 
    Set XL = CreateObject("Excel.Application") 
    XL.Visible = False 
    XL.DisplayAlerts = False 
    Set WB = XL.Workbooks.Add 
    Set WS1 = WB.Worksheets(1) 

    Set rst = New ADODB.Recordset 
    rst.Open auditData, CurrentProject.Connection, adOpenKeyset, adLockReadOnly 

    For ii = 0 To rst.Fields.Count - 1 
     WS1.Cells(1, ii + 1) = rst.Fields(ii).Name 
    Next 

    WS1.Range("A2").CopyFromRecordset rst 
    WS1.Columns.Autofit 
    WS1.Name = "AuditData" 

    For ii = 0 To rst.Fields.Count - 1 
     'add column formatting logic here, if required 
    Next 
    rst.Close 

    If WB.Worksheets.Count < 2 Then 
     Set WS2 = WB.Worksheets.Add(, WB.Worksheets(WB.Worksheets.Count)) 
    Else 
     Set WS2 = WB.Worksheets(2) 
    End If 

    WS2.Name = "PivotTable" 

    DoCmd.SetWarnings False 

    Dim PTcache  As Object 
    Dim pt   As Object 

    WS1.Activate 

    Set PTcache = WB.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=WS1.Range("A1").CurrentRegion.Address) 
    Set pt = PTcache.CreatePivotTable(TableDestination:=WS2.Range("a6"), TableName:="PivotTable ") 

    WS2.Activate 

    With pt 
     For ii = (pivotColumns - 3) To 2 Step -1 
      .PivotFields(ii).Orientation = xlPageField 
     Next 
     On Error Resume Next 
     .PivotFields(1).Orientation = xlPageField 
     Err.Clear 
     ON Error GoTo [error handler label] 
     .PivotFields(pivotColumns - 2).Orientation = xlRowField 
     .PivotFields(pivotColumns - 1).Orientation = xlColumnField 
     .PivotFields(pivotColumns).Orientation = xlDataField 
    End With 

    WB.SaveAs FileName:=xname 
    WB.Close 
    Set WS1 = Nothing 
    Set WS2 = Nothing 
    Set PTcache = Nothing 
    Set pt = Nothing 
    Set WB = Nothing 
    XL.Quit 

    DoCmd.SetWarnings True 
    Set rst = Nothing 
    Set WS1 = Nothing 
    Set WS2 = Nothing 
    Set PTcache = Nothing 
    Set pt = Nothing 
    Set WB = Nothing 
    Set XL = Nothing 
End Sub 

这是你之后？