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

mete111 · 9 May 2022

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 · 9 May 2022

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 · 9 May 2022

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 · 9 May 2022

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 · 9 May 2022

Adnan' Alıntı:
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

ubak' Alıntı:
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 · 9 May 2022

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 · 9 May 2022

ubak' Alıntı:
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 · 9 May 2022

son durumum görseldeki gibi hocam

Ümit Bakacak · 9 May 2022

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 · 9 May 2022

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

Adnan · 9 May 2022

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
end if
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

mete111 · 9 May 2022

Adnan' Alıntı:
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

ubak' Alıntı:
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 · 9 May 2022

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 · 9 May 2022

Buyurunuz...

mete111 · 9 May 2022

ubak' Alıntı:
Buyurunuz...

Adnan' Alıntı:
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 · 9 May 2022

bu da alternatif olsun)

Kod:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Ümit Bakacak · 10 May 2022

Rica ederim. İyi günler.

Foruma hoş geldin 👋 Ziyaretçi

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

mete111

Ekli dosyalar

Ümit Bakacak

Adnan

Ümit Bakacak

Ümit Bakacak

mete111

Ekli dosyalar

Ümit Bakacak

mete111

Ekli dosyalar

mete111

Ekli dosyalar

Ümit Bakacak

mete111

Ekli dosyalar

Adnan

mete111

Ekli dosyalar

Adnan

Ümit Bakacak

Ekli dosyalar

mete111

Ekli dosyalar

halily

Ümit Bakacak

Konuyu okuyanlar