Çözüldü Excel ile çoklu dosya kopyalama

[mete111]

Merhaba hocalarım ve arkadaşlarım youtubden bulduğum bu yöntem ile excel sayfasında yazdığım dosyayı istediğim noktaya kopya oluşturabiliyorum ancak Ekte Sunduğum gibi aynı dosyayı 2 kez yazığımda hedef klasorume 2.ci kopyayı oluşturmuyor bunun için ne yapabiliriz önerileriniz için şimdikten teşekür ederim.
(forumda yeniyim hatalarımı soyler iseniz revize ederim

 

[Adnan]

dosya adına zamanı ilave edin sürekli farklı olarak kaydetsin yada dosya adını exist kodu ile var mı yok mu diye aratın var ise sonuna bir başka ek ilave edin kolay gelsin

 

[Ümit Bakacak]

kaynakta ve hedefte dosyanın adresi, dosya adı ve dosya uzantısı tam olmalıdır.
Örnek
fso.CopyFile "D:\Kronik.ods", "D:\Kronik2.ods", True

 

[Ümit Bakacak]

Düzeltme sorunuzun 2. kopya kısmını görmeden cevap yazdım.
Adnan Hocamın dediği gibi dosya ismine numara verecek bir algoritma yazmanız problemi çözecektir.

 

[mete111]

dosya adına zamanı ilave edin sürekli farklı olarak kaydetsin yada dosya adını exist kodu ile var mı yok mu diye aratın var ise sonuna bir başka ek ilave edin kolay gelsin

Düzeltme sorunuzun 2. kopya kısmını görmeden cevap yazdım.
Adnan Hocamın dediği gibi dosya ismine numara verecek bir algoritma yazmanız problemi çözecektir.

hocalarım öncelikle değerli yardımlarınız için teşekür ederim ancak yaptığım iş trendyoldan gelen sipariş xml dosyası alabiliyorum örnekte dosyam ekteki gibi buradaki günlük sipariş adetim değişkenlik gösterebiliyor desenler 5001 ile başlayıp 5999 ürün mevcut burada günlük sipariş adeti ise ortalama 600-800 adet ben bunu kendim işleme aldığım zaman dosya kopyalamada hata yapma ihtimalim var bu dosyada topladığım desenleri makinede baskıya alıyorum acaba burada aynı dosyadan 2.defa gördüğü zaman dosyaya kopya1-2-3-4 ismi ile gönderemezmi kıymetli çözümlerinizi bekliyorum

 

[Ümit Bakacak]

Sayın mete111 ; anladığım kadarıyla bu dosya kopyalanıp tekraren yapıştırılacak olan PASİF dosya. Bunu kopyalayıp yapıştıracak olan AKTİF dosyanızı yükleyiniz.

 

[mete111]

Sayın mete111 ; anladığım kadarıyla bu dosya kopyalanıp tekraren yapıştırılacak olan PASİF dosya. Bunu kopyalayıp yapıştıracak olan AKTİF dosyanızı yükleyiniz.

bu şekilde dosyayı tutup buraya surukluyorum hocam burda program ergosoft rip programı makinenin yazıya alacağı bir uzantıya çeviri yapıyor buraya ben normalde elimle ile hangi kod dan 20 tane geldiyse tektek işliyorum burada hata kısmım çıkıyor birde hocam hedef klasörüne copy.file komutu yerine kısıyol oluştur komutunu koysam ozaman mouse ile atığım dosyaların sonuna otomatik 1,2,3,4 sıra numarası veriyor dosya kopyalama ile yaptığımda değiştir seçeneğinden dolayı işlemiyor olabilirmi kısayol oluşturma işlemi işimi çözebilir ama fso kodlarını araştırdım bir sonuç bulamadım kısayol komutu varmıdır.

 

[mete111]

son durumum görseldeki gibi hocam

 

[Ümit Bakacak]

Dosya kopyalamakla kısayol kopyalamak farklıdır. Kısayol kopyalarken farklı isimler verse de hepsi aynı dosyayı açar. Farklı isim alması sizi aldatmasın. Bu sebeple kısayol oluşturmanın sizin işinizi çözeceğini sanmıyorum. Kullandığınız diğer programın ne olduğu önemli değil. Ben sizden kodların yazılı olduğu diğer EXCEL dosyasını yüklemenizi istemiştim.

 

[mete111]

kusura bakmayın hocam yanlış anlamışım dosyam ektedir.

 

[Adnan]

bu kodları diğerini silip yapıştırın
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[mete111]

bu kodları diğerini silip yapıştırın
Sub dosya_kopyala()

Dim FSO
Dim dosya_adi As String
Dim kaynak_klasor As String
Dim hedef_klasor As String

For i = 1 To 3

dosya_adi = Range("A" & i)

kaynak_klasor = "D:\klozet\"

hedef_klasor = "C:\Users\pc1\Desktop\klozet çevrilmişi\"

Set FSO = CreateObject("Scripting.FileSystemObject")
if FileExists(hedef_klasor )=true then
FSO.CopyFile (kaynak_klasor & dosya_adi & now), hedef_klasor, True
else
FSO.CopyFile (kaynak_klasor & dosya_adi), hedef_klasor, True
Next

End Sub

Function FileExists(FilePath As String) As Boolean
Dim TestStr As String
TestStr = ""
On Error Resume Next
TestStr = Dir(FilePath)
On Error GoTo 0
If TestStr = "" Then
FileExists = False
Else
FileExists = True
End If
End Function

ilgi ve alakalarınız için bu sorunu çözemesekte minnetarım genelde insan oğlu yapısı gereği kendi sorunları haricinde ilgisiz kalır yaptığınız iş sözlerle ifade edilemez

Dosya kopyalamakla kısayol kopyalamak farklıdır. Kısayol kopyalarken farklı isimler verse de hepsi aynı dosyayı açar. Farklı isim alması sizi aldatmasın. Bu sebeple kısayol oluşturmanın sizin işinizi çözeceğini sanmıyorum. Kullandığınız diğer programın ne olduğu önemli değil. Ben sizden kodların yazılı olduğu diğer EXCEL dosyasını yüklemenizi istemiştim.

 

[Adnan]

Next yazan yerin üzerine End if yazısını kopyalamamışım. bir önceki koda ekledim ya oradan alın yada siz yapın

 

[Ümit Bakacak]

Buyurunuz...

 

[mete111]

Buyurunuz...

Next yazan yerin üzerine End if yazısını kopyalamamışım. bir önceki koda ekledim ya oradan alın yada siz yapın

Hocalarım Değerli vakitleriniz için ayrı ayrı teşekür ederim sayenizde artık vba kodlarına bende merak saldım kurs alarak forumda sizin gibi iyi insalarla birlikte destek vermek isterim hayırlı günler dilerim (sorun çözüme ulaştı)

 

[halily]

bu da alternatif olsun)
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Ümit Bakacak]

Rica ederim. İyi günler.