Projekt-Anfragen: Tel: 07022/9319004 info@CodeDocu.de Software Entwicklung in C# WPF Asp.Net Core Vba Excel Word SQL-Server EF Linq, UWP Net
#
Zunächst loggt man sich am Router der Fritzbox an mit http://fritz.box
Dann geht man auf das Telefonbuch
Und öffnet dieses rechts unten als Druckansicht:

Jetzt kopiert man alles mit Strg-A (alles markieren) und Strg-C (alles kopieren)



Das komplette Telefonbuch fügt man ganz einfach per
Einfügen in das erste Blatt der Excel-Datei in Zelle A1 per Strg-V (Einfügen)


Dann auf dem Blatt Ausgabe_Kontakte den Button
Kontakte Datei speichern drücken


Dann wird eine Datei im gleichen



Dann bindet man das Smartphone per USB an

und wählt USB verbinden



Button USB Speicher verbinden drücken und mit OK bestätigen

Verbunden ist das System, wenn der Android Roboter rot ist. Der Speicher gehört jetzt dem PC und wird dort als E-Laufwerk angezeigt



So, jetzt noch die Datei einfach rüberkopieren in das Basisverzeichnis


Jetzt den USB trennen, damit die SD-Karte wieder sichbar wird

Und dann Kontakte->Menü(Taste links unten) und dann import/Export


Jetzt von der SD Karte importieren
In das Telefonbuch


Jetzt auswählen, dass man nur eine Datei importieren will, nämlich die Datei, die alle Kontakte und Telefonummern der Fritzbox als komplette Liste hat


Dann wird eine ganze Liste importiert. (hier 224 Kontakte.. alle die man zuHause auch verwendet)


Und voila… jetzt sind alle 224 Kontakte importiert



Den vorrübergehenden Visual Basic Code und das Makro findet ihr hier…




Sub BtnLoop_Rufnummern()
'------< BtnLoop_Rufnummern() >-------
'*Durchlaufe alle Rufnummern auf dem Blatt

'< init >
Dim sDate As String
sDate = Format(Date, "yyyyMMdd")
Dim sFilename As String
sFilename = "Kontakte_" & sDate & ".vcf"
'</ init >

'--< init Filesystem >--
Dim objFilesystem As New FileSystemObject
'--</ init Filesystem >--

'< File erstellen >
Dim objFile As TextStream
objFile = objFilesystem.CreateTextFile(sFilename, True)
'</ File erstellen >



'< init >
Dim objWorkbook As Workbook
objWorkbook = ActiveWorkbook

Dim objSheet As Worksheet
objSheet = ActiveWorkbook.Sheets("Ausgabe_Kontakte")

Dim intCol_Rufnummer As Integer
intCol_Rufnummer = 3
Dim intCol_Name As Integer
intCol_Name = 2
'</ init >


'< init loop-variablen >
Dim objCell As Range
Dim iRow As Integer
Dim sRufnummer As String
Dim sName As String
'</ init loop-variablen >

'----< @Loop: Rufnummern >----
For iRow = (4 + 1) To 1000
'< Zelle lesen >
sRufnummer = objSheet.Cells(iRow, intCol_Rufnummer)
sName = objSheet.Cells(iRow, intCol_Name)
'</ Zelle lesen >

'< Kontrolle Abbruch >
If sRufnummer Like "" Then
'MsgBox "Letzte Zelle=" & iRow
Exit For
End If
'</ Kontrolle Abbruch >

'< Text auswerten >
fl_Kontakt_Eintrag_schreiben(objFile, sName, sRufnummer)
'</ Text auswerten >

Next
'----</ @Loop: Rufnummern >----



'< Abschluss >
objFile.Close()
'</ Abschluss >


'< Abschluss >
objSheet = Nothing
objWorkbook = Nothing
'</ Abschluss >

MsgBox "Fertig mit Datei " & sFilename
'------</ BtnLoop_Rufnummern() >-------
End Sub



Private Sub fl_Kontakt_Eintrag_schreiben(ByRef objFile As TextStream, ByVal sName As String, sTelefonNummer As String)
'------< fl_Kontakt_Eintrag_schreiben() >-------
objFile.WriteLine "BEGIN: VCARD"
objFile.WriteLine "VERSION:3.0"
objFile.WriteLine "N:;" & sName & ";;;"
objFile.WriteLine "FN: " & sName & ""
objFile.WriteLine "TEL;TYPE=CELL;TYPE=PREF:" & sTelefonNummer & ""
objFile.WriteLine "End: VCARD"
objFile.WriteLine ""
'------</ fl_Kontakt_Eintrag_schreiben() >-------
End Sub





Das komplette Video liegt unter Youtube unter:
https://www.youtube.com/watch?v=lYNIQu5V1hI


Mobile
»
Kein Internet in Nürtingen
»
Fritzbox: Neues Betriebssystem OS 06.51 Update
»
AVM Fritzbox: Telefonbuch per s cript lesen
»
AVM Fritzbox: Kennwort ändern
»
Fritzbox: 5 GHz oder nur 2,4 GHz SSID
»
Fritzbox, Wlan: Filme im Wlan am Fernseher oder PC anschauen
»
Fritzbox: Abfrage per TR64 Prokokoll Notizen
»
Fritzbox App Code: Windows 10 App Einstiegscode zum Login in Fritzbox
»
Fritzbox: Desktop Tool zum Login in AVM Fritz.box per Code, WPF, Download
»
UWP: Fritzbox Anleitung für Entwickler zum Login und SessionID

.

Jobs, Projekte, Angebote für Freiberufler, Selbstständig an Info@CodeDocu.de