Convert VCF to Excel

32Bits & 64 Bits Systems

Convert Free VCF to Excel 32Bits & 64Bits Systems

Convert Free VCF to Excel 32Bits & 64Bits Systems

Astazi va prezentam solutia pentru

Convert VCF in Excel
Convert Free VCF to Excel 32bits and 64bits

Romanian Version:

1.Creati un nou document de Excel dupa care CTRL + F11 pentru a deschide VB Editor(Visual Basic Editor).

2.Intrati in Sheet 1 si adaugati Codul in functie de Sistem 32Bits sau 64Bits (vezi mai jos codul);

3.Modificati calea catre fisierul VCF in “VCF-PATH-CALE”.

4.Executati Macro Codul apasand F5 sau click pe RUN.

5.Dupa care inchideti fereastra cu VisualBasic iar rezultatele vor aparea in Excel in Sheet

English Version:

1.Create a new Excel document Sheet after press CTRL+F11 to open VB Editor(Visual Basic Editor)
2.Go to Sheet 1 and add the code according to your System of 32Bits or 64Bits (see codes below)
3.Change the Path for the VCF file in”VCF-PATH-CALE”.
4.Execute the Macro Code pressing F5 or click the run button.
5.After executing the Code close the Visual Basic window and the results will appear in the Excel Sheet

Convert VCF to Excel 32 BITS:

‘Code Designed by www.digitalogy.ro
‘External Properties & Functions Declaration
Private Declare Function ShellExecute Lib “shell32.dll” Alias “ShellExecuteA” (ByVal hWnd As Long, ByVal Operation As String, ByVal Filename As String, Optional ByVal Parameters As String, Optional ByVal Directory As String, Optional ByVal WindowStyle As Long = vbMinimizedFocus) As Long
Private Sub VCF_To_Excel()

‘.vcf File to Excel Conversion code
‘Assign the Path of the VCF file here
VCF_File_Path = ThisWorkbook.Path & “\VCF-PATH-CALE

‘Open .vcf File in Excel (read mode)
intfilenum1 = FreeFile
Open VCF_File_Path For Input As intfilenum1
icol = 0
irow = 1

‘Read .vcf File line by line till End Of File
While Not VBA.EOF(intfilenum1)
Line Input #intfilenum1, filetext

‘If VCF file has Profile Photo Information, Skip/Enable as per your need
If VBA.InStr(1, filetext, “PHOTO;”, vbTextCompare) > 0 Or VBA.Mid(filetext, 1, 1) = ” ” Then GoTo Read_Next_Line:

‘Identify beginning of vCard Contact Information
If VBA.Trim(VBA.UCase(filetext)) = VBA.Trim(“BEGIN:VCARD”) Then
irow = irow + 1
icol = 0
End If

‘Write Contact Information to Excel Sheet
icol = icol + 1
ThisWorkbook.Sheets(1).Cells(irow, icol).Select
ThisWorkbook.Sheets(1).Cells(irow, icol) = filetext

Read_Next_Line:
Wend
MsgBox “Conversie REALIZATA. Multumiri DIGITALOGY.RO”
ShellExecute 0, “Open”, “https://www.digitalogy.ro/”
Close intfilenum1

End_Process:
MsgBox “VCF to Excel Convertion Complete.THANKX DIGITALOGY.RO”
End Sub

Convert VCF to Excel 64 BITS:

‘Code Designed by www.digitalogy.ro
‘External Properties & Functions Declaration
Private Declare PtrSafe Function ShellExecute Lib “shell32.dll” Alias “ShellExecuteA” (ByVal hWnd As Long, ByVal Operation As String, ByVal Filename As String, Optional ByVal Parameters As String, Optional ByVal Directory As String, Optional ByVal WindowStyle As LongPtr = vbMinimizedFocus) As LongPtr
Private Sub VCF_To_Excel()

‘.vcf File to Excel Conversion code
‘Assign the Path of the VCF file here
VCF_File_Path = ThisWorkbook.Path & “\VCF-PATH-CALE

‘Open .vcf File in Excel (read mode)
intfilenum1 = FreeFile
Open VCF_File_Path For Input As intfilenum1
icol = 0
irow = 1

‘Read .vcf File line by line till End Of File
While Not VBA.EOF(intfilenum1)
Line Input #intfilenum1, filetext

‘If VCF file has Profile Photo Information, Skip/Enable as per your need
If VBA.InStr(1, filetext, “PHOTO;”, vbTextCompare) > 0 Or VBA.Mid(filetext, 1, 1) = ” ” Then GoTo Read_Next_Line:

‘Identify beginning of vCard Contact Information
If VBA.Trim(VBA.UCase(filetext)) = VBA.Trim(“BEGIN:VCARD”) Then
irow = irow + 1
icol = 0
End If

‘Write Contact Information to Excel Sheet
icol = icol + 1
ThisWorkbook.Sheets(1).Cells(irow, icol).Select
ThisWorkbook.Sheets(1).Cells(irow, icol) = filetext

Read_Next_Line:
Wend
MsgBox “Conversie REALIZATA. Multumiri DIGITALOGY.RO”
ShellExecute 0, “Open”, “https://www.digitalogy.ro/”
Close intfilenum1

End_Process:
MsgBox “VCF to Excel Convertion Complete.THANKX DIGITALOGY.RO”
End Sub

Daca intampinati probleme nu ezitati sa ne contactati !
If you have problems don’t hesitate to contact us !

Pin It

Add comment