locked
algo errado, n sei o k? RRS feed

  • Pergunta

  • Dim xlws As Excel.Worksheet
    Dim xlrng As Excel.Range
    Dim xlPivot As Excel.PivotTable
    Dim dblocation As String
    Dim dbdir As String


    dblocation = "C:\Documents and Settings\jpcastro\Desktop\BD.mdb"
    dbdir = "C:\Documents and Settings\jpcastro\Desktop"

     

    Set xlApp = New Excel.Application

    xlApp.Visible = True

    Set xlwb = xlApp.Workbooks.Add

     

    With xlwb.PivotCaches.Add(SourceType:=Excel.xlExternal)

       .Connection = Array(Array("ODBC;DSN=MS Access Database; DBQ = " & dblocation & ";DefaultDir=" & dbdir & ";DriverId=25;FIL=MS"), Array(" Access;MaxBufferSize=2048;PageTimeout=5;"))

       .CommandType = Excel.xlCmdSql

       .CommandText = Array("SELECT S12.* from S12")
      
       .CreatePivotTable TableDestination:="", TableName:="SalesPivotTable"

    End With

    Set xlws = xlwb.ActiveSheet

    xlws.Name = "SalesPivot"

    Set xlPivot = xlws.PivotTables("SalesPivotTable")

    xlPivot.AddFields "LineofBusiness2", "ProductCategory"

    With xlPivot.PivotFields("TotalCost")

        .Orientation = Excel.xlDataField

        .NumberFormat = "$#,##0.00"

    End With

     

    Set xlPivot = Nothing

    Set xlrng = Nothing

    Set xlws = Nothing

    Set xlwb = Nothing

    Set xlApp = Nothing

     

    Bom tarde.. será k alguem me pode ajudar e me diz o k está de errado neste codigo?

     

     

     

     

    terça-feira, 19 de junho de 2007 15:25

Todas as Respostas

  • O que exatamente acontece quando você o executa?
    quinta-feira, 21 de junho de 2007 01:32
    Moderador
  • ja consegui resolver..

     

    obrigado na mesma pela disponibilidade

    quinta-feira, 21 de junho de 2007 14:56