✅ VBA - Özel İçe Aktarma Arayüzü Oluşturun

İçindekiler

Dosyaları içe aktaran kullanıcılar üzerinde, bunu yapmak için Excel özelliklerini kullanmalarını sağlamak yerine denetim sahibi olmayı mı tercih edersiniz? İçe aktarmada doğrulama veya değişiklik için içe aktarmalarınız üzerinde daha fazla kontrole mi ihtiyacınız var? Bunu yapmanın birden fazla yolu ve bir o kadar da gereksinim varyasyonu vardır, ancak işte başlamak için yapı taşlarından bazıları.

1. Aşağıdaki kodu bir modüle koyun ve çalıştırın

Genel Alt CustomImport()

'Değişkenleri Tanımlayın Dim ImportFile As String Dim ImportTitle As String Dim TabName As String Dim ControlFile As String


'Ortak iletişim kutusunu aç ve dosya adını al
ImportFile = Application.GetOpenFilename( _
"Excel Dosyaları, *.xls, Tüm Dosyalar, *.*")
ImportTitle = _
Mid(ImportFile, InStrRev(ImportFile, "\") + 1)
'Kontrol iptali tıklanmadı
ImportFile = "Yanlış" ise
Alt Çıkış
Bitir
'Önemli dosya
TabName = "MyCustomImport"
ControlFile = ActiveWorkbook.Name
Workbooks.Open Filename:=ImportFile
ActiveSheet.Name = SekmeAdı
E-Tablolar(TabName).Kopyala _
Önce:=Çalışma Kitapları (ControlFile).Tablolar(1)
Windows(ImportTitle).Etkinleştir
ActiveWorkbook.Close SaveChanges:=False
Windows(ControlFile).Etkinleştir

Alt Bitiş
Sidenote: Bu, *.xls, *.xlsx, *.xlsm, *.csv ve *.txt dosyaları için iyi çalışır. Kullanıcı dokunmadan önce içe aktarılan verileri değiştirmek için End Sub'dan önce kod ekleyebilir veya arayabilirsiniz.