Sorgu için arama sonuçları: copyfile

Hocam çok teşekkür ederim. Bu şekilde çalıştı. Var olun.

fso.CopyFile Dosya, ThisWorkbook.Path & "\test\" & YeniAd & ".jpg" Bu şekilde deneyin.Ancak resimlerin bulunduğu klasörün Excel Çalışma kitabı ile aynı dizinde/klasörde olmalı.

...ilgili dosyalar benim ilgimi çekiyor da. Burada 21-22 yazan yere resmin kaydedileceği dosya yolu yazılacak değil mi. Bu sefer modüle :) Yani benim klasörüm için fso.CopyFile Dosya, ThisWorkbook.Path & "\C:\Users\muratgunay48\Desktop\test\" & YeniAd & ".jpg" Bu şekilde bu satırda hata veriyor.

...hariç):", "Dosya Adı Değiştir") ' Dosya ismini değiştirme ve kopyalama If YeniAd <> "" Then ' Dosyanın adını değiştirme fso.CopyFile Dosya, ThisWorkbook.Path & "\21-22\" & YeniAd & ".jpg" Else MsgBox "Geçersiz dosya adı." End If End Sub Deneyiniz.

...fso As Object Set fso = VBA.CreateObject("Scripting.FileSystemObject") With Application.FileDialog(msoFileDialogFilePicker) .Title = "Dosya Seçiniz" If .show = True Then Dosya = .SelectedItems(1) End If End With fso.CopyFile Dosya, ThisWorkbook.Path & "\21-22\"...

...B sutununda ki pdf dosya isimlerini T sutununa klasör altındak pdflerden bulup yazmaya çalışıyor ama b sutunundaki isimlerden alakasız bir isim yazıyor nedendir acaba. Çalıştırdığımda aşağıdaki kod satırında hata gösteriyor. DosyaSistemi.CopyFile Yol & Dosya, HedefKlasor & yeni_isim & ".pdf"

...If ThisWorkbook.Path = "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_ANAYEDEKLERI" Then Exit Sub End If Dim yol1 As String yol1 = "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_ANAYEDEKLERI\" ds1.CopyFile ThisWorkbook.FullName, yol1 ThisWorkbook.Close...

...String yol = "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_YEDEKLERI\" & Replace(Now, ":", "_") & "-" & ThisWorkbook.Name ds.CopyFile ThisWorkbook.FullName, yol ThisWorkbook.Save Dim ds1 As Object Set ds1 = CreateObject("Scripting.FileSystemObject") If Not...

Merhaba, Evet, mümkündür. Örneğin, File System Object kullanılarak yapılabilir. CopyFile ile kopyalama Move veya MoveFile ile taşıma yapabilirsiniz.

Çok teşekkür ederim 2 nci kod işimi gördü

...String yol = "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_YEDEKLERI\" & Replace(Now, ":", "_") & "-" & ThisWorkbook.Name ds.CopyFile ThisWorkbook.FullName, yol End If ThisWorkbook.Close End Sub Dosya kapatma işlemini, yedekleme işlemine entegre etmek istiyorsunuz...

...Then Exit Sub If MsgBox("DOSYAYI KAPATMAK İSTİYORMUSUNUZ?....", vbInformation + vbYesNo, "DURUM") = vbYes Then yol = "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_YEDEKLERI\" & Replace(Now, ":", "_") & "-" & ThisWorkbook.Name ds.CopyFile ThisWorkbook.FullName, yol End If ThisWorkbook.Close End Sub

fso.copyfile copybanner & Country & " Branda.pdf", mainklasor & "\" & "Banner" & "\" Merhaba. Office 365 sürümü kullanıyorum. Yukarıdaki kodla bazı dosyaları farklı klasöre kopyalıyorum. "Country" bir değişken. Bu değişken mesela Lübnan gibi türkçe karakter içeren bir ülke olduğunda kod...

Örnek dosya atarmısınız, aynı isimde olursa iyi olur.

Bu satırda yine hata veriyor ds.CopyFile ThisWorkbook.FullName, yol

Merhaba. Diğer bilgisayarda da klasör yolu aynı değilse hata verir. Aşağıdaki klasör yolunu kontrol edin laptop'ta. Klasor = "c:\Yedekler" ds.CreateFolder "E:\MUHASEBE PROĞRAMI"

...bir laptop ta aşagıdaki bold olansatırlarda hata veriyor. Nasıl çözebiliriz. Teşekkür ederim CreateObject("Scripting.FileSystemObject").CopyFile ThisWorkbook.FullName, Kayıt_Yeri ds.CopyFile ThisWorkbook.FullName, yol Private Sub CommandButton21_Click() Dim Yedek_Dosya_Adı As String...

...& ".pdf" If Dir(My_File) <> "" Then With VBA.CreateObject("Scripting.FileSystemObject") .CopyFile My_File, Rng.Offset(, 1).Value & Application.PathSeparator End With File_Count = File_Count + 1 End If...

...& ".pdf" If Dir(My_File) <> "" Then With VBA.CreateObject("Scripting.FileSystemObject") .CopyFile My_File, Rng.Offset(, 1).Value & Application.PathSeparator End With File_Count = File_Count + 1 Else...

Merhaba, Arşiv konularını inceleyebilirsiniz. https://www.excel.web.tr/search/382813/?q=copyfile&o=date