1004 hatası veriyor !!!

[Tevfik_Kursun]

Merhaba Arkadaşlar,

    CmdDosya = Range(Range("AX1").Text).Value.Active.Sheets
    komut = "cmd /c " & CmdDosya
    CreateObject("wscript.shell").Run komut, 0, True

AX1 de yazılı dos komutunu uygulamak isterken 1. satırda 1004 hata numarasını veriyor.
Hata nerede acaba?
Saygılarımla

 

[Zeki Gürsoy]

".Active.Sheets" kısmını silip deneyin.

 

[Tevfik_Kursun]

Merhaba Zeki Hocam,
O durumda da aynı hatayı veriyor
Saygılarımla

 

[Asri]

Merhaba Zeki Hocam,
O durumda da aynı hatayı veriyor
Saygılarımla

Hocam, Hücre olduğu şekli ile DOS komutunu da yazar mısınız?

 

[Tevfik_Kursun]

Merhaba Asri Hocam,
pdftk.exe A B cat output A09D.pdf
Buraya kısa halini yazdım. Sanırım sebeb karakter sayısı 255 ten büyük, bunu da şimdi fark ettim. Eğer değilse düşündüğünüzü yazın lütfen.
Saygılarımla

 

[Zeki Gürsoy]

Ben bu tür durumlarda userform ve textbox dan yararlanıyorum. Size de tavsiye ederim.

Şöyle ki;

Tasarım zamanında textbox içeriğine metni yapıştırın.

Çağırırken de (Formu Show yapmayın),

txt = Userform1.Textbox1

ActiveX Textbox' u sayfa üzerinde de çizebilirsiniz.

 

[Tevfik_Kursun]

Zeki Hocam,
İlginize teşekkür ederim, deneyeceğim.
Saygılarımla

 

[Asri]

Merhaba Asri Hocam,
pdftk.exe A B cat output A09D.pdf
Buraya kısa halini yazdım. Sanırım sebeb karakter sayısı 255 ten büyük, bunu da şimdi fark ettim. Eğer değilse düşündüğünüzü yazın lütfen.
Saygılarımla

C:\deneme diye bir klasör açıp, pdftk yı da o klasöre ekleyin.
Bu şekilde dener misiniz?
Yolun uzunluğundan ve yoldaki boşluk karakterlerinden sorun oluşabilir.

  cmddosya = "C:\deneme\pdftk.exe A B cat output c:\deneme\A09D.pdf"
   komut = "cmd /c cd c:\deneme" & "&&" & cmddosya

 

[Tevfik_Kursun]

Bunu hemen deneyeceğim Asri Hocam. Teşekkür ederim.
Saygılarımla

 

[Tevfik_Kursun]

Oldu Asri hocam.
Çok teşekkür ederim.
Saygılarımla