Hallo Leute,
ich habe einen Agent der mir eine Ansicht in Excel exportiert.
Das funktioniert auch soweit bis auf das Feld "AFO". Da ist es möglich Mehrfacheingaben zu machen. Ich hab versucht diese über die Join Funktion darzustellen. Da es aber ein Zahlenfeld ist funktioniert dies wahrscheinlich nicht.
Könnt ihr mir dabei helfen?
Vielen Dank
Code:
Sub Initialize
Dim xlApp As Variant
Dim xlSheet As Variant
Dim Session As New NotesSession
Dim collection As NotesDocumentCollection
Dim View As NotesView
Dim doc As NotesDocument
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Set xlApp = CreateObject("Excel.application")
xlApp.StatusBar = "WorkSheet wird erstellt. Bitte warten..."
xlApp.Visible = True
xlApp.Workbooks.Add
xlApp.ReferenceStyle = 2
Set xlSheet = xlApp.Workbooks(1).Worksheets(1)
xlsheet.Name = "Excel Druckvorlage"
' Ueberschriften
With xlSheet
.range("A1").Value = "Produkt"
.range("B1").Value = "AFO"
.range("C1").Value = "Beschreibung"
.range("D1").Value = "Tool"
.range("E1").Value = "Rezept"
.range("F1").Value = "Name"
.range("G1").Value = "Datum"
End With
' Formatierung
With xlapp
.Columns("A:G").select
.Rows("1:1").select
.Selection.font.bold=True
.Columns("A:A").Select
.Selection.ColumnWidth = 30
.Columns("B:B").Select
.Selection.ColumnWidth = 25
.Columns("C:C").Select
.Selection.ColumnWidth = 50
.Columns("D:D").Select
.Selection.ColumnWidth = 25
.Columns("E:E").Select
.Selection.ColumnWidth = 25
.Columns("F:F").Select
.Selection.ColumnWidth = 20
.Columns("G:G").Select
.Selection.ColumnWidth = 20
.Range("A1:G1").Select
.Range("A1:G1").Activate
.Selection.Borders(5).LineStyle = -4142
.Selection.Borders(6).LineStyle = -4142
.Selection.Borders(7).LineStyle = -4142
.Selection.Borders(8).LineStyle = -4142
.Selection.Borders(9).LineStyle = 1
.Selection.Borders(9).Weight = -4138
.Selection.Borders(9).ColorIndex = -4105
.Selection.Borders(10).LineStyle = -4142
.Selection.Borders(12).LineStyle = -4142
End With
Set View = Session.CurrentDatabase.GetView("all")
Set collection = db.UnprocessedDocuments
Set Doc = collection.GetFirstDocument
i = 0
While Not (Doc Is Nothing)
With xlSheet
.range("A" + Cstr(i + 2)).Value = Join(doc.Product,", ")
[color=CC3300].range("B" + Cstr(i + 2)).Value = Join(doc.AFO,", ")[/color]
.range("C" + Cstr(i + 2)).Value = doc.Beschreibung(0)
.range("D" + Cstr(i + 2)).Value = doc.Tool(0)
.range("E" + Cstr(i + 2)).Value = doc.Rezept(0)
End With
i = i + 1
Set doc = collection.GetNextDocument(doc)
Wend
End Sub