word dosyasını farklı klasörlere keydetme

[tukayf]

değerli üstadlar elimizde bulunan "x" isimli word dosyasını aynı anda ftp de bulunan 5-6 farklı kalasöre kaydetmek istiyorum. bunu kodlarla yapabilir miyiz yoksa tek tek mi yapmalıyım.

 

[necati]

Merhaba,
Ben CuteFTP 8.0 Professional kullanıyorum. Burada kendi makro menüsü ile bir makro kaydedip sonra onu kullanabilirsiniz.
Fakat çoklu transferin, hızınızı düşüreceğini de göz önünde bulundurunuz.

KAYIT İÇİN
* Tools
* Macros and Scripting
* Start Recording
dosyalarını tek tek gönder, işlemi bitirdikten sonra:

KAYDI BİTİRMEK İÇİN
* Tools
* Macros and Scripting
* Start Recording
* Stop Recording ile makronu kaydet (*.vbs).

Sonra bunu (*.vbs) not defteri ile açarak incele. Komut satırları çok basit. Daha sonraki dosyalarını ilgili satırları değiştirmek sureti ile çoklu transferini yaparsın.

 

[tukayf]

öncelikle daha önce belirtmediğim için kusura bakmayın hocam. işyeri bilgisayarlarına program kuramıyoruz. vb kullanarak dosyayı kaydedebilir miyiz.

 

[necati]

Bir FTP programı yüklemeden yapılabilir mi bilemiyorum. Bir de sorunuzdaki "ftp" kelimesinden maksadınız tam olarak nedir. İşyeri ağındaki klasörleri mi demek istediniz?

 

[tukayf]

evet hocam işyeri ağı klasörleri.

 

[necati]

Sub CokluKayit()
'Belgenizi aşağıda belittiğiniz 5 + halihazırdaki klasörü =6 adet klasörlere kaydeden makro...

  Dim Ad As String
  Const yol1 = "D:\1\"
  Const yol2 = "D:\2\"
  Const yol3 = "D:\3\"
  Const yol4 = "D:\4\"
  Const yol5 = "D:\5\"
  
  On Error GoTo ErrHandler
  Ad = ActiveDocument.Name
  Application.DisplayAlerts = wdAlertsNone
  ActiveDocument.SaveAs yol1 & Ad
  ActiveDocument.SaveAs yol2 & Ad
  ActiveDocument.SaveAs yol3 & Ad
  ActiveDocument.SaveAs yol4 & Ad
  ActiveDocument.SaveAs yol5 & Ad
  ActiveDocument.SaveAs Ad
  Application.DisplayAlerts = wdAlertsAll
  Exit Sub

ErrHandler:
  MsgBox Err.Description, vbExclamation
End Sub

 

[tukayf]

hocam çok teşekkürler. ama denediğimde makro çalıştığında bir hata veriyor. kayedederken ne yapmalıyım ya da nasıl kaydetmeliyim.

 

[necati]

İşyeri sisteminden kaynaklananıyor olmalı.

 

[baydeniro]

Sayın necati güzel bir kod, paylaşım için teşekkürler. Ancak makryıou çalıştırınca "Object required" şeklinde bir error verdi.

 

[necati]

Ben de hata çıkmıyor, sizde kod hangi satırda kalıyor.

 

[baydeniro]

Sayın necati ilginize çok teşekkürler. Özür dileyerek bir konuyu belirtmeyi unuttum. Bu kodu excel dosyası için kullandım.

Sub CokluKayit()

Dim Ad As String
Const yol1 = "C:\Users\Documents\1\"
Const yol2 = "C:\Users\Documents\2\"

On Error GoTo ErrHandler
Ad = ActiveDocument.Name
Application.DisplayAlerts = wdAlertsNone
ActiveDocument.SaveAs yol1 & Ad
ActiveDocument.SaveAs yol2 & Ad

ActiveDocument.SaveAs Ad
Application.DisplayAlerts = wdAlertsAll
Exit Sub

ErrHandler:
MsgBox Err.Description, vbExclamation
End Sub

 

[necati]

Koddaki ActiveDocument kelimeleri yerine ActiveWorkbook yazmak gerekiyor.

 

[leumruk]

Merhaba,
Necati Bey'in çözümüne alternatif olarak bir kod hazırladım. İşlem excel dosyası üzerinden gerçekleştiriliyor. Kodu çalıştırdığınızda kopyalamak istediğiniz word dosyasını seçin. İşlem sonunda seçilen dosya ilgili klasörlere kopyalanacaktır.
NOT: Kodu çalıştırmadan önce D: sürücüsünde 1,2,3,4,5 adlarıyla 5 klasör oluşturun. Kod üzerinde kendi klasör adlarınızı uyarlayabilirsiniz.

Sub Aktar()
Set ds = CreateObject("Scripting.FileSystemObject")
yol = "D:\"
ChDir "c:\"
    k_dosya = Application.GetOpenFilename(",*.doc*")
    If k_dosya = False Then Exit Sub
ad = Split(k_dosya, "\")
ad = ad(UBound(ad))
kls = Array("1", "2", "3", "4", "5")
For x = 0 To UBound(kls)
ds.copyfile k_dosya, yol & kls(x) & "\" & ad
Next
MsgBox "Aktarım tamamlandı.", vbInformation, "kodlayan: l e u m r u k"
End Sub

 

[tukayf]

değerli üstadım. bende hala <"Object required" bu hatayı veriyor gerekli düzenlemeyi yapmama rağmen.
sn leumruk hocam "ds.copyfile k_dosya, yol & kls(x) & "\" & ad" bu satırda bi yerde düzenlemeyi apamadım galiba hata verdi sizin kodda da burda.

 

[leumruk]

değerli üstadım. bende hala <"Object required" bu hatayı veriyor gerekli düzenlemeyi yapmama rağmen.
sn leumruk hocam "ds.copyfile k_dosya, yol & kls(x) & "\" & ad" bu satırda bi yerde düzenlemeyi apamadım galiba hata verdi sizin kodda da burda.

D: sürücüsünde yukarıda belirttiğim isimdeki 5 dosyayı oluşturdunuz mu?

 

[tukayf]

Pardon hocam ya 2 dosya oluşturmuştum ben. o yüzden hata vermiş. teşekkürler yardımınız için. hocam bir soru daha sorabilir miyim. sizin yazdığınız kodla sadece d de oluşturulan klasörlere mi kayıt yapabilirim. işyeri ağında bulunan klasörlere kayıt yapmak için ne yapabilirim. şimdilik aklıma gelen ağdaki klasörleri kısayol şeklinde d ye atarak isimlerini 1,2,3,4,5 şeklinde değiştirmek.

 

[leumruk]

Pardon hocam ya 2 dosya oluşturmuştum ben. o yüzden hata vermiş. teşekkürler yardımınız için. hocam bir soru daha sorabilir miyim. sizin yazdığınız kodla sadece d de oluşturulan klasörlere mi kayıt yapabilirim. işyeri ağında bulunan klasörlere kayıt yapmak için ne yapabilirim. şimdilik aklıma gelen ağdaki klasörleri kısayol şeklinde d ye atarak isimlerini 1,2,3,4,5 şeklinde değiştirmek.

D yerine istediğiniz yolu yazabilirsiniz. İçlerinde belirtilen klasörler olmak koşuluyla...