textbox'a yazdığım dosyayı açmak

[mrt]

Selamlar,

textbox1'e yazdığım dosya yı nasıl açarım.

textbox1'e siparisler yazdığımda:
c:\nakiller\siparisler.xls dosyası açılsın ve aktif olsun.


benim yazdığım kod hatalı;

private sub commandbutton4_click()
workbooks.open filename:=c:\nakiller\textbox1.value
end sub

 

[Recep İpek]

private sub commandbutton4_click()
dosya=Trim(Textbox1.value)
workbooks.open filename:=dosya
end sub

şeklinde deneyebilirmisiniz.

 

[Kemal Demir]

Private Sub CommandButton4_Click()
dosya = Application.GetOpenFilename
TextBox1 = dosya
Workbooks.Open TextBox1
End Sub

Gerçi Sn.Ripek Yazmıs ama.Bende yazmak istedim.

 

[mrt]

path nasıl tanılarım

Selamlar,

Üstadlar path tanımını nereye yazmam gerekir.

 

[Kemal Demir]

Yukarıdaki Kod'un içerdiği küçük bir ornek mevcut.İnceleyiniz.Aklınıza Birşey takılırsa elimden geldiğince yardımcı olurum.

Path derken soyle soyleyebilirim.Dosyanın bulundugu klasor'u tanımlamada kullanılır.Ama dedğim gibi biraz daha acabilirmisiniz.

 

[mrt]

path ??

Yukarıdaki Kod'un içerdiği küçük bir ornek mevcut.İnceleyiniz.Aklınıza Birşey takılırsa elimden geldiğince yardımcı olurum.

Path derken soyle soyleyebilirim.Dosyanın bulundugu klasor'u tanımlamada kullanılır.Ama dedğim gibi biraz daha acabilirmisiniz.

Selamlar,

açmak istediğim dosyalar

C:\siparis klasörünün içinde

textbox1'e takip yazdığımda.

c:\siparis\takip.xls otomatik olarak açılsın istiyorum.

ben AÇ penceresinden dosya seçmeyeyim.

 

[mrt]

dosya açmak

Selamlar,

Dosya açmak işlemini aşağıdaki kod ile çözdüm.

Açtığım dosyayı nasıl aktif yaparım.

Private Sub CommandButton4_Click()

Workbooks.Open Filename:="C:\siparis\" & TextBox1.Value

End Sub

 

[Recep İpek]

Workbooks(TextBox1.Value).Activate ile deneyiniz.

 

[Kemal Demir]

Merhaba,

Eklemiş oldugu Dosyada Dosyayı kendınız seçtirebiliyorsunuz ve seçtiğiniz dosya zaten aktif olmaktadır.

Eğer ornek dosya oyle değilse yanlıs yapmıs olabilirim.ama Dosyayı denedim.Neyse Sn.ripek gerekli cozumu sunmus.