أبو محمد أشرف
-
Posts
814 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
2
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو أبو محمد أشرف
-
تنبيهات مثل التي توجد في الفيس بوك
أبو محمد أشرف replied to وائل احمد المصري's topic in منتدى الاكسيل Excel
شكرا لك وجزاك الله خيرا -
ضع الملف المطلوب ليتمكن الأخوة من مساعدتك ان شاء الله
-
أخي العزيز أنت عاوز ترحل منين لفين
-
إليك أخي الملف الوارد بالفيديو مع كود vba الفاتورة.rar
-
السلام عليكم ورحمة الله وبركاته تفضل أخي أبو جنى اطلع عللا هذا الفيديو لعله يفي بغرضك
-
ترحيل من الاكسيل الى الوورد vba
أبو محمد أشرف replied to أبو محمد أشرف's topic in منتدى الاكسيل Excel
جزاك الله خيرا على تعاونك انا بوضع ( 2 ) row بدلا من (1) row وأصبح رأس الجدول تمام ينتقل -
ترحيل من الاكسيل الى الوورد vba
أبو محمد أشرف replied to أبو محمد أشرف's topic in منتدى الاكسيل Excel
أقصد عندي 56000 خليه فيها بيانات عاوز ارحلها للورد مرة واحدة بدلا من تقسيمها على مراحل doc.ActiveWindow.Selection.Tables(1).Rows(1).HeadingFormat = Trueعدلت rows(2) مكنش بيظهر رأس الجدول في كل صحة لأني دامج خليتين في الأول شاكر لك حسن تعاونكم -
ترحيل من الاكسيل الى الوورد vba
أبو محمد أشرف replied to أبو محمد أشرف's topic in منتدى الاكسيل Excel
وعليكم السلام ورحمة الله وبركاته شكرا لك وجزاك الله خيرا هل هناك حل كلما زت المدى يطلع في الوورد كلام غير مفهوم وغير واضح وعذرا على الخطأ في الاسم -
السلامعليكم ورحمة الله وبركاته هذا الملف به كود للترحيل من الاكسيل للورد ما فيه اسهل من كده بس اريد التعديل عليه حتى يتكرر رأس الجدول في كل صفحة من صفحات الوورد تصدير بيانات الى وورد.rar
-
رائع ما شاء الله ويا سلام لو فيه حاجة زي كدخ بس ترحيل الى الوورد
-
السلام عليكم ورحمة الله وبركاته . أرجو شرح هذا الكود ولو تطبيق عليه يكون أفضل رمز 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
-
جزاك الله خيرا جاري التفيذ
-
السلام عليكم ورحمة الله وبركاته هذا الكود يقوم بالترحيل من الاكسيل إلى الوورد ولكن المشكلة كلما زدت المدى لا يتم ترحيل شيء فما المشكلة التي في هذا السطر 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
-
جزاك الله خيرا
-
ولماذا الملف لما احفظه بالماكرو يستغرق وقتا طويلاً في الحفظ والفتح هذا هو الملف المطلوب التعديل عليهhttp://fsend.net/?cl7u8mdlgvm
-
جزاك الله خيرا أي الكريم KHMB بس كان طلب أخير لو تكرمت أريد رأس الجدول ثابت في كل صفحة مثل اللي ارفقه الاخ اسامة البرماوي فوق اول مشاركة وبدون أي تيظليل للخلايا
-
هذا هو شكل الملف النهائي الذي أريده لكن المشكلة كلما صدرت عدد كبير من الخلايا تظهر في الوورد غير منسقة تصدير لوورد.rar
-
جزاكم الله خيرا أخونا اسامة البرماوي اخونا الحبيب ياسر خليل أنا الآن خارج البيت وجربت الملف على إكسيل 2010 اشتغل تمام ومع العلم أنا أعمل على أوفيس 2007 وعند العودة إلى البيت سأجرب إن شاء الله تعالى ولكن لي سؤال الملف عندي من A1 : D60000 فالملف يأخذ وقتا طويل لتصدير الملف ولا يعمل طبعا أنا ممكن أقوم بالتعدير على الكود وأصدر 1000 خلية وهكذا لكن هل هناك حل للتصدير دفعة واحدة بدلا من دفعات دفعات قمت بتعديل الجدول بالاكسيل ليصير كما بالصورة المرفقة فيعطيني خطأ كما في الصورة الثانية فما التعديل المطلوب لو تكرمتم حيث أن تنسيق الجدول في الوورد بعد يخرج غير منسق بعد التعديل على الجدول بالاكسيل Untitled.rar
-
أخي الحبيب ياسر خليل جربت ما قلتله ووجدت الاختيارMicrosoft Word Object Library مفعل ولا زال الخطأ موجود وجزاك الله خيرا على تفاعلك مع موضوعي
-
جزاك الله خير أستاذنا أسامة البرماوي ولكن كل ما اجي اعمل تصدير يعطيني خطأ
-
لسلام عليكم ورحمة الله وبركاته أأحبتنا أعضاء المنتدى الكرام كيف حالكم لو تكرمتم أريد تصدير جدول من ملف اكسيل الى وورد بنفس التنسيق لو تكرمتم فهل هناك كود لذلك أريد لو تكرمت نقل الجدول من F1 إلى D50949 Book1.zip
-
للرفع
-
وعليكم السلام ورحمة الله وبركاته هنا شيتين واحد باسم 2013 والآخر 2012 والمراد تصديره هو من الخلية f1 إلى d56949 في الشيتين وجزاك الله خيرا
-
الملف كبير برفعه على موقع آخر شاكر لك حسن تعاونك وهذا رابط على موقع آخر http://fsend.net/?bi88sb3zaj1
-
شكرا لك khmb ولكن كيف يتم التصدير الى الورد أضغط على الزر ولا اجد شئا
