Şurda güzel bir paylaşım var
******************
İlgilenenler şurayada bakabilir
******************
[vb]Option Compare Database
Option Explicit
Private Sub Command0_Click()
Dim rs As Recordset: Set rs = CurrentDb.OpenRecordset("table_name")
Dim line As Variant
For Each line In GetFileLines("file_address", True, True, False)
' Code depends on format of file.
' Example
rs.AddNew
rs!Field = Split(line, ",")(0)
|