Importing a single cell from one .xls to another

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

AMaleThing - 30 May 2008 11:07 GMT

I'm hoping you can help me find a simple method to a problem.

I was importing a .xls file using the External Data tool into my
worksheet which worked find.

I now have a requirement to import data from reports generated each
day, so importing the whole of a sheet each day might not be the
simpliest method.

Is it possible to enter a single value from an .xls file:
e.g.: ='C:\...\desktop\[test.xls]Sheet1'!A1 //output e.g. 22

Reply to this Message

Mike H - 30 May 2008 11:46 GMT

Hi,

You could try a couple of ways.
1. Copy the cell in your source workbook (Edit - Copy) then select the cell
in the recieving workbook and then
Edit|Paste Special|Paste Link

or

Try this small macro in the recieving workbook.

Sub getdata()
Workbooks.Open Filename:="c:\book2.xls" 'source book change to suit
myvalue = Sheets("sheet1").Range("A1").Value
ActiveWorkbook.Close savechanges:=False
ThisWorkbook.Worksheets("Sheet1").Range("B1").Value = myvalue
End Sub

Mike

> I'm hoping you can help me find a simple method to a problem.
>
[quoted text clipped - 7 lines]
> Is it possible to enter a single value from an .xls file:
> e.g.: ='C:\...\desktop\[test.xls]Sheet1'!A1 //output e.g. 22

Reply to this Message

AMaleThing - 30 May 2008 13:24 GMT

> Hi,
>
[quoted text clipped - 29 lines]
>
> - Show quoted text -

Thanks for the help. I went with the first suggestion as it was the
simplest, however I'll keep hold of your other suggest becuase I've a
feeling this is getting mor complicated that expected.

Thanks again!

Reply to this Message