Forum Discussion

Mederic's avatar
Mederic
Post Patron
1 year ago
Solved

Copy/paste queries into worksheet

Hello everyone,
I would like to know if it is possible to automatically copy all the queries from a file and paste them into a worksheet (see screenshot below).
Thanks in advance

Need Help
  • slorin's avatar
    slorin
    1 year ago

    Hi Mederic 

    en VBA

     

    For i = 1 To ThisWorkbook.Queries.Count
      Cells(i, 1) = ThisWorkbook.Queries(i).Name
      Cells(i, 2) = ThisWorkbook.Queries(i).Formula
    Next i

    Stéphane 

3 Replies

  • slorin's avatar
    slorin
    Super User
    1 year ago

    Hi Mederic 

    en VBA

     

    For i = 1 To ThisWorkbook.Queries.Count
      Cells(i, 1) = ThisWorkbook.Queries(i).Name
      Cells(i, 2) = ThisWorkbook.Queries(i).Formula
    Next i

    Stéphane 

  • Mederic's avatar
    Mederic
    Post Patron
    1 year ago

    Hello slorin @, best wishes and happy new year, thank you for your reply. I'll test it as soon as I get home. I'll get back to you. Best regards

  • Mederic's avatar
    Mederic
    Post Patron
    1 year ago

    slorin ,

    I've just tested it and it's perfect, 
    The code also includes the names of the queries,

    thank you very much.
    Have a nice evening