kapalı dosyadan veri almak hakkın

[hakandurakoglu]

Ustalarım saygılar,

Yapmak istediğimi kısa ve öz anlatmak istiyorum. TextBox1'in verisini kapalı olan başka bir workbook'tan alabilir miyim( veya combobox rowsource vb.)

İlgilniz için şimdiden çok ama çok teşekkürler.

 

[efeboral]

Private Sub CommandButton1_Click()
Dosya = Application.GetOpenFilename
Set yeni = New Excel.Application
yeni.Visible = False
On Error Resume Next
Set dosyaadi = yeni.Workbooks.Open(Dosya).Sheets(1)
TextBox1 = dosyaadi.[buraya kapalı dosyadan alıcağınız hücreyi girin]
yeni.Workbooks.Open(Dosya).Close SaveChanges:=True
Set yeni = Nothing
End Sub

 

[Haluk]

Spesifik olarak sorun bu ise o zaman, Excel4 makrosu kullanın...

Gizli de olsa kapalı dosyayı açıp da veriyi alıp, sonra dosyayı kapatmaktan daha efektif çalışır....

Arama motoru ile Excel4 makrosu ile kapalı dosyadan veri almak ile ilgili örneklere ulaşabilirsiniz.

 

[hakandurakoglu]

Private Sub CommandButton1_Click()
Dosya = Application.GetOpenFilename
Set yeni = New Excel.Application
yeni.Visible = False
On Error Resume Next
Set dosyaadi = yeni.Workbooks.Open(Dosya).Sheets(1)
TextBox1 = dosyaadi.[buraya kapalı dosyadan alıcağınız hücreyi girin]
yeni.Workbooks.Open(Dosya).Close SaveChanges:=True
Set yeni = Nothing
End Sub

Sevgili efeboral,

Öncelikle dün akşam ve bugünkü ilginiz için çok teşekkürler.

Sizden bir ricam daha olacaktı.

Örnekli olarak yukarıdaki kodları uygulayabilir misiniz.

Örneğin TExtBox1 değerini c:\veri.xls isimli dosyanın veri isimli sheet'inden a1 hücresi olarak alsın.

Uygulamalı daha iyi anlayabiliyorum.

Şimdiden çok teşekkürler.

 

[Haluk]

Bir "offff...." çeksem karşıki dağlara ....

 

[hakandurakoglu]

Bir "offff...." çeksem karşıkı dağlara ....

Haluk bey merhabalar,

Sıkıntı verdim acaba sizlere?
Yeni olduğum için bu tarz isteklerim oluyor, kusuruma bakmayın..

 

[Levent Menteşoğlu]

Yani Sn Haluk bey aşağıdaki gibi bir kod kullanmanızı öneriyor.


textbox1= ExecuteExcel4Macro("'C:\[veri.xls]veri'!R1C1")

 

[Haluk]

Hakan bey merhaba,

Sıkıntı konusu şu ....

Şahsınızla ilgisi yok, foruma yeni üye olan hemen hemen bütün herkesin yaptığı şey...... araştırma, çabalama yapmadan ......... "yapamadım, bulamadım....yardım edin lütfen" ....... tarzı mesajlar.

Belki de problem bende.... o yüzden öylesine bir "offf..." çektim.

Keyfinize bakın, iyi akşamlar.

 

[efeboral]

Dosya ekte.

 

[hakandurakoglu]

Hakan bey merhaba,

Sıkıntı konusu şu ....

Şahsınızla ilgisi yok, foruma yeni üye olan hemen hemen bütün herkesin yaptığı şey...... araştırma, çabalama yapmadan ......... "yapamadım, bulamadım....yardım edin lütfen" tarzı mesajlar.

Belki de problem bende.... o yüzden öylesine bir "offf..." çektim.

Keyfinize bakın, iyi akşamlar.

Haluk Bey tekrar merhabalar,

Gün içerisinde saatlerdir forum içerisinde çeşitli aramalar yaptım, birçok konu ile ilgili faydalı bilgiler bulup uygulama imkanım oldu. Ancak bu konuda tam olarak anlaşılabilir bir veriye ulaşamadığımdan detay istedim.

Size de iyi akşamlar.

 

[hakandurakoglu]

Dosya ekte.

Efeboral çok teşekkürler.
iyi akşamlar.

 

[efeboral]

Umarım işinizi görmüştür.Bu arada ekteki dosyayı Levent Beyin bir çalışmasından alınmıştır hatırlatma gereği duydum.

 

[hakandurakoglu]

Umarım işinizi görmüştür.Bu arada ekteki dosyayı Levent Beyin bir çalışmasından alınmıştır hatırlatma gereği duydum.

çok teşekkürler hem levent bey'e hem de size

 

[Levent Menteşoğlu]

Rica ederim. Peki Haluk beyin önerisi üzerine önerdiğim küçük kodu denedinizmi? Bu kod dosyayı açma gereğini ortadan kaldırır.

textbox1= ExecuteExcel4Macro("'C:\[veri.xls]veri'!R1C1")

Not:Sn efeboral, benim bir örneğimden aldığınızı belirttiğiniz kodun mantığını foruma sunan değerli dostum Sn Haluk beydir, bunuda belirtelim.

 

[Haluk]

Not:Sn efeboral, benim bir örneğimden aldığınızı belirttiğiniz kodun mantığını foruma sunan değerli dostum Sn Haluk beydir, bunuda belirtelim.

Teşekkürler, dostum Levent.

Ben de bu konuyu öğrendiğim J. Walkenbach'a buradan teşekkür edeyim bari ... :mrgreen:...

 

[Levent Menteşoğlu]

Ben de bu konuyu öğrendiğim J. Walkenbach'a buradan teşekkür edeyim bari ...

Bende bu sinsile nasıl devam edecek bakalım diyordum.

 

[efeboral]

Not:Sn efeboral, benim bir örneğimden aldığınızı belirttiğiniz kodun mantığını foruma sunan değerli dostum Sn Haluk beydir, bunuda belirtelim.

Teşekkürler, dostum Levent.

Ben de bu konuyu öğrendiğim J. Walkenbach'a buradan teşekkür edeyim bari ... :mrgreen:...

Sayın hakandurakoglu, benim Levent Bey den aldığım örneği aslında foruma Haluk bey sunmuş ben hem kendim hemde sizin adınıza önce Haluk beye sonrada Levent beye teşekkür ederim.

 

[hakandurakoglu]

Mükemmel Excel4 hem yazması hemkullanması kolay.
İkinizde de çok teşekkürler.

Bu arada forum tek kelime ile muhteşem. Bulunayamacak bilgi yok. Bilgilerin birikmesi ile microsoft'un dahi sağlayamayacağı bir hazine oluşmuş.