Çalışma sayfasında excel dosyası açma

[emrebengul]

merhaba arkadaşlar

Bilgisayardaki herhangi bir excel dosyasını makro yardımı ile çalışma yaptığın sayfaya aktarma ihtimali var mı?
Örneğin bir veri dosyası var bilgisayarda onu çalışma yapacağımız sayfada açmak istiyoruz.
Şimdiden teşekkür ederim.

 

[hasankardas]

Forumda "kapalı dosyadan veri alma" şeklinde aratırsanız örnek çalışmalar var.

 

[emrebengul]

merhaba Hasan Bey
baktım ama bulamadım çünkü ben normal bir excel dosyasını çekmek istiyorum. Baktığım kodlarda excel çalışma adını tanımlamışlar bir türlü bulamadım.

 

[hasankardas]

Kapalı Dosyadan Koşullu Veri Çekme

Değerli Forum üyeleri Açık kitap isimli çalışma kitabımın B sütununda yazılı olan TC kimlik numaralarını Kapalı kitapta bulup buradaki ilgili TC kimlik numaralarına ait tarihleri Açık kitaptaki TC kimlik numaralarının karşısına Tarih2 sütununa getirip, Tarih 1 ve Tarih 2 sütunlarındaki...

www.excel.web.tr

Bu konuda 2.ci mesajda sayfa tanımlaması yapılmış..

 

[emrebengul]

Hasan Bey öncelikle yardımlarınız için teşekkür ederim.
Ama galiba anlatamadım kusura bakmayın. Örneğin; İndirilenler dosyasında bir excel verisi var ben o dosyayı seçip excel sayfasında açmak istiyorum. Yani isim veya sayfa tanımlaması olmasına gerek yok. Çünkü gönderdiğiniz linkte bir açık bir kapalı dosya olarak adlandırmışlar ondan dolayı arkadaşların paylaşmış olduğu makro işimi çözmedi. Tekrar teşekkür ederim. inşAllah anlatabilmişimdir.

 

[Korhan Ayhan]

Bir dosyayı açtığınızda ayrı bir dosya olarak açılır. Çalıştığınız sayfadan erişim için köprü metodunu kullanarak köprüye tıkladığınızda dosya açılabilir.

 

[Necdet]

Yani bir dosya açıkken başka bir dosyayı açmak istiyorsunuz, doğru mu anladım?

 

[emrebengul]

Evet Necdet Bey. Sayfa1de butona bastığımda diğer dosyayı sayfa2de açmasını istiyorum

 

[Necdet]

Merhaba,

Hangi sayfadaysanız farketmez, dosya açılır. Ama siz illa sayfa belirtiyorsunuz.
Sayfa1 deki butona bastığınızda sayfa2 ye geçerseniz ve ilgili dosyayı açarsınız
Sanırım bu isteğinizi karşılar.
Bunun için de vba komutlarından Workbooks Open olayını inceleyin derim.

 

[emrebengul]

İnceledim ama maalesef işin içinden çıkamadım Necdet Bey

 

[Necdet]

Basit bir kod

Sub DosyaAc()

Dim wb As Workbook
Dim dosya As String
Dim yol As String

yol = "C:\"
dosya = "xxx.xls"

Set wb = Workbooks.Open(yol & dosya)

End Sub

 

[emrebengul]

merhaba Necdet Bey
böyle bir hata veriyor.

 

[Necdet]

e normal değil mi? adı üzerinde dosyayı bulamadım diyor.
siz kendi dosyanızın yolunu ve adını yazacaksınız.

 

[emrebengul]

öyle denedim hatta sadece C dosyası yaptım aynı hatayı veriyor.

 

[Korhan Ayhan]

Necdet beyin önerdiği kodda kalın fontlu kısımlara açmak istediğiniz dosyanızın bulunduğu klasörü ve dosya adını yazmalısınız. Sonrasında kodun sorun çıkarmaması gerekir.

yol = "C:\"
dosya = "xxx.xls"

 

[emrebengul]

Korhan Bey merhaba
Bakın şöyle bir kod var elimde. ondan dolayı soruyorum. aşağıdaki kodda kopyala ve yapıştırma yeri seçmek istemiyorum. Otomotik olarak istediğim herhangi bir dosyayı sayfa2ye aktarmasını istiyorum.
teşekkür ederim.

Sub Düğme1_Tıkla()
Dim ilk, ikinci As Workbook
Dim Baslik As String
Dim Hucre1, Hucre2 As Range
Set ilk = Application.ActiveWorkbook
Baslik = "https://emrebengul.com"
With Application.FileDialog(msoFileDialogOpen)
    .Filters.Clear
    .Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa"
    .AllowMultiSelect = False
    .Show
    If .SelectedItems.Count > 0 Then
        Application.Workbooks.Open .SelectedItems(1)
        Set ikinci = Application.ActiveWorkbook
        Set Hucre1 = Application.InputBox(prompt:="Kopyalamak İstediğiniz Hücreleri Seçin", Title:=Baslik, Default:="A1:EA700", Type:=8)
        ilk.Activate
        Set Hucre2 = Application.InputBox(prompt:="Yapıştıracağınız Yeri Seçin", Title:=Baslik, Default:=" B1", Type:=8)
        Hucre1.Copy Hucre2
        Hucre2.CurrentRegion.EntireColumn.AutoFit
        ikinci.Close False
    End If
End With
End Sub

 

[Korhan Ayhan]

Sanıyorum kullandığınız ifadelerden ötürü karmaşıklık oluşuyor.

Benim anladığım...

Aktif dosyadayken bir butona basarak seçeceğiniz başka bir dosyadaki bir sayfadaki alanı aktif dosyada başka bir sayfaya aktarmak istiyorsunuz...

 

[emrebengul]

evet doğru söylüyorsunuz aynı dediğiniz gibi Korhan Bey

 

[Korhan Ayhan]

Paylaştığınız kod bu işlem için yeterli olmuyor mu?

 

[emrebengul]

Oluyor ama farklı bir dosya seçerken tekrar girmem gerekiyor A1:E76 şeklinde omdan dolayı direk dosyayı seçtiğimizde açarsa çok daha iyi olur.