Excel de calisirken baska bir dosya acmak

[TRUSA]

Arkadaslar merhaba,

Excelde calisirken bir buton yardimiyla herhangi bir dosyayi acmak istiyorum. Ama bu dosya xls dosyasi degil. Mesala pdf uzantili bir acrobat reader dosyasi yada doc uzantili bir word dosyasi veya jpg uzantili bir resim dosyasi gibi...

Bu konuda yardimci olabilirseniz sevinirim..

Yardimlariniz ve paylasimciliginiz icin tesekkurler..

 

[Mahmut Bayram]

pdf için örnek kod

Sub BrowsePDFDocument()
Dim strDocument As String
    strDocument = Application.GetOpenFilename("PDF Files,*.pdf,All Files,*.*", 1, "Open File", , False) ' get pdf document name
    If Len(strDocument) < 6 Then Exit Sub
    ActiveWorkbook.FollowHyperlink strDocument
End Sub

Şu kısmı dosya uzantısına göre değiştirip makroyu butona bağlayın.

strDocument = Application.GetOpenFilename("doc Files,*.doc,All Files,*.*", 1, "Open File", , False) ' get pdf document name

 

[ileriexcel]

Tüm uzantılar

Tüm uzantıları açmak için.

Sub test()
strDocument = Application.GetOpenFilename("All Files,*.*,All Files,*.*", 1, "Open File", , False)
End Sub

 

[Levent Menteşoğlu]

Forum içi arama motorunda shell yazarak arama yapmanızı öneririm.

 

[emrexcel123]

aç

arkadaşım altta bir örnek var inceler misin?

Sub ac()
shell "C:\Program Files\Microsoft Office\OFFICE11\excel.exe"
End Sub
ii akşamlar...

 

[TRUSA]

Arkadaslar yardimlariniz icin tesekkurler.
Sanirim ben beceremedim. Dosya acilacak olan pencere cikiyor ve oyle kaliyor.
"C:\Documents and Settings\RIK\Desktop\I can.doc" adresindeki word dosyasini acmak icin bir ornek ile yardimci olabilirseniz sevinirim.

Tesekkurler

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Shell "WINWORD.exe " & """C:\Documents and Settings\RIK\Desktop\I can.doc"""

 

[TRUSA]

Selam Arkadaslar,

Oncelikle hepinize cok tesekkur ederim. Tum kodlar isimi gordu. Son olarak anlayamadigim bir konuda da yardimci oluraniz sevinirim.

Word icin "WINWORD.exe " yazdigimiz yeri nereye gore yaziyoruz ? Boyle bir standartmi var ? Mesela jpeg, mpeg yada pdf dosyasi icin ne yazmaliyim ?

Ayrica sayin ileriexcel in tum uzantilar icin gondermis oldugu asagidaki koda acmak istedigim dosyanin yolunu nereye ilave etmeliyim ?

strDocument = Application.GetOpenFilename("All Files,*.*,All Files,*.*", 1, "Open File", , False)


Son olarak uzantisi ne olursa olsun acabilecegim bir kodu ornek bir yol ile birlikte yazma konusunda yardimci olabilirseniz sevinirim..

Her zamanki gibi yardimlariniz ve paylasimciliginiz icin tesekkurler..

 

[emrexcel123]

yol

Selam Arkadaslar,

Oncelikle hepinize cok tesekkur ederim. Tum kodlar isimi gordu. Son olarak anlayamadigim bir konuda da yardimci oluraniz sevinirim.

Word icin "WINWORD.exe " yazdigimiz yeri nereye gore yaziyoruz ? Boyle bir standartmi var ? Mesela jpeg, mpeg yada pdf dosyasi icin ne yazmaliyim ?

Ayrica sayin ileriexcel in tum uzantilar icin gondermis oldugu asagidaki koda acmak istedigim dosyanin yolunu nereye ilave etmeliyim ?

strDocument = Application.GetOpenFilename("All Files,*.*,All Files,*.*", 1, "Open File", , False)


Son olarak uzantisi ne olursa olsun acabilecegim bir kodu ornek bir yol ile birlikte yazma konusunda yardimci olabilirseniz sevinirim..

Her zamanki gibi yardimlariniz ve paylasimciliginiz icin tesekkurler..

arkadaşım tabi ki böyle bir standart yok bu senin bilgisayarındaki yoldur herhangi bir sabitleme yok yani ayrıca diğer dosyalar için uzantılarının ne olduğunu bilmen gerekir yani örneğin bitmap bir dosya için yolun sonuna şunu eklemen gerekir "..........yol.bmp" gibi yani sonuna uzantıyı koyman gerekebilir...

 

[Levent Menteşoğlu]

