Domino 9 und frühere Versionen > ND6: Administration & Userprobleme

Adressbucg Gruppen + Angaben in Excel Exportieren

<< < (2/12) > >>

djsven:
Sorry,
OK vor und Nachname, Firma, Strasse,PLZ, Ort,m Tel, Tel Handy,Email, Web Adresse, Anschrift der Firma und vielleicht noch ein Feld was ich frei wählen kann!!

klaussal:
OK, dann so, wie Bernhard es beschrieben hat.
Mit LoNo-Bordmitteln keine Chance. Dazu ist Kenntniss von LS unabdingbare Voraussetzung  ;D
klaus

djsven:
Dann wie B gesagt hat??Hä wodenn??
Auf gehts mit Lotus Scripts!!!!
DANKE

koehlerbv:

--- Zitat von: djsven am 20.09.04 - 16:40:50 ---Dann wie B gesagt hat??Hä wodenn??
Auf gehts mit Lotus Scripts!!!!
DANKE

--- Ende Zitat ---

Das steht mal gerade vier Beiträge darüber ...

djsven:
HI alle zusammen,
sagt mal wie kann ich dieses Script dahin gehend erweitern, das er mit eine Gruppe ausliest und die unteren Werte in Excel reinschreibt??
Das geht leider nur wenn ich direkt auf den Kontakt gehe so wie es hier steht.
Aber ich möchte auf ne Gruppe gehen und dort die Daten auslesen!
Kann mir einer bitte helfen, bin lkeider noch Anfänger was Programmieren angeht!!!
DANKE

Sub Initialize
   
   
'Diese Routine exportiert aus einem Lotus Notes Adressbuch
'in eine Excel - Tabelle , die Felder der Geschäftskunden
'Title,FirstName,LastName,JobTitle,Company ...
' ... OfficeStreetAddress, OfficeZip , OfficeCity und
'OfficeCountry
   Dim Session As New NotesSession
   Dim Doc As NotesDocument
   Dim CurrDB As NotesDatabase
   Dim Collection As NotesDocumentCollection
   Dim Application As Variant
   Dim Book As Variant
   Dim Sheet As Variant
   Dim i As Integer
   
   Set CurrDB = Session.CurrentDatabase
   Set Collection = CurrDB.UnprocessedDocuments
   Set Doc = Collection.GetFirstDocument
   Set Book=Nothing
   Set Sheet = Nothing
   Set Application=Nothing
   
'Öffnet Excel mit dem Tabellennamen ExportAdressen
   
   Set Application = CreateObject("Excel.Application")
   Set Book = Application.Workbooks.Add
   If Application.Workbooks(1).Worksheets.Count=0 Then
      Set sheet = Application.Workbooks(1).Worksheets.Add
   End If
   Set Sheet = Application.Workbooks(1).Worksheets(1)
   Sheet.Name = "Export Adressen" 'Name der Arbeitsmappe
   Book.Application.Visible=True
   
' Schreibt Spaltenköpfe
   
   ARangeValue = Sheet.Range("A1").Activate
   Sheet.Range("A" & 1).Value = "Titel"
   Sheet.Range("B" & 1).Value = "Vorname"
   Sheet.Range("C" & 1).Value = "Name"
   Sheet.Range("D" & 1).Value = "Jobtitel"
   Sheet.Range("E" & 1).Value = "Firma"
   Sheet.Range("F" & 1).Value = "Straße"
   Sheet.Range("G" & 1).Value = "PLZ"
   Sheet.Range("H" & 1).Value = "Ort"
   Sheet.Range("I" & 1).Value = "Land"
   
' Ausgabe der Spalten von den selektierten Dokumenten
   
   For i = 1 To Collection.Count
      
      Sheet.Range("A" & i+1).Value = Doc.Title
      Sheet.Range("B" & i+1).Value = Doc.FirstName
      Sheet.Range("C" & i+1).Value = Doc.LastName
      Sheet.Range("D" & i+1).Value = Doc.JobTitle
      Sheet.Range("E" & i+1).Value = Doc.CompanyName
      Sheet.Range("F" & i+1).Value =Doc.OfficeStreetAddress
      Sheet.Range("G" & i+1).Value = Doc.OfficeZip
      Sheet.Range("H" & i+1).Value = Doc.OfficeCity
      Sheet.Range("I" & i+1).Value = Doc.OfficeCountry
      
      Set Doc = Collection.GetNextDocument(Doc)
      
   Next i
   
End Sub

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete