اذهب الي المحتوي
أوفيسنا

أبو محمد أشرف

04 عضو فضي
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    814

  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    2

 نوع المحتوي 

مشاركات المكتوبه بواسطه أبو محمد أشرف

    ترحيل من الاكسيل الى الوورد vba

    في منتدى الاكسيل Excel

    قام بنشر

    أقصد عندي 56000 خليه فيها بيانات عاوز ارحلها للورد مرة واحدة بدلا من تقسيمها على مراحل

    doc.ActiveWindow.Selection.Tables(1).Rows(1).HeadingFormat = Trueعدلت rows(2) مكنش بيظهر رأس الجدول في كل صحة لأني دامج خليتين في الأول شاكر لك حسن تعاونكم

    شرح لهذا الكود

    في منتدى الاكسيل Excel

    قام بنشر

    السلام عليكم ورحمة الله وبركاته . 

    أرجو شرح هذا الكود ولو تطبيق عليه يكون أفضل 

     

     

    رمز PHP:

     

    function ExportToWord()

    {

     global $cCharset;

     header("Content-type: application/vnd.ms-word");

     header("Content-Disposition: attachment;Filename=name.doc");// يضع بالهيدر اسم الملف علي هيئة ملف مرفق 

     echo "<html>";

     echo "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=".$cCharset."\">";

     echo "<body>";

     echo "<table border=1>";

    echo  $word ; // ضع هنا محتوي ملف الورد 

     echo "</table>";

     echo "</body>";

     echo "</html>";

    }  

     

    ثانيا التصدير لملف Excel 

     

    تعديل على كود

    في منتدى الاكسيل Excel

    قام بنشر

    السلام عليكم ورحمة الله وبركاته

    هذا الكود يقوم بالترحيل من الاكسيل إلى الوورد ولكن المشكلة كلما زدت المدى لا يتم ترحيل شيء  فما المشكلة التي في هذا السطر

     wdDoc.ActiveWindow.Selection.Tables(1).PreferredWidth = CentimetersToPoints(13)

    
    'Name of the existing Word doc.
    Const stWordReport As String = "Quarter Report.docx"
    
    'Word objects.
    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    Dim wdbmRange As Word.Range
    
    'Excel objects.
    Dim wbBook As Workbook
    Dim wsSheet As Worksheet
    Dim rnReport As Range
    
    'Initialize the Excel objects.
    Set wbBook = ThisWorkbook
    Set wsSheet = wbBook.Worksheets("Sheet1")
    Set rnReport = wsSheet.Range("A1:D53954")
    
    'Initialize the Word objets.
    Set wdApp = New Word.Application
     rnReport.Copy
    Set wdDoc = wdApp.Documents.Add(Template:="Normal", NewTemplate:=False, DocumentType:=0)
    
    
    wdApp.Visible = True
    wdDoc.Activate
    
    rnReport.Copy
   
    wdDoc.ActiveWindow.Selection.PasteExcelTable False, False, False
    wdDoc.ActiveWindow.Selection.Tables(1).Rows(2).HeadingFormat = True '. .Select
  wdDoc.ActiveWindow.Selection.Tables(1).PreferredWidth = CentimetersToPoints(13)
    With wdDoc.ActiveWindow.Selection.PageSetup
        .TopMargin = CentimetersToPoints(2)
        .BottomMargin = CentimetersToPoints(2)
        .LeftMargin = CentimetersToPoints(1.5)
        .RightMargin = CentimetersToPoints(1.5)
        .Gutter = CentimetersToPoints(0)
    End With
    
    Set wdbmRange = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
    
    'Clear out the clipboard, and turn screen updating back on.
    With wbBook.Application
       .CutCopyMode = False
        .ScreenUpdating = True
    End With
    
    MsgBox "Done"

End Sub

     

    • Like 1

    تصدير من أكسيل لوورد

    في منتدى الاكسيل Excel

    قام بنشر · تم تعديل بواسطه أبو محمد أشرف
    تعديل

    جزاكم الله خيرا أخونا اسامة البرماوي

    اخونا الحبيب ياسر خليل أنا الآن خارج البيت وجربت الملف على إكسيل 2010 اشتغل تمام

    ومع العلم أنا أعمل على أوفيس 2007 وعند العودة إلى البيت سأجرب إن شاء الله تعالى 

    ولكن لي سؤال الملف عندي من A1 : D60000 فالملف يأخذ وقتا طويل لتصدير الملف ولا يعمل طبعا أنا ممكن أقوم بالتعدير على الكود وأصدر 1000 خلية وهكذا 

    لكن هل هناك حل للتصدير دفعة واحدة بدلا من دفعات دفعات 

    قمت بتعديل الجدول بالاكسيل ليصير كما بالصورة المرفقة فيعطيني خطأ كما في الصورة الثانية فما التعديل المطلوب لو تكرمتم حيث أن تنسيق الجدول في الوورد بعد يخرج غير منسق بعد التعديل على الجدول بالاكسيل

     

    Untitled.rar

×
×
  • اضف...

Important Information

  I accept