كود لنقل الملفات

[دربالة]

السلام عليكم

هل يوجد كود لنقل الملفات cut

محتاج كود ينقل ملفات PDF من فولدر A على البارتشن C الى فولدر A على البارتشن D

وشكرا

[طارق محمود]

السلام عليكم

أخي العزيز

ضع الكود التالي في أي ملف إكسل علي الجهاز وسوف يفعل ماتريد

 

Sub pdf_Move()
    Dim myFile As String
    pt = "c:\A\"
    myFile = Dir(pt)
    Do While myFile <> ""
       If Right(myFile, 4) = ".pdf" Then Name "c:\A\" & myFile As "d:\A\" & myFile
       myFile = Dir()
    Loop
End Sub

[دربالة]

السلام عليكم

الف شكر لحضرتك يااستاذ طارق على الكود وهو شغال 100%

عندي سؤال تاني لو سمحت 

انا بستخدم الكود التالي لحفظ ملف الاكسيل بصيغة PDF في البارتشن D فى ملف PDF

لكن بلاقي الملف اتحفظ فى My Documents . ايه السبب ؟؟

 

وشكرا

Private Sub CommandButton1_Click()
Dim MyFullName As String
Application.ScreenUpdating = False
MyFullName = "GL " + Me.TextBox1.Value
'=======================================
ChDir "D:\PDF\"
'=======================================
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFullName, _
Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Application.ScreenUpdating = True
End Sub

Book2.rar

تم تعديل نوفمبر 3, 2014 بواسطه derbala

[طارق محمود]

السلام عليكم

أخي العزيز

مادام الكود شغال 100% ، لاداعي لاستخدام آخر

==============

 

الكود مهما كان صغيرا يأخذ وقت كبير في الفهم والتعديل

عموما أعتقد أن الجزء التالي من الكود هو السبب

MyFullName = "GL " + Me.TextBox1.Value
'=======================================
ChDir "D:\PDF\"
'=======================================
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFullName

هذا المتغير MyFullName في السطر الأول يساوي جزء ثابت "GL"

بالاضافة لجزء آخر يأتي من يوزرفورم Me.TextBox1.Value

إن أردت تصليح ذلك

فعليك إضافة المسار للمتغيرMyFullName 

[دربالة]

السلام عليكم استاذ طارق

 

ممكن مثال للتوضيح ؟

[طارق محمود]

لست متأكدا

ولكن يمكنك استبدال هذا الجزء

ChDir "D:\PDF\"
'=======================================
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFullName

بالسطر التالي

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\PDF\" & MyFullName

[دربالة]

السلام عليكم

الف شكر لحضرتك يااستاذ طارق على الكود وهو شغال 100%