Eksporten gør jeg sådan her: Set xlApp = CreateObject("Excel.Application") 'start Excel with OLE Automation xlApp.StatusBar = "Creating WorkSheet. Please be patient..." xlApp.Visible = True xlApp.Workbooks.Add xlApp.ReferenceStyle = 2 Set xlsheet = xlApp.Workbooks(1).Worksheets(1) 'select first worksheet
Umiddelbart prøver jeg sådan noget her, men skal nok på en eller anden vis have lagt det i et array! Dim vc As NotesViewEntryCollection Set db = session.CurrentDatabase Set view = db.GetView("(AppLookupTimeSheetsForOperationNo)") Set vc = view.AllEntries Set entry = vc.GetFirstEntry() Set doc = entry.Document
While (Not Doc Is Nothing) If ( oprno = Doc.GetItemValue("SalaryOperaNo")(0)) Then oprquantity = oprquantity + Doc.GetItemValue("SalaryQuantity")(0) Else oprno = Doc.GetItemValue("SalaryOperaNo")(0)
Den slags løkker du har gang i er lidt mere komplekse end som så. Du skal holde bedre øje med "forrige" oprno og sammenligne.
Men det kan være at en af de punkter jeg nævnte foroven kan hjælpe dig.
Kategoriser dokumenterne på SalaryOperaNo Tilføj en Totaler på kolonnen der har SalaryQuantity Nu vil du se en sum i oversigten ved siden af kategorien
prøv nu at oprette en ViewNavigator. Det burde være muligt at traversere oversigten med denne viewnavigator og hente totalerne ud af kolonnen for hver kategori.
Husk bare den sidste skrivning til Excel. Så vidt jeg kan se kommer din sidste kategori ikke med over i Excel. Men ellers havde du jo allerede styr på "sidste". Det overså jeg.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.