Excel-Kontakt-Tabelle nach Outlook importieren (Kontakte erzeugen)

  • Excel

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von Adde.

    Excel-Kontakt-Tabelle nach Outlook importieren (Kontakte erzeugen)

    Hallo,
    ich habe vor ein Programm (kein Makro) zu schreiben, welches in der Lage ist, Kontakte von Outlook zu exportieren, eine Excel-Tabelle zu erstellen und die ausgelesenen Kontakte schießlich dort einzutragen (dies geschieht zeilen weise, also jeder Kontakte bekommt ein Zeile). Nun habe ich jedoch ein Problem dabei, die Kontalte aus Excel wieder auszulesen und mit ihrn Eigenschaften ein Outlook Kontakt zu erstellen. Hier nun der bisherige Code mit Anmerkungen zu meinen Problemen :)

    ~entfernt

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Adde“ ()

    Das Ganze ist recht chaotisch.
    Vielleicht solltest du dir einzelne Probleme rauspicken und Fragen dazu einzeln stellen.

    Adde schrieb:

    Row = xlWorksheet.Row(xlWorksheet.Cells(intRow, 1), xlWorksheet.Cells(intRow, 8))
    Willst du die ganze Zeile?
    Row = xlWorksheet.Rows(intRow)
    Oder die ersten 8 Zellen?
    Row = xlWorksheet.Range(xlWorksheet.Cells(intRow, 1), xlWorksheet.Cells(intRow, 8))
    Aber beides passt natürlich nicht zu der Signatur ​Dim Row As Integer. Das sind Ranges.

    Adde schrieb:

    For Each Row In xlWorkbook.Sheets(1)
    ​For Each Row As Excel.Range In xlWorkbook.Sheets(1).Rows
    Dann solltest du aber auch die Row-Objekte ansprechen.

    Wenn du einfach durchloopen willst:
    For intRow = 1 to xlWorkbook.Sheets(1).Rows.Count
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Hi,
    ersteinmal vielen Dank für die schnelle Hilfe!
    Habe Row nun als Outlook.Row deklariert

    VB.NET-Quellcode

    1. Dim Row As Outlook.Row
    4. Row = xlWorksheet.Range(xlWorksheet.Cells(intRow, 1), xlWorksheet.Cells(intRow, 8))
    6. intRow = 2
    7. For Each Row In xlWorkbook.Sheets(1)
    8. 'neuen Kontakt erzeugen
    9. olContact = olApp.CreateItem(Outlook.OlItemType.olContactItem)
    10. 'Eigenschaften zuweisen
    11. olContact.FirstName = "" + xlWorksheet.Cells(intRow, 1).Value
    12. olContact.LastName = "" + xlWorksheet.Cells(intRow, 2).Value
    13. olContact.Email1Address = "" + xlWorksheet.Cells(intRow, 3).Value
    14. olContact.BusinessAddressStreet = "" + xlWorksheet.Cells(intRow, 4).Value
    15. olContact.BusinessAddressPostalCode = "" + xlWorksheet.Cells(intRow, 5).Value
    16. olContact.BusinessAddressCity = "" + xlWorksheet.Cells(intRow, 6).Value
    17. olContact.BusinessAddressCountry = "" + xlWorksheet.Cells(intRow, 7).Value
    18. olContact.BusinessTelephoneNumber = "" + xlWorksheet.Cells(intRow, 8).Value
    19. intRow = intRow + 1
    20. Next Row


    aber ich muss laut VB einen vollqualifizierten Namen verwenden, da der Typ für die Variable Row nicht abgeleitet werden kann, da er an ein Feld in einem einschließenden Bereich eingebunden sei.

    Damit kann ich nicht wirklich viel anfangen :/

    zur besseren Übersicht der ganze Quellcode:

    VB.NET-Quellcode

    1. Imports Outlook = Microsoft.Office.Interop.Outlook
    2. Imports Excel = Microsoft.Office.Interop.Excel
    4. Public Class Form1
    5. Dim olApp As Outlook.Application
    6. Dim olNamespace As Outlook.NameSpace
    7. Dim olFolder As Outlook.Folder
    8. Dim olContact As Outlook.ContactItem
    9. Dim olItem As Outlook.Items
    10. Dim olAll As Outlook.Items
    11. Dim Row As Outlook.Row
    12. Dim xlApp As Excel.Application
    13. Dim xlWorkbook As Excel.Workbook
    14. Dim xlWorksheet As Excel.Worksheet
    15. Dim intRow As Integer
    16. Dim syncSuccess As Boolean
    17. Dim AllProcesses() As System.Diagnostics.Process = System.Diagnostics.Process.GetProcesses()
    18. Dim MyProcess As System.Diagnostics.Process
    20. Private Sub cmdStart_Click(sender As Object, e As EventArgs) Handles cmdStart.Click
    22. If cmbAuswahl.Text = "Export" Then
    24. 'Outlook-Objekte öffnen
    25. olApp = CreateObject("Outlook.Application")
    26. olNamespace = olApp.GetNamespace("MAPI")
    27. olFolder = olNamespace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)
    28. olAll = olFolder.Items
    30. 'Excel-Objekte öffnen
    31. xlApp = CreateObject("Excel.Application") 'Neue Excel-Instanz
    32. xlWorkbook = xlApp.Workbooks.Add 'Neues Workbook anlegen
    33. xlWorksheet = xlWorkbook.Sheets(1) 'Erstes Sheet
    35. xlWorksheet.Name = "Outlook-Kontakte" 'Worksheet benennen
    37. 'Excel-Worksheet aufbereiten
    38. With xlWorksheet
    40. 'Spaltenüberschriften
    41. .Cells(1, 1).Value = "Vorname"
    42. .Cells(1, 2).Value = "Nachname"
    43. .Cells(1, 3).Value = "E-Mail"
    44. .Cells(1, 4).Value = "Strasse"
    45. .Cells(1, 5).Value = "PLZ"
    46. .Cells(1, 6).Value = "Ort"
    47. .Cells(1, 7).Value = "Land"
    48. .Cells(1, 8).Value = "Telefon"
    49. .Rows("1:1").Font.Bold = True 'Spaltenüberschriften Fett
    51. 'Outlook-Kontakte nach Excel übertragen
    52. intRow = 2
    53. For Each itmContacts In olAll
    54. .Cells(intRow, 1).Value = itmContacts.FirstName
    55. .Cells(intRow, 2).Value = itmContacts.LastName
    56. .Cells(intRow, 3).Value = itmContacts.Email1Address
    57. .Cells(intRow, 4).Value = itmContacts.BusinessAddressStreet
    58. .Cells(intRow, 5).Value = itmContacts.BusinessAddressPostalCode
    59. .Cells(intRow, 6).Value = itmContacts.BusinessAddressCity
    60. .Cells(intRow, 7).Value = itmContacts.BusinessAddressCountry
    61. .Cells(intRow, 8).Value = itmContacts.BusinessTelephoneNumber
    62. intRow = intRow + 1
    63. Next itmContacts
    65. 'automatische Anpassung der Spaltenbreite (optimale Breite)
    66. .Columns.AutoFit()
    68. syncSuccess = True
    70. End With
    72. 'Ausgabe, ob der Export nach Excel erfolgreich war
    73. If syncSuccess = True Then
    74. MsgBox("Die Synchronisierung war erfolgreich", vbInformation)
    75. Me.Close()
    76. Else
    77. MsgBox("Die Synchronisierung ist fehlgeschlagen", vbInformation)
    78. End If
    80. 'Excel einblenden
    81. xlApp.Visible = True
    82. xlWorkbook.SaveAs("C:\Kontakte\Kontakte " & DateString & ".xlsx")
    84. 'Outlook beenden
    85. For Each Process In System.Diagnostics.Process.GetProcessesByName("outlook")
    86. Process.Kill()
    87. Next
    89. 'Excel beenden
    90. For Each Process In System.Diagnostics.Process.GetProcessesByName("excel")
    91. Process.Kill()
    92. Next
    94. ElseIf cmbAuswahl.Text = "Import (von Master-Vorlage)" Then
    96. olApp = CreateObject("Outlook.Application")
    97. xlApp = CreateObject("Excel.Application")
    99. 'Excel Datei mit vorhandenen Kontakten öffnen
    100. xlWorkbook = xlApp.Workbooks.Open("C:\Kontakte\Kontakte " & DateString & ".xlsx")
    101. xlWorksheet = xlWorkbook.Sheets(1)
    103. 'Der Versuch eine Zeile zu definieren um pro Zeile einen neuen Kontakt zu erstellen
    104. Row = xlWorksheet.Range(xlWorksheet.Cells(intRow, 1), xlWorksheet.Cells(intRow, 8))
    106. intRow = 2
    107. For Each Row In xlWorkbook.Sheets(1)
    108. 'neuen Kontakt erzeugen
    109. olContact = olApp.CreateItem(Outlook.OlItemType.olContactItem)
    110. 'Eigenschaften zuweisen
    111. olContact.FirstName = "" + xlWorksheet.Cells(intRow, 1).Value
    112. olContact.LastName = "" + xlWorksheet.Cells(intRow, 2).Value
    113. olContact.Email1Address = "" + xlWorksheet.Cells(intRow, 3).Value
    114. olContact.BusinessAddressStreet = "" + xlWorksheet.Cells(intRow, 4).Value
    115. olContact.BusinessAddressPostalCode = "" + xlWorksheet.Cells(intRow, 5).Value
    116. olContact.BusinessAddressCity = "" + xlWorksheet.Cells(intRow, 6).Value
    117. olContact.BusinessAddressCountry = "" + xlWorksheet.Cells(intRow, 7).Value
    118. olContact.BusinessTelephoneNumber = "" + xlWorksheet.Cells(intRow, 8).Value
    119. intRow = intRow + 1
    120. Next Row
    122. syncSuccess = True
    124. If syncSuccess = True Then
    125. MsgBox("Die Synchronisierung war erfolgreich", vbInformation)
    126. Me.Close()
    127. Else
    128. MsgBox("Die Synchronisierung ist fehlgeschlagen", vbInformation)
    129. End If
    131. 'Outlook einblenden (funktioniert aus einen mir nicht eingänglichen Grund nicht, im Gegensatz zu Excel -> siehe oben)
    132. olApp.Visible = True
    134. ElseIf cmbAuswahl.Text = Nothing Then
    135. MsgBox("Wählen Sie eine Aktion aus!", vbInformation)
    136. End If
    137. End Sub
    138. End Class

    Adde schrieb:

    Dim Row As Outlook.Row
    Row = xlWorksheet.Range(...)
    Merkst du was?
    Wie kommst du darauf, dass Outlook.Row und Excel.Range dasselbe sein soll?

    Ich würde dir ja gerne den Rat geben, dass du Option Strict On programmieren sollst.
    Aber mit dem von dir verwendeten Late Binding, müsste ich zu weit ausholen und diese Energie finde ich heute nicht mehr.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Hi,

    ich habe meine Idee von einem automatisierten Kontaktex- und import in
    die Tat umgesetzt und ein Programm geschreiben. Hier kann man nun
    auswählen ob die Kontakte von Outlook exportiert, in eine Excel-tabelle
    übertragen und als .xlxs gespeichert werden, oder aber ob man Kontakte
    aus einer vorher erstellten Exceltabelle importieren möchte.

    Der Export und das Schreiben der Kontakte in eine Excel.Tabelle
    funktioniert super und flüssig - jedoch habe ich ein paar Probleme bei
    dem Import zurück bzw. in das lokal gespeicherte Adressbuch eines
    anderen Outlooks.

    Hier einmal meine bisherigen Stolpersteine aufgelistet:

    - es fängt damit an, dass trotz des Befehls, welcher bei dem Eport
    einwandfrei funktioniert weder Outlook, noch Excel geöffnet werden
    (Zeilen 96 und 97)

    - danach bin ich mir nicht sicher ob meine Definition einer Zeile (Row) so richtig und für VB lesbar ist (da jeder Kontakt eine Zeile Besitzt, soll pro Zeile ein neuer Kontakt in Outlook erstellt werden) (Zeile 104)

    - des Weitern bin ich mir unsicher bei der Übernahme der
    Kontakt-Eigenschaften (Name, Adresse usw.), da ich den Prozess oben
    (beim Export) einfach umgekehrt habe (Zeilen 109 bis 119)

    das wars erstmal. Ich wäre froh, wenn mir jemand helfen könnte.



    Vielen Dank schonmal im Voraus

    Andi

    Hier nun der Code

    VB.NET-Quellcode

    1. Imports Outlook = Microsoft.Office.Interop.Outlook
    2. Imports Excel = Microsoft.Office.Interop.Excel
    4. Public Class Form1
    5. Dim olApp As Outlook.Application
    6. Dim olNamespace As Outlook.NameSpace
    7. Dim olFolder As Outlook.Folder
    8. Dim olContact As Outlook.ContactItem
    9. Dim olItem As Outlook.Items
    10. Dim olAll As Outlook.Items
    11. Dim Row As Excel.Range
    12. Dim xlApp As Excel.Application
    13. Dim xlWorkbook As Excel.Workbook
    14. Dim xlWorksheet As Excel.Worksheet
    15. Dim intRow As Integer
    16. Dim syncSuccess As Boolean
    17. Dim AllProcesses() As System.Diagnostics.Process = System.Diagnostics.Process.GetProcesses()
    18. Dim MyProcess As System.Diagnostics.Process
    20. Private Sub cmdStart_Click(sender As Object, e As EventArgs) Handles cmdStart.Click
    22. If cmbAuswahl.Text = "Export" Then
    24. 'Outlook-Objekte öffnen
    25. olApp = CreateObject("Outlook.Application")
    26. olNamespace = olApp.GetNamespace("MAPI")
    27. olFolder = olNamespace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)
    28. olAll = olFolder.Items
    30. 'Excel-Objekte öffnen
    31. xlApp = CreateObject("Excel.Application") 'Neue Excel-Instanz
    32. xlWorkbook = xlApp.Workbooks.Add 'Neues Workbook anlegen
    33. xlWorksheet = xlWorkbook.Sheets(1) 'Erstes Sheet
    35. xlWorksheet.Name = "Outlook-Kontakte" 'Worksheet benennen
    37. 'Excel-Worksheet aufbereiten
    38. With xlWorksheet
    40. 'Spaltenüberschriften
    41. .Cells(1, 1).Value = "Vorname"
    42. .Cells(1, 2).Value = "Nachname"
    43. .Cells(1, 3).Value = "E-Mail"
    44. .Cells(1, 4).Value = "Strasse"
    45. .Cells(1, 5).Value = "PLZ"
    46. .Cells(1, 6).Value = "Ort"
    47. .Cells(1, 7).Value = "Land"
    48. .Cells(1, 8).Value = "Telefon"
    49. .Rows("1:1").Font.Bold = True 'Spaltenüberschriften Fett
    51. 'Outlook-Kontakte nach Excel übertragen
    52. intRow = 2
    53. For Each itmContacts In olAll
    54. .Cells(intRow, 1).Value = itmContacts.FirstName
    55. .Cells(intRow, 2).Value = itmContacts.LastName
    56. .Cells(intRow, 3).Value = itmContacts.Email1Address
    57. .Cells(intRow, 4).Value = itmContacts.BusinessAddressStreet
    58. .Cells(intRow, 5).Value = itmContacts.BusinessAddressPostalCode
    59. .Cells(intRow, 6).Value = itmContacts.BusinessAddressCity
    60. .Cells(intRow, 7).Value = itmContacts.BusinessAddressCountry
    61. .Cells(intRow, 8).Value = itmContacts.BusinessTelephoneNumber
    62. intRow = intRow + 1
    63. Next itmContacts
    65. 'automatische Anpassung der Spaltenbreite (optimale Breite)
    66. .Columns.AutoFit()
    68. syncSuccess = True
    70. End With
    72. 'Ausgabe, ob der Export nach Excel erfolgreich war
    73. If syncSuccess = True Then
    74. MsgBox("Die Synchronisierung war erfolgreich", vbInformation)
    75. Me.Close()
    76. Else
    77. MsgBox("Die Synchronisierung ist fehlgeschlagen", vbInformation)
    78. End If
    80. 'Excel einblenden
    81. xlApp.Visible = True
    82. xlWorkbook.SaveAs("C:\Kontakte\Kontakte " & DateString & ".xlsx")
    84. 'Outlook beenden
    85. For Each Process In System.Diagnostics.Process.GetProcessesByName("outlook")
    86. Process.Kill()
    87. Next
    89. 'Excel beenden
    90. For Each Process In System.Diagnostics.Process.GetProcessesByName("excel")
    91. Process.Kill()
    92. Next
    94. ElseIf cmbAuswahl.Text = "Import (von Master-Vorlage)" Then
    96. olApp = CreateObject("Outlook.Application")
    97. xlApp = CreateObject("Excel.Application")
    99. 'Excel Datei mit vorhandenen Kontakten öffnen
    100. xlWorkbook = xlApp.Workbooks.Open("C:\Kontakte\Kontakte " & DateString & ".xlsx")
    101. xlWorksheet = xlWorkbook.Sheets(1)
    103. 'Der Versuch eine Zeile zu definieren um pro Zeile einen neuen Kontakt zu erstellen
    104. Row = xlWorksheet.Rows(intRow)
    106. intRow = 2
    107. For Each Row As Excel.Range In xlWorkbook.Sheets(1).Rows
    108. 'neuen Kontakt erzeugen
    109. olContact = olApp.CreateItem(Outlook.OlItemType.olContactItem)
    110. 'Eigenschaften zuweisen
    111. olContact.FirstName = "" + xlWorksheet.Cells(intRow, 1).Value
    112. olContact.LastName = "" + xlWorksheet.Cells(intRow, 2).Value
    113. olContact.Email1Address = "" + xlWorksheet.Cells(intRow, 3).Value
    114. olContact.BusinessAddressStreet = "" + xlWorksheet.Cells(intRow, 4).Value
    115. olContact.BusinessAddressPostalCode = "" + xlWorksheet.Cells(intRow, 5).Value
    116. olContact.BusinessAddressCity = "" + xlWorksheet.Cells(intRow, 6).Value
    117. olContact.BusinessAddressCountry = "" + xlWorksheet.Cells(intRow, 7).Value
    118. olContact.BusinessTelephoneNumber = "" + xlWorksheet.Cells(intRow, 8).Value
    119. intRow = intRow + 1
    120. Next Row
    122. syncSuccess = True
    124. If syncSuccess = True Then
    125. MsgBox("Die Synchronisierung war erfolgreich", vbInformation)
    126. Me.Close()
    127. Else
    128. MsgBox("Die Synchronisierung ist fehlgeschlagen", vbInformation)
    129. End If
    131. 'Outlook einblenden (funktioniert aus einen mir nicht eingänglichen Grund nicht, im Gegensatz zu Excel -> siehe oben)
    132. olApp.Visible = True
    134. ElseIf cmbAuswahl.Text = Nothing Then
    135. MsgBox("Wählen Sie eine Aktion aus!", vbInformation)
    136. End If
    137. End Sub
    138. End Class

    Adde schrieb:

    es fängt damit an, dass trotz des Befehls, welcher bei dem Eport
    einwandfrei funktioniert weder Outlook, noch Excel geöffnet werden
    Nicht geöffnet oder nicht sichtbar?
    Steht in den Objektvariablen olApp und xlApp etwas drin oder sind die Nothing?
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Das hier hat der Debugger ausgegeben, nachdem ich ein Breakpoint in Z.100 gesetzt hab :

    Der Thread 0x14b8 hat mit Code 259 (0x103) geendet.
    "Export-Import-Kontakte.vshost.exe" (CLR v4.0.30319: Export-Import-Kontakte.vshost.exe): "C:\Users\Andreas\documents\visual studio 2013\Projects\Export-Import-Kontakte\Export-Import-Kontakte\bin\Debug\Export-Import-Kontakte.exe" geladen. Symbole wurden geladen.
    "Export-Import-Kontakte.vshost.exe" (CLR v4.0.30319: Export-Import-Kontakte.vshost.exe): "C:\Windows\Microsoft.Net\assembly\GAC_MSIL\System.Runtime.Remoting\v4.0_4.0.0.0__b77a5c561934e089\System.Runtime.Remoting.dll" geladen. PDB-Datei wurde nicht gefunden oder konnte nicht geöffnet werden.
    Der Thread 0x6088 hat mit Code 259 (0x103) geendet.
    Der Thread 0x10dc hat mit Code 259 (0x103) geendet.
    Das Programm "[24400] Export-Import-Kontakte.vshost.exe" wurde mit Code 0 (0x0) beendet.

    Dann würde ich mal den Breakpoint etwas höher setzen und im Einzelschritt soweit gehen, bis du weisst, wo er abstürzt.
    Du kannst ja dein Late Binding mal ersetzen durch ein Strict-On-fähiges Dim xlApp As New Excel.Application.
    Vielleicht kriegst du dann genauere Informationen.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Hi, Ich habe nun den Code etwas abgeändert, dass es zumindest funkitioniert, dass Excel und Outlook geöffnet werden etc :D
    Nun ergibt sich beim Debuggen jedoch der Fehler: Ein Ausnahmefehler des Typs "System.InvalidCastException" ist in Microsoft.VisualBasic.dll aufgetreten.
    Zusätzliche Informationen: Ungültige Konvertierung von der Zeichenfolge in Typ Double.     (Zeile 127)
    PS: Ich bin dir sehr dankbar für die Hilfe die du bereits geleistet hast :thumbsup:

    Hier der neue Code:

    ~entfernt

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Adde“ ()

    Textverkettung wird mit dem &-Operator durchgeführt, nicht mit +.

    Möglich wäre aber auch
    olContact.FirstName = xlWorksheet.Cells(j, i).Text

    Wie schon erwähnt, wenn du Option Strict On einschalten würdest, hätte das die IDE schon lange angemeckert.
    Aber dann musst du vermutlich die Hälfte deines Codes nachbessern.
    Du kannst es dennoch versuchsweise mal einschalten, damit du siehst, wo du überall unsauber programmiert hast.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

Facebook
Telefonspende