Transfer Text from Word to Excel in next row available

[Muhammad_Bilal]

I am working on 'Word Document' where a text is selected and converted into variable let say CCC.


I want to transfer this CCC to 'Excel Workbook' Sheet1 in next empty row.


I am trying following code but it seem not doing anything:

Set CCC= Selection.Range.PARAGRAPHS(1).Range
    Set MyXL = CreateObject("Excel.Application")
    MyXL.Visible = True
    Set eXwb = MyXL.Workbooks.Open("C:\Users\dell\Desktop\WEBD\LIST.xlsm")
    With eXwb.Application
            .Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).FormulaR1C1 = CCC
    End With

Before that I was using following code which was working fine and I want to improve it so:

With eXwb.Application
         .Sheets("Sheet1").Select
         .ActiveCell.FormulaR1C1 = CCC
         .ActiveCell.Offset(1, 0).Range("A1").Select
     End With

 

[Macropod]

Without wanting to place to fine a point on it, your 'improvement' is anything but. Working with Selections is far less efficient than working with Ranges and is prone to creating a lot of screen flicker.

 

[Macropod]

Cross-posted at: https://stackoverflow.com/questions/53060606/transfer-text-from-word-to-excel-in-next-row-available
Please read Mr Excel's policy on Cross-Posting in rule 13: http://www.mrexcel.com/forum/board-announcements/99490-forum-rules.html