sharing between spreadsheets
 

A quick question: Is it possible to use VBA to share data from one
spreadsheet to another? If so, do you know any good examples or
guides?

Thanks!

sharing between spreadsheets
 

On Aug 16, 8:00 pm, wrote:
A quick question: Is it possible to use VBA to share data from one
spreadsheet to another? If so, do you know any good examples or
guides?

Thanks!

What do you mean by "share data"? You can use links, you can copy/move
data from one spreadsheet to another. Please prescise what exactly do
you want to do.

sharing between spreadsheets
 

What do you mean by "share data"? You can use links, you can copy/move
data from one spreadsheet to another. Please prescise what exactly do
you want to do.

Users will enter data into SpreadsheetA, and it must somehow end up in
SpreadsheetB, preferably at the click of a button. My first thought
would be to have the data saved to a text file and then have
SpreadsheetB load what it needs from the file. A better solution would
be to have SA open SB and copy the data directly to SB. I don't know
what mechanisms are available in Excel/VBA to do this. What do you
mean by "links"?

Thanks!

sharing between spreadsheets
 

Look into having the shared Worksheets in an AddIn.

sharing between spreadsheets
 

See Ron de Bruin's site

http://www.rondebruin.nl/tips.htm

Browse through the section on Copy/Paste/Merge examples


Gord Dibben MS Excel MVP

On Thu, 16 Aug 2007 18:00:30 -0000, wrote:

A quick question: Is it possible to use VBA to share data from one
spreadsheet to another? If so, do you know any good examples or
guides?

Thanks!

sharing between spreadsheets
 

On Aug 16, 4:06 pm, Gord Dibben <gorddibbATshawDOTca wrote:
See Ron de Bruin's site

http://www.rondebruin.nl/tips.htm

Browse through the section on Copy/Paste/Merge examples


Thanks,
I eventually found a pretty simple solution which got me started in
the right direction:

'Added this code to a button-click procedure
Dim wbk As Workbook
Dim wst As Worksheet
Set wbk = Application.Workbooks.Open(ThisWorkbook.Path &
"\SomeExcelFile.xls")
Set wst = wbk.Worksheets(1)
wst.Cells(1, 1) = Sheet2.Cells(1, 1)