Excelde Word Dosyası Açmak
-
Merhabalar;
Şöyle bir sorum var. Excelde Visual basic kodunu butona bağlayıp dosya nasıl açtırabilirim. dosyadan kastım word veya txt dosyası. içeri veri aktarımı değil tıklayınca bilgisayar o dosyayı açacak.
misalen masaüstü/proje/dosyabu.txt veya dosyabu.docs şeklinde bi dosyam var. excel dosyasıyla aynı konumdalar. excelde butona tıklayınca o dosya açılsın istiyorum.
dosya ismi sabit değil değişken olabilir.
bunu nasıl yapabilirim? mümkün müdür?
PS: konuyu buraya açtım çünkü nereye açsam bilemedim içerik olarakta visual basic barındırıyor. yanlışsa taşıyabilirsiniz.
Şimdiden teşekkürler.
-
Set wdApp = CreateObject("Word.Application")
Set wdDoc = CreateObject("Word.Document")
Dim wdPath As String
wdPath = Application.ActiveWorkbook.Path
Set wdDoc = wdApp.Documents.Open(wdPath & "\TeklifSablon.doc")
wdApp.Visible = True
wdApp.Activate
Excel macrosu soruyorsun değil mi? Bu kodları dener misin?
excel ve word aynı klasörde olacak.
-
evet çalışıyor sorunsuz ancak şöyle birşey olsa mesela bir kaç isim olsa ve isim değişken olsa nasıl yapmamız gerekir?
çok teşekkürler
-
DaSpOnGe bunu yazdı
evet çalışıyor sorunsuz ancak şöyle birşey olsa mesela bir kaç isim olsa ve isim değişken olsa nasıl yapmamız gerekir?
çok teşekkürler
Worksheets("Sayfa1").Range("A1").Value
Sana sayfa ismini yazdığın hücrenin değerini verir
--
Set wdDoc = wdApp.Documents.Open(wdPath & "\" & Worksheets("Sayfa1").Range("A1").Value & ".doc")
yaparsan; sayfa1'deki a1 hücresindeki veriyi alır, excelin olduğu klasörde a1 hücresindeki isimde olan .doc dosyasını açar
visual basic excel mod word nasıl yapılır kod how to make hayda atilla mayda