I have a file folder with sequentially numbered filenames (1000.xls,
1001.xls...)

I am trying to automate the opening and data extraction in the file by
letting the user type in the filename number eg 1000 in a cell. In 2 cells
I would put the file path in one cell and .xls in another. Finally I would
concatenate all 3 cells to give me the path and filename of the file to
open.

I would put a button on the working sheet that would initiate the program
that would open the file using the path/filename in the third cell where
the path/filename/path was assembled.

I figured out how to do the data extraction but I just can't figure out for
the life of me how to get Workbook.Open to work using a cell address for
the filename.

There might be a much easier way to do this than what I came up with but I
am just a newbie messing with this.

I hope someone can help.
Thanks,

Denis

Dim oWB as excel.workbook

set oWB=workbooks.open(sheet1.range("A1").value & _
sheet1.range("A2").value &
".xls")

Where A1=path and A2=filename.

Tim

"Denis" <(E-Mail Removed)> wrote in message
news:Xns9B3B9D4B844F7Denis@69.16.185.247...
>I have a file folder with sequentially numbered filenames (1000.xls,
> 1001.xls...)
>
> I am trying to automate the opening and data extraction in the file by
> letting the user type in the filename number eg 1000 in a cell. In 2
> cells
> I would put the file path in one cell and .xls in another. Finally I
> would
> concatenate all 3 cells to give me the path and filename of the file to
> open.
>
> I would put a button on the working sheet that would initiate the program
> that would open the file using the path/filename in the third cell where
> the path/filename/path was assembled.
>
> I figured out how to do the data extraction but I just can't figure out
> for
> the life of me how to get Workbook.Open to work using a cell address for
> the filename.
>
> There might be a much easier way to do this than what I came up with but I
> am just a newbie messing with this.
>
> I hope someone can help.
> Thanks,
>
> Denis

Thanks Tim. Works like a charm. Such a short code too. Amazing.

Denis


"Tim Williams" <timjwilliams at gmail dot com> wrote in
news:(E-Mail Removed):

> Dim oWB as excel.workbook
>
> set oWB=workbooks.open(sheet1.range("A1").value & _
> sheet1.range("A2").value &
> ".xls")
>
> Where A1=path and A2=filename.
>
> Tim
>
>> Denis
>
>