كيفية تحويل ملف بصيغة ار تى اف اللى اكسيل

[الفيلمان]

ارجو من الاخوة الكرام شرح كيفية تحويل ملف بصيغة ار تى اف اللى اكسيل

[ياسر خليل أبو البراء]

أخي الكريم

أهلاً بك ومرحباً في المنتدى ونورت بين إخوانك

يرجى إرفاق الملف المراد تحويله إلى الإكسيل ..

[الفيلمان]

32 دقائق مضت, ياسر خليل أبو البراء said:

أخي الكريم

أهلاً بك ومرحباً في المنتدى ونورت بين إخوانك

يرجى إرفاق الملف المراد تحويله إلى الإكسيل ..

مرحبا واهلا بك وبكل اعضاء المنتدى

لم يسح لكبر الملف

34 دقائق مضت, ياسر خليل أبو البراء said:

أخي الكريم

أهلاً بك ومرحباً في المنتدى ونورت بين إخوانك

يرجى إرفاق الملف المراد تحويله إلى الإكسيل ..

لم يسمح لكبر الملف فارجو توضيح كيفية تحويله وشكرا جزيلا

 

[ياسر خليل أبو البراء]

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

هل الملف الورد على شكل جدول

 ...

قم بالبحث في المنتدى عن تحويل ملف ورد إلى إكسيل ستجد بعض الحلول ربما تفيدك

[الفيلمان]

8 دقائق مضت, ياسر خليل أبو البراء said:

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

هل الملف الورد على شكل جدول

 ...

قم بالبحث في المنتدى عن تحويل ملف ورد إلى إكسيل ستجد بعض الحلول ربما تفيدك

الملف كما بالمرفق

وهو بصيغة ار تى اف

[ياسر خليل أبو البراء]

جرب الكود التالي

حدد مسار ملف الورد

Sub ReadWordDocument()
    'غير مسار الملف المراد تحويله
    Const DOC_PATH As String = "C:\Users\Future\Desktop\Test.docx"
    
    Dim sht As Worksheet
    Dim WordDoc As Word.Document
    Dim WordApp As Word.Application
    Dim i As Long, r As Long, c As Long
    Dim rng As Range, t As Word.Table
    
        Set WordApp = CreateObject("Word.Application")
        WordApp.Visible = False
        Set WordDoc = WordApp.Documents.Open(DOC_PATH, ReadOnly:=True)
    
        Set sht = Sheets("Sheet1")
        Set rng = sht.Range("A1")
        sht.Activate
    
        For Each t In WordDoc.Tables
            t.Range.Copy
            rng.Select
            rng.Parent.PasteSpecial Format:="Text", Link:=False, _
                        DisplayAsIcon:=False
            With rng.Resize(t.Rows.Count, t.Columns.Count)
                .Cells.UnMerge
                .Cells.ColumnWidth = 14
                .Cells.RowHeight = 14
                .Cells.Font.Size = 10
            End With
    
            Set rng = rng.Offset(t.Rows.Count + 2, 0)
        Next t
        WordDoc.Close
        WordApp.Quit
End Sub

حدد مسار ملف الورد من خلال السطر الأول ثم قم بتنفيذ الكود

[الفيلمان]

On ٢‏/١‏/٢٠١٦ at 10:18 PM, ياسر خليل أبو البراء said:

جرب الكود التالي

حدد مسار ملف الورد

Sub ReadWordDocument()
    'غير مسار الملف المراد تحويله
    Const DOC_PATH As String = "C:\Users\Future\Desktop\Test.docx"
    
    Dim sht As Worksheet
    Dim WordDoc As Word.Document
    Dim WordApp As Word.Application
    Dim i As Long, r As Long, c As Long
    Dim rng As Range, t As Word.Table
    
        Set WordApp = CreateObject("Word.Application")
        WordApp.Visible = False
        Set WordDoc = WordApp.Documents.Open(DOC_PATH, ReadOnly:=True)
    
        Set sht = Sheets("Sheet1")
        Set rng = sht.Range("A1")
        sht.Activate
    
        For Each t In WordDoc.Tables
            t.Range.Copy
            rng.Select
            rng.Parent.PasteSpecial Format:="Text", Link:=False, _
                        DisplayAsIcon:=False
            With rng.Resize(t.Rows.Count, t.Columns.Count)
                .Cells.UnMerge
                .Cells.ColumnWidth = 14
                .Cells.RowHeight = 14
                .Cells.Font.Size = 10
            End With
    
            Set rng = rng.Offset(t.Rows.Count + 2, 0)
        Next t
        WordDoc.Close
        WordApp.Quit
End Sub

حدد مسار ملف الورد من خلال السطر الأول ثم قم بتنفيذ الكود

لقد رفعت الملف على هذا الرابط

http://www.4shared.com/rar/8QWVEIaoce/DALEL_SARF_MNTH.html

فرجاء العمل على تحويله الى اكسيل وان تتفضل مشكورا اخانا الكريم بتحويله ورفعه لنا وان تتكرم بشرح كيف حولته