Function TextDosyaAktar()
Dim fDialog As Office.FileDialog
Dim varFile As Variant
Dim DosyaSec As String
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
        With fDialog
                .AllowMultiSelect = True
                .Title = "Liste içeren csv dosyası seçin"
                .Filters.Clear
                .Filters.Add "Not Defteri Dosyaları", "*.csv"
If .Show = True Then
    For Each varFile In .SelectedItems
    DosyaSec = varFile
    DoCmd.TransferText transfertype:=acImportFixed, _
        specificationname:="Tabloya Aktarma", _
        tablename:="Friends", _
        filename:=DosyaSec, _
        hasfieldnames:=False
 
Next
 
If Err.Number = 2501 Then
MsgBox " Kullanıcı tarafından İptal edildi.", vbInformation, "Access-SQL"
Else
End If
      Else
         MsgBox "Dosya Seçme İşlemi İptal edildi."
      End If
   End With
 
MsgBox "Dosya aktarım işlemi başarıyla tamamlandı...", vbInformation, "Access-SQL"
End Function

Private Sub VeriAl_Click()
'******************************** BURASI GELISTIREBILIRSINIZ **********************************
Dim Uzanti, Dosya As String
For SWa = 1 To Me.Secilenler.ListCount - 1
Dosya = Me.Secilenler.Column(2, SWa)
Uzanti = Split(Dosya, ".")(1)
If Eval("'" & Uzanti & "' IN('txt', 'csv')") Then
        DoCmd.TransferText acImportFixed, "KayitliTextSablonu", "Gecici" & Uzanti, Dosya, False
        '****Alinan Text Dosya Verileri Currentdb.execute "INSERT INTO..... ile ilgili tablolara ekleme yapilabilir. *********
        '****Currentdb.execute "INSERT INTO A(......) SELECT * FROM Gecici" & Uzanti
ElseIf Eval("'" & Uzanti & "' IN('xlsx', 'xls', 'xml')") Then
        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12 & IIf(Uzanti = "xml", "Xml", vbNullString), "Gecici" & Uzanti, Dosya, False
         '****Alinan Excel Dosya Verileri Currentdb.execute "INSERT INTO..... ile ilgili tablolara ekleme yapilabilir. *********
 End If
 DoCmd.DeleteObject acTable, "Gecici" & Uzanti
 Next SWa
 
End Sub