yeni konu açmama gerek yok konu devamı
kodlar böyle;
rivate Sub BtnCSVAl_Click()
Dim DosyaBul As Object
Dim vrtSelectedItem As Variant
Dim tblAdi, Tur As String
Set DosyaBul = Application.FileDialog(3)
With DosyaBul
.AllowMultiSelect = True
.ButtonName = "Dosya Seç"
.InitialFileName = CurrentProject.Path
.Filters.Clear
.Filters.Add "CSV Dosyası", "*.xls"
' .Filters.Add "Excel", "*.xls,*.xlsx,*.xlsm,*.csv"
.Filters.Add "Hepsi", "*.*"
.FilterIndex = 0
.Title = "Seç..."
If .Show = True Then
For Each vrtSelectedItem In .SelectedItems
DoCmd.TransferText acImportDelim, "CSVAktar", "Book1", vrtSelectedItem, True, ""
Next vrtSelectedItem
MsgBox "Kopyalama Bitti"
Else
MsgBox "Kopyalama iptal edildi"
Exit Sub
End If
End With
End Sub
------------------
.xls,*.xlsx,*.xlsm bu uzantıları almam gerekiyor
ama bu kodlar sadece *.csv uzantı çalıştırıyor ve kolonların ver türleri tek metin, diğer veri türler sayı tarih para birimi gibi onlar ne olacak
örnek ekleyecektim ama eklenecek yer yok ekleyemedim
Son Düzenleme: 31/10/2020, 20:53, Düzenleyen: hakkih.