Copy Dynamic Web Query and paste it to another workbook

[kingsdime29x]

Hello,

I have a workbook that runs a dynamic web query to pull data from a box score and I have a list of dates to pull the data from. What I would like to do is once the dynamic web query pulls data for a certain day I would like to copy all of the data and paste it into another workbook automatically adding a column for the date and series name (on Sheet2) as well that the data was pulled from keeping all one seasons data in one workbook. I have attached the workbook that I am able to pull the data using the dynamic web query and also attach the dynamic web query code that helps pull the data. Any help with this would be greatly appreciated. Thanks in advance for your help.

[MatrixMan]

Hi - can you clarify the below please?

Is sheet 1 what gets returned from running the query?
Is sheet 2, without columns M & N, created by pulling data from sheet 1 each time?
And are you wanting to create a new workbook for each year? So one for 73, another for 78, and so on.
Is sheet 2 populated as shown by running the query once or 28 times to generate each year?

The first three questions are just making sure I understand what you're after; the last question is important because I need to know if the code you want is to be run after each new year has been added to sheet 2 or once sheet 2 is fully populated and all years have been added.

If there is a choice, I recommend the latter option as that means the new code will run just once and won't interrupt your query from running each time.

[kingsdime29x]

Hi MatrixMan,

- Yes, Sheet1 is what gets returned from running the query

- Sheet2 is data that I generated from pulling the schedule from the website and created M & N to reflect the date and series name

- If it is possible to create a new workbook that would be great, but if it's easier to create into one workbook that could work for me too.

- The second option would be ideal to run as like you said it would the code would run once and not interrupt the query from running each time.

I appreciate your help with this. Let me know if there is anything else you need from me.

[MatrixMan]

OK - so you want a query to run over the data in Sheet 2 and create a new workbook for each of the 28 groups of data. I'll spend some time on this over the weekend - let me know if this is not what you're after!

[MatrixMan]

If you put the following in the Sheet2 object and run the ParseListCopyData routine, that should do it.

Please Login or Register  to view this content.

When testing, you will create multiple workbooks which will be a pain to close (28 with your test data), so put the following in the ThisWorkbook object and run it to close all the workbooks you created.

Please Login or Register  to view this content.

[kingsdime29x]

This works. Thanks for your help!