Modifiez le code dans l'étape 2 comme suit pour démontrer en utilisant les onglets pour délimiter les champs écrites dans un fichier texte, qui peut ensuite être importé dans une base de données.
Private Sub Command1_Click ()
Column1 Dim, column2, column3, tabfile As String
tabfile = "c: testfile.txt"
column1 = "Prénom"
column2 = "Nom de famille"
column3 = "Date d'anniversaire"
Ouvrir tabfile Pour la sortie n ° 1 Comme
Imprimer # 1, onglet column1- (20) - Tab column2- (40) - column3
Close # 1
Ouvrir tabfile Pour l'entrée Comme # 1
tabfile = entrée (LOF (1), 1)
Debug.Print tabfile
Close # 1
End Sub
(Voir 3 références)