Excelde Word Dosyası Açmak

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    DaSpOnGe
    DaSpOnGe's avatar
    Kayıt Tarihi: 05/Nisan/2008
    Erkek

    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.


    You think you've travelled far and never seen the stars :)))
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    NoktaliVirgul
    NoktaliVirgul's avatar
    Kayıt Tarihi: 02/Temmuz/2007
    Erkek

    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.

     

    NoktaliVirgul tarafından 14/Ara/15 17:35 tarihinde düzenlenmiştir

    If my calculations are correct, when this baby hits eighty-eight miles per hour... you"re gonna see some serious shit.
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    DaSpOnGe
    DaSpOnGe's avatar
    Kayıt Tarihi: 05/Nisan/2008
    Erkek

    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


    You think you've travelled far and never seen the stars :)))
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    NoktaliVirgul
    NoktaliVirgul's avatar
    Kayıt Tarihi: 02/Temmuz/2007
    Erkek
    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

     

    NoktaliVirgul tarafından 15/Ara/15 10:53 tarihinde düzenlenmiştir

    If my calculations are correct, when this baby hits eighty-eight miles per hour... you"re gonna see some serious shit.