Personel & Zimmet Takip Programı (KZT-v.5) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1676.0

Gönderen Konu: [Çözüldü] Açılacak Dosyayı Kullanıcıya Sormak  (Okunma sayısı 8324 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
Merhabalar,
Programda veri almamız gereken bir dosya olsun ama bu dosyanın hangi adreste olduğunu kullanıcı kendisi seçsin.
Şöyleki Belgelerim Klasörü içinde "lise" isimli bir excel dosyamız olsun. Hazırladığımız  herhangi bir excel dosyasında (adı "ayıklama" olsun) programımızı çalıştırdığımızda, kullanıcıya verileri alacağı adresi soran bir menü çıksa ve kullanıcı belgelerim klasörü içindeki "lise" isimli dosyalı saçip tamam tuşuna bastıktan sonra lise isimli dosya açılsa ve açılan ilk safyayı kopyalayıp programın kayıtlı olduğu "ayıklama" isimli dosyanın Sayfa1 ine yapıştırıp "lise" lise isimli dosyayı kapatsa,
Bunu kodla yazabilirmiyiz.
teşekkürler
« Son Düzenleme: 16 Nisan 2010, 16:24:16 Gönderen: Bülent Öztürk »

Çevrimdışı qbilay06

  • Excelce Onbaşı
  • **
  • İleti: 60
  • Puan +0/-0
  • Cinsiyet: Bay
  • Ad Soyad: kubilay
  • Mesleğiniz: memur
Ynt: Açılacak Dosyayı Kullanıcıya Sormak
« Yanıtla #1 : 16 Nisan 2010, 11:22:28 »
Merhaba,
Amacınız tam olarak istenilen herhangi bir excel dosyasından veri almak ise , AD TANIMLAMA işlemi ile sanırım işiniz hallolacaktır.
LİSE dosyanızda A sütunu İSİM sütunu diye düşünürsek, AD TANIMLAMA ile LİSE dosyasının İSİM sütununa bir etiket verip kullanabiliyorsunuz. Verilen etiket " DENEME" olsun.Herhangi bir excel sayfasında iken DENEME olarak yazdığınız zaman, excel işlemi otomatik olarak LİSE sayfasının A sutünu olarak algılıyor.
Umarım isteğinize bir ışık tutabilmişimdir. Eğer isteğiniz, bu doğrultuda ise örnek dosyada ekleyebilirim. Fakat LİSE dosyası açılacak,kopylayacak sonra kapanacak kısımlarına dair bir çözüm üretemeyeceğim  :). O konuda üstadlara iş düşüyor.
Saygılar...
ŞİMDİyi çalan 2 hırsız var :
1-Geçmişe olan pişmanlıklar ,
2-Geleceğe olan kaygılar...
ŞİMDİyi çaldırmamak için...

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
Ynt: Açılacak Dosyayı Kullanıcıya Sormak
« Yanıtla #2 : 16 Nisan 2010, 11:25:25 »
qbilay bey teşekkür ederim. Tam istediğim bu değil.
LİSE isimli dosya herzaman aynı klasör içinde bulunmayabilir bu nedenle kullanıcıya sormak istiyorum.

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1411
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • Doğum Yılınız: 1976
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: 2016
Ynt: Açılacak Dosyayı Kullanıcıya Sormak
« Yanıtla #3 : 16 Nisan 2010, 11:44:44 »
Merhaba.

Şöyle bir çözüm işinize yarar mı?

Kod: [Seç]
Sub Excelce_DosyaAc_Veri_Al()
dosya = Application.Dialogs(xlDialogOpen).Show
Application.DisplayAlerts = False
If dosya = True Then
dosya_adi = ActiveWorkbook.Name
Cells.Copy
ThisWorkbook.Activate
Range("A1").PasteSpecial (xlPasteAll)
Workbooks(dosya_adi).Close False
End If
Application.DisplayAlerts = True
End Sub
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
Ynt: Açılacak Dosyayı Kullanıcıya Sormak
« Yanıtla #4 : 16 Nisan 2010, 11:59:53 »
Tamamdır üstat
teşekkür ederim.

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: Açılacak Dosyayı Kullanıcıya Sormak
« Yanıtla #5 : 16 Nisan 2010, 12:03:34 »
Ekli dosya ile ado ile dosya kapalı iken veri alınıyor.
Yalnız veri alına dosyada sayfa1 den alınıyor.
Başka sayfadan veri almak için kodda sayfa1$ yazan yeri değiştiriniz.
Dosya ektedir.
Kod: [Seç]
Sub kapali_veri_al()
Dim dosya, conn As Object, rs As Object
ChDir (CreateObject("wscript.shell").SpecialFolders(16))
dosya = Application.GetOpenFilename(filefilter:="Excel Dosyaları,*.xls", Title:="Dosya Seçiniz, evrengizlen@hotmail.com")
If dosya = False Then Exit Sub
Set conn = CreateObject("AdoDb.Connection")
Set rs = CreateObject("AdoDb.Recordset")
Sheets("Sayfa1").Select
Cells.ClearContents
conn.Open "Provider=microsoft.jet.oledb.4.0;data source=" & dosya & ";extended properties=""excel 8.0;hdr=No"""
On Error GoTo hata
rs.Open "Select * from [Sayfa1$];", conn, 1, 1
On Error GoTo 0
Range("A1").CopyFromRecordset rs
MsgBox "Dış veri alındı" & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
Exit Sub
hata:
MsgBox "Veri aldığınız dosyada sayfa1 isimli sayfa yoktur.", vbCritical, "UYARI"
Set rs = Nothing
Set conn = Nothing
End Sub

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
Ynt: Açılacak Dosyayı Kullanıcıya Sormak
« Yanıtla #6 : 16 Nisan 2010, 16:12:33 »
Evren üstad teşekkürler