Você já quis importar detalhes de contato de dados VCF para uma planilha do Excel? Siga este artigo e crie seu próprio leitor VCF que importaria dados de seus arquivos VCF para planilhas do Excel
Faça o download
Se você quiser start para usar o software o mais rápido possível, então você pode:
Caso contrário, se você quiser DIY, pode ler o conteúdo abaixo.
Vamos preparar a GUI
Vamos preparar a GUI para nosso aplicativo leitor de VCF. Na Sheet1 temos que criar um campo que conterá o caminho completo do nosso arquivo VCF. Em vez de expandir a largura da célula, mescle as células para criar esse campo. Para permitir que os usuários selecionem o arquivo VCF, vamos adicionar um botão “Browse” à planilha. Precisamos de um botão adicional para permitir que os usuários importem os dados VCF. Vamos nomear este botão como “Importar”.
A Sheet1 agora ficará assim
Vamos preparar o banco de dados
Estaremos usando Sheet2 como banco de dados. Tudo o que você precisa fazer é criar cabeçalhos de coluna apropriados. Para este exemplo, vou importar Nome e Organização do VCF. Portanto, adicionei cabeçalhos de coluna “Nome” na Coluna A e “Organização” na Coluna B.
Sheet2 agora ficará assim
Vamos torná-lo funcional
Agora já desenvolvemos o Front-End da nossa ferramenta e nosso próximo passo é torná-la funcional adicionando scripts. Abra o editor VBA e no Module1 cole o script abaixo.
Agora volte para Sheet1 e adicione o Sub “pickvcf” ao botão “Browse”. Clique com o botão direito do mouse no botão “Importar” e atribua a macro “importvcf” a ele. Salve o arquivo como arquivo habilitado para macro e pronto. Agora você desenvolveu um leitor VCF.
vamos testar
Clique no botão "Procurar" para selecionar seu arquivo VCF. Assim que você pressionar Ok na janela File Browse, poderá ver o caminho completo do arquivo selecionado aparecendo na Sheet1. Agora clique no botão “Importar” e você verá imediatamente as informações de Nome e Organização do Contato aparecendo na Planilha2.
Como funciona?
Este script contém dois Subs. O sub “pickvcf” permite que os usuários naveguem e selecionem seus arquivos VCF e o sub “importvcf” permite ler e importar dados do VCF para o arquivo Excel.
Modifique-o
A partir de agora, o script importa informações de nome e organização do arquivo VCF. Você pode facilmente modificar o script para importar outras informações como endereço, telefone, fax e e-mail. Você também pode ajustar o script para ler vários arquivos VCF em uma pasta e importá-los em um processo em lote.
Este script funciona bem se o seu Excel não estiver corrompido. No entanto, se você tiver um arquivo Excel corrompido e deseja repará-lo, você pode usar ferramentas de recuperação do Excel, como DataNumen Excel Repair.
Script
Sub pickvcf()
Dim fd As Office.FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.AllowMultiSelect = False
.Title = "Please select the file."
.Filters.Clear
.Filters.Add "VCF", "*.vcf"
If .Show = True Then
txtFileName = .SelectedItems(1)
Sheets("Sheet1").Range("F8").Value = txtFileName
End If
End With
End Sub
Sub Importvcf()
Dim fileName As String, textData As String, textRow As String, fileNo As Integer
fileName = Sheets("Sheet1").Range("F8").Value
fileNo = FreeFile
r = 2
Open fileName For Input As #fileNo
Do While Not EOF(fileNo)
Line Input #fileNo, textRow
If Left(textRow, 3) = "FN:" Then
Sheets("Sheet2").Range("A" & r).Value = Replace(textRow, "FN:", "")
End If
If Left(textRow, 4) = "ORG:" Then
Sheets("Sheet2").Range("B" & r).Value = Replace(textRow, "ORG:", "")
End If
Loop
Close #fileNo
End Sub
Introdução do autor:
Nick Vipond é um especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo documento de reparação e produtos de software de recuperação do Outlook. Para mais informações visite www.datanumen.com