كود حفظ شيت من ملف اكسل حسب اليوم

[allaoua10]

السلام عليكم : اخواني لدي ملف اكسل فيه بيانات اريد كود حفظ شيت كل يوم

برنامج التقرير.xlsm

[حسين مامون]

بعد تنفيد العملية ستجد النسخة في الفولدر 😄 في مجلد باسم allaoua10  اسمك في المنتدى . الكود معدل حسب الطلب

اظن الكود للاستادنا عبد الله باقشير جزاه الله خيرا وكذلك جميع الاساتدة الكرام

اتمنى ان يكون ما تريد 

تحياتي لك اخي الكريم

 

كود حفظ شيت من ملف اكسل حسب اليوم.xlsm

[allaoua10]

بارك الله فيك استاذنا ولكن انااريد شيت واحد فقط هو شيت التقرير اليومي وليس الملف كاملا

[a.kawkab]

السلام عليكم

اليك هذا الملف لعله يفى بالمطلوب

برنامج التقرير.xlsm

[allaoua10]

مشكور كود رائع يفي بالغرض بارك الله فيك استاذنا دمت ذخرا للمنتدى

[allaoua10]

الكود جربته على الملف الكامل الخاص بي .لم يعمل معي تخرج لي رسالة .لو تكرمت وشرحت لي الكود وبارك الله فيك

 

[أحمد يوسف]

طالما انك لا تريد رفع الملف

فهذا الخطأ من اعدادات الكمبيوتر لديك فحاول تغيير اسم صفحة التقرير اليومى باللغة الإنجليزية الى مثلا Daily Report وقم بتغييرها ايضا فى الكود وحاول تنفيذ الكود مرة اخرى

يجب ان تكون اسماء الصفحات باللغة الإنجليزية لضمان كفاءة عمل الكود

بارك الله فيك

تم تعديل سبتمبر 7, 2019 بواسطه أحمد يوسف

[allaoua10]

 

ولكن يااخي في المثال الاول الكود الذي طرحه الاستاذa.kawkab

يشتغل تمام 100% واسماء الصفحات بالعربية .

[a.kawkab]

 
Option Explicit

'The code below are used by the macros in the other two modules
'Do not change the code in the functions in this module

Function RDB_Create_PDF(Source As Object, FixedFilePathName As String, _
                        OverwriteIfFileExist As Boolean, OpenPDFAfterPublish As Boolean) As String
    Dim FileFormatstr As String
    Dim Fname As Variant

    'Test If the Microsoft Add-in is installed
    If Dir(Environ("commonprogramfiles") & "\Microsoft Shared\OFFICE" _
         & Format(Val(Application.Version), "00") & "\EXP_PDF.DLL") <> "" Then

        If FixedFilePathName = "" Then
            'Open the GetSaveAsFilename dialog to enter a file name for the pdf
            FileFormatstr = "PDF Files (*.pdf), *.pdf"
            Fname = Application.GetSaveAsFilename("", filefilter:=FileFormatstr, _
                                                  Title:="Create PDF")

            'If you cancel this dialog Exit the function
            If Fname = False Then Exit Function
        Else
            Fname = FixedFilePathName
        End If

        'If OverwriteIfFileExist = False we test if the PDF
        'already exist in the folder and Exit the function if that is True
        If OverwriteIfFileExist = False Then
            If Dir(Fname) <> "" Then Exit Function
        End If

        'Now the file name is correct we Publish to PDF
        On Error Resume Next
        Source.ExportAsFixedFormat _
                Type:=xlTypePDF, _
                FileName:=Fname, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=OpenPDFAfterPublish
        On Error GoTo 0

        'If Publish is Ok the function will return the file name
        If Dir(Fname) <> "" Then RDB_Create_PDF = Fname
    End If
End Function

FunctionsModule.rar

[allaoua10]

اصبح يشتغل الكود تمام .شكرا الاخ

a.kawkab