Copy Data from Microsoft Word to Excel using Excel VBA

Поделиться
HTML-код
  • Опубликовано: 30 ноя 2024

Комментарии • 13

  • @brandiependergast5865
    @brandiependergast5865 6 лет назад +1

    This video provided every step necessary to copy my data from a Word document into an Excel spreadsheet. I can assure you I will be back to watch this a few more times in my ventures of uploading data into an Excel format. Thank you!

  • @kaitlynforaker9832
    @kaitlynforaker9832 6 лет назад +2

    This is new to me. I have never used this before. I have to admit this confuses me however this video helped me gain knowledge of this topic.

  • @johnharrisjr2808
    @johnharrisjr2808 6 лет назад +1

    Copying Data from Microsoft Word to Excel using Excel VBA is all new to me. The video gave a great explanation but I need to try this on my own to get it

  • @daveheartgames5705
    @daveheartgames5705 6 лет назад

    Great help, can you think of a way to do this without content controls in multiple word documents? For example a client gives us 10 files 1.doc through to 10.doc and we want to copy two ‘fields’ in the word document and put them into excel. The routine should be able to process many files in a folder

  • @uniQue_XL
    @uniQue_XL 7 лет назад

    Thanks a lot. Great explanation!
    Can I save both Word File and Excel file on cloud (OneDrive/DropBox etc'...) and use it from my/Others Mobile phone in order to collect data from different users via the Word document ?

  • @Kedumma
    @Kedumma 4 года назад

    Thank you for this, helped a lot !

  • @ValmisFilm
    @ValmisFilm 6 лет назад

    hi! how can I get data from txt file? no tables! I mean like I would open Notepad, select all, copy it and paste it to excel - how could I do that?

  • @yo_swarnali
    @yo_swarnali 4 года назад

    I'm getting run time error 91 for that line including Sheets("Data").Cells(r,2)....

  • @yeuduongtamhuong
    @yeuduongtamhuong 5 лет назад +1

    where can i get code in video?

    • @niraj162
      @niraj162 5 лет назад +4

      Sub dataFromWord()
      Dim wordApp As Word.Application
      Dim wDoc As Word.Document
      Dim r As Integer

      Set wordApp = CreateObject("word.application")
      Set wDoc = woniApp.Documents.Open(ThisWorkbook.Path & "/" & Range("E 1 ").Value & ".docx")
      wordApp.Visible = True

      r = 2
      For i = 1 To 10
      Sheets("Data").Cells(r, 2) = wDoc.ContentControls(i).Range.Text
      r=r+1

      Next i

      wordApp.Documents.Close
      wordApp.Quit
      End Sub

  • @veronicabetz9452
    @veronicabetz9452 6 лет назад +1

    This information is new to me, but appears to be very helpful tool.

  • @claraknudsen5714
    @claraknudsen5714 5 лет назад

    Does not work on Mac

  • @juangomez8829
    @juangomez8829 10 месяцев назад

    eres una riata !! thanks