........Word icin "WINWORD.exe " yazdigimiz yeri nereye gore yaziyoruz ? Boyle bir standartmi var ? Mesela jpeg, mpeg yada pdf dosyasi icin ne yazmaliyim ?.......

WINWORD.exe, word yani .doc uzantılı dosyaları açan programın adıdır, her uzantıyı açacak programı ayrı ayrı belirtmeniz gerekir. Aşağıdaki linkteki çalışmamı incelemenizi öneririm, bu çalışmada her uzantıyı açacak program kendiliğinden tespit edilmektedir.

http://www.excel.web.tr/forumdisplay.php?f=134# Alt klasör ve seçilen klasöre ait dosyaları listeleme, açma

 

[TRUSA]

Degerli Arkadaslar,
Yardimlariniz icin tesekkur ederim.
Ozellikle sayin leventm belirtmis oldugun linkteki program icin ellerine saglik ve paylastigin icin cok tesekkur ederim..

 

[fenomen666]

ben açılır kutuda yer alan yazılardan birini seçtigimde bağlantılı olduğu word dosyası açılsın istiyorum. excell içindeki work sheet için yapabiliyorum ama wor dosyasını excel 2003 makrosu bulamadım yardımlarınızı bekliyorum

 

[enteresan]

Aşağıdaki gibi deneyin.

Shell "WINWORD.exe " & """C:\Documents and Settings\RIK\Desktop\I can.doc"""

Sevgili Levent Hocam, buradaki formülü şu şekilde kullanabilir miyiz.

Aynı Klasörde bulunan bir word dosyasını açmak istiyorum ama word dosyasının ismini formüle yazmak değil de hücredeki yazılı ismi hedef göstermek istiyorum. Yani şöyle,

Shell "WINWORD.exe " & """C:\Documents and Settings\RIK\Desktop\"H5""""

H5 hücresindeki isim ile aynı olan dosyayı aç yapabilir miyiz.... Saygılarımla..

 

[Levent Menteşoğlu]

Aşağıdaki kodu kullanırsanız daha iyi sonuç alırsınız.

CreateObject("Shell.Application").Open "C:\Documents and Settings\RIK\Desktop\" & [h5]

 

[enteresan]

Aşağıdaki kodu kullanırsanız daha iyi sonuç alırsınız.

CreateObject("Shell.Application").Open "C:\Documents and Settings\RIK\Desktop\" & [h5]

Hocam, ilginize teşekkür ederim ama çalıştıramadım.
Yapmak istediğim şu. Aynı klasörde bulunan bir excel listem var. Bu listede C sütununda isimler var ve o isimlere ait birer word dosyası var. A sütununda hangi hücrede işlem yaparsam veya çentik atarsam o satırdaki C sütunundaki yazan isme göre ilgili word dosyası açılsın istiyorum. Yani a8 hücresine çentik atarsam C8 hücresindeki yazan isme göre ilgili sayfa açılsın. Anlatamadıysam özür dilerim. Bu konuda yardımcı olursanız sevinirim. Saygılarımla,,,,

 

[Levent Menteşoğlu]

Sayfanın kod sayfasında worksheet_change olayına aşağıdaki kodu yazın.

.
.
if intersect(target,[a:a]) is nothing then exit sub
[LEFT]CreateObject("Shell.Application").Open "C:\Documents and Settings\RIK\Desktop\" & cells(target.row,"c")
.
.[/LEFT]

 

[enteresan]

Sayfanın kod sayfasında worksheet_change olayına aşağıdaki kodu yazın.

.
.
if intersect(target,[a:a]) is nothing then exit sub
[LEFT]CreateObject("Shell.Application").Open "C:\Documents and Settings\RIK\Desktop\" & cells(target.row,"c")
.
.[/LEFT]

Hocam müsadenizle dosyayı gönderiyorum. Bir gözatarsanız sevinirim. Ben yapamadım... Saygılarımla....

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin. Kodu sayfa1in kod sayfasına kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
CreateObject("Shell.Application").Open ThisWorkbook.Path & "\" & Cells(Target.Row, "c") & ".doc"
End Sub

 

[enteresan]

Aşağıdaki gibi deneyin. Kodu sayfa1in kod sayfasına kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
CreateObject("Shell.Application").Open ThisWorkbook.Path & "\" & Cells(Target.Row, "c") & ".doc"
End Sub

Evet, işte bu.... Çok teşekkür eder, saygılar sunarım. Hayırlı Ramazanlar olsun efendim....

 

[enteresan]

Levent Hocam, küçük bir sorun var. A sütununa çentik attığımda ilgili sayfayı açıyor. Daha sonra o çentiği kaldırdığımda yine o sayfayı açıyor. Yani hücrede işaret varsa açsa işaret yoksa açmasa diyorum. Çok şey mi istiyorum acaba... Saygılarımla..