+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Gönderilecek Dizini Seçerek Gönderme (/konu-gonderilecek-dizini-secerek-gonderme.html)
Gönderilecek Dizini Seçerek Gönderme - adalet20 - 06/09/2024
kolay gelsin arkadaşlar,
eklediğim örnekte liste kutusundaki veriyi excel'e gönderiyorum.
ben göndereceğim alanı açılan kutudan seçip seçtiğim yere göndermesini istiyorum,
yapılabilir mi?
RE: Gönderilecek Dizini Seçerek Gönderme - onur_can - 06/09/2024
Merhaba,
sorunuz tam anlaşılmıyor, şimdi excele göndereceğiniz yeri açılan kutudan tanımlıyorsunuz doğru mu?
zaten halihazıda bunu yapmışsınız. Açılan kutuda başka değerlerde mi olacak? bu değerlerden istediğinizi seçip mi göndereceksiniz yoksa ben açılan kutuyu açtığımda filedialog penceresi açılsın oradan dosya yolunu seçipte kaydedeyim mi diyorsunuz??? Hangisi?
RE: Gönderilecek Dizini Seçerek Gönderme - adalet20 - 06/09/2024
ben kaydedilecek yerleri belirleyeceğim (masaüstü, belgelerim, yada indirilenler klasörü) açılan kutuya da tablodan getirdeceğim,
excel e kaydederken açılan kutudan seçtiğim yere kaydetmesini istiyorum,
RE: Gönderilecek Dizini Seçerek Gönderme - atoykan - 06/09/2024
Merhaba Sayın @adalet20
Sorunuzun cevabı : "Evet yapılabilir."
Kodunuzda excelin kayıt edileceği yeri ve dosya adını belirleyen kısım:
vbBook.SaveAs "C:\Users\" & Environ("username") & "\Documents" & "\Depo Ürün Stok Listesi-" & Date & ".xlsx"Burada Dosya yolu string olarak belirlenmekte olup comboboxlarınızın değerini StrFilePath gibi bir değişkene istediğiniz gibi atayarak bu string ifade ile dosya yolunu kullanabilirsiniz. Örneğin 2 combobox olsun ve bunlardaki değerlere göre seçerek kayıt etmek istediğinizi düşünelim. Comboboxların verilerini istediğiniz belirleyebildiğinizi düşünüyorum örneği basit kılmak için sadece bireer verisi olduğunu düşünelim ve combobox1 değeri C:\Users\" & Environ("username") comboxo2 değeri de "Documents" & "\Depo Ürün Stok Listesi-" olsun. Bu durumda
Dim StrFilePath as String
StrFilePath = Combobox1.Text & "\" & Combobox2.Text
vbBook.SaveAs StrFilePath & Date & ".xlsx"RE: Gönderilecek Dizini Seçerek Gönderme - adalet20 - 09/09/2024
sn atoykan ve sn onurcan çok teşekkür ederim,