Kitap Çagırma

[wipex]

Arkadaşlar UserFormdaki bi butondan hdd nin başka bir bölümünde bulunan bir kitabı açma kodunu
yani D:\Dosyalar\test.xls userformda butona tıkladıgımda bu kitabı açacak kodu
paylaşırsanız sevinirim

Şimdiden Teşekkürler...

 

[Terkanli]

Merhaba wipex,
Kodunuz aşağıda

Sub OpenExcelFile()
Dim vFile As Variant
vFile = Application.GetOpenFilename("Excel Files (*.xl*)," & "*.xl*", 1, "Select Excel File", "Open", False)
If TypeName(vFile) = "Boolean" Then
Exit Sub
End If
'Seçili dosyayı açıyor
Workbooks.Open vFile
'dosya yolunu sayfa3 te a1 hücresine kaydediyor. dosya yolunu kaydetmek istersen
'Range("Sayfa3!a1").Value = vFile
End Sub
Kolay gelsin

 

[wipex]

Sağol Terkanli kardeşim ama bu şekilde değil.

Userform Üzerinde 6,7 tane button var ve bu butonlara sabit çagıracakları Excel kitapları eklemek istiyorum.

mesela

1. buttonun D:\dosyalarım\deneme.xls kitabını açmasını istiyorum.

 

[halit3]

Sağol Terkanli kardeşim ama bu şekilde değil.

Userform Üzerinde 6,7 tane button var ve bu butonlara sabit çagıracakları Excel kitapları eklemek istiyorum.

mesela

1. buttonun D:\dosyalarım\deneme.xls kitabını açmasını istiyorum.

bunu denermisiniz.

Private Sub CommandButton1_Click()
Dim wb As Workbook
Dosya = "D:\dosyalarım\deneme.xls"
Set wb = Workbooks.Open(Dosya)
End Sub

 

[wipex]

cok sağolun arkadaşlar aradıgım kod bu...

 

[Terkanli]

Böyle açıklamalı yazsanıza :redface: kodunuz aşağıda;
2 adet commandbutton için hazırladım, kod çalışıyor.

CommandButton lara farklı isim verdiyseniz. değiştirin.
1. aşamada sayfa1 A1 hücresi boş ise, kitap yolu alacak
2. aşamada bu hücre dolu ise o hücre yolundaki kitabı bulup açacak.

Private Sub CommandButton1_Click()
Dim vFile As Variant
If Range("Sayfa1!a1").Value = "" Then
vFile = Application.GetOpenFilename("Excel Files (*.xl*)," & "*.xl*", 1, "Select Excel File", "Open", False)
Range("Sayfa1!a1").Value = vFile
If TypeName(vFile) = "Boolean" Then
Exit Sub
End If
Else
vFile = Range("Sayfa1!a1").Value
Workbooks.Open vFile
End If
End Sub
Private Sub CommandButton2_Click()
Dim vFile As Variant
If Range("Sayfa1!a2").Value = "" Then
vFile = Application.GetOpenFilename("Excel Files (*.xl*)," & "*.xl*", 1, "Select Excel File", "Open", False)
Range("Sayfa1!a2").Value = vFile
If TypeName(vFile) = "Boolean" Then
Exit Sub
End If
Else
vFile = Range("Sayfa1!a2").Value
Workbooks.Open vFile
End If
End Sub

Halit'in koduylada yapabilirsin.

 

[wipex]

Terkanli kardeşim aynı şekilde word belgesi actırmak icinde bir kod varmı.?
ve
Aynı Şekilde Klasör Açtırma ( Raporlar klasörünü aç butonuna tıklandıgında D:\Raporlar klasörünü açması gibi )

 

[wipex]

Yardım edebilecek varmı arkadaşlar...?

 

[Terkanli]

Selam Vipex
Eski bir dosyamdan kullandığım bir kodu veriyorum. salt okunur açılıyor. yeni bir şey öğrenirsem tekrar güncellerim. selamlar
Kodun aşağıda
Private Sub CommandButton3_Click()
Dim vFile As Variant
If Range("Sayfa1!a3").Value = "" Then
vFile = Application.GetOpenFilename("Word Dosya (*.do*)," & "*.do*", 1, "Word dosya seç", "Open", False)
Range("Sayfa1!a3").Value = vFile
If TypeName(vFile) = "Boolean" Then
Exit Sub
End If
Else
vFile = Range("Sayfa1!a3").Value

Dim appWd As Object
Set appWd = CreateObject("Word.Application")
appWd.Documents.Open Filename:=vFile
End If
End Sub

 

[halit3]

Alternatif olarak bu kodları denermisiniz.
klasörü ve bütün dosyaları açıyor.

Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Sub dosyayı_ac()
AD = "D:\dosyalarım\deneme.doc"
On Error Resume Next
If Dir(AD) = "" Then MkDir AD
WinExec "Explorer.exe " & AD, 1
End Sub

Sub Klasörü_ac()
AD = "D:\Raporlar"
On Error Resume Next
If Dir(AD) = "" Then MkDir AD
WinExec "Explorer.exe " & AD, 1
End Sub

 

[wipex]

Salt okunur açması kötü oldu ama emeğin için çok sağol Terkanli Kardeşim..

Halit kardeşim Bu kodları Terkanli kardeşimizin gönderdigi koddaki gibi
sayfa1 A1 hücresine yolu kaydetme gibi bir düzenleme yapılabilirmi?
Yardımcı olursan cok sevinirim.

Alternatif olarak bu kodları denermisiniz.
klasörü ve bütün dosyaları açıyor.



Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Sub dosyayı_ac()
AD = "D:\dosyalarım\deneme.doc"
On Error Resume Next
If Dir(AD) = "" Then MkDir AD
WinExec "Explorer.exe " & AD, 1
End Sub

Sub Klasörü_ac()
AD = "D:\Raporlar"
On Error Resume Next
If Dir(AD) = "" Then MkDir AD
WinExec "Explorer.exe " & AD, 1
End Sub

 

[halit3]

Salt okunur açması kötü oldu ama emeğin için çok sağol Terkanli Kardeşim..

Halit kardeşim Bu kodları Terkanli kardeşimizin gönderdigi koddaki gibi
sayfa1 A1 hücresine yolu kaydetme gibi bir düzenleme yapılabilirmi?
Yardımcı olursan cok sevinirim.

kod doc uzantılı dosyaları açar kendin diğer dosyalar için uzantısını değiştirebilirsin.

Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long

Private Sub CommandButton1_Click()
AD = Worksheets("Sayfa1").Range("A1").Value & ".doc"
On Error Resume Next
If Dir(AD) = "" Then MkDir AD
WinExec "Explorer.exe " & AD, 1
End Sub

Private Sub CommandButton2_Click()
AD = "D:\Raporlar"
On Error Resume Next
If Dir(AD) = "" Then MkDir AD
WinExec "Explorer.exe " & AD, 1
End Sub

 

[wipex]

Yardımlarınız için çok teşekkür ederim arkadaşlar...

 

[halit3]

Yardımlarınız için çok teşekkür ederim arkadaşlar...

iyi çalışmalar