Adding Excel Cell Range To Access Table

[Welshgasman]

First the range was 3 columns, now it is one?
Make your mind up.

[DMT Dave]

@WGM hahahah yeh good point, there is 3 columns and as you have spotted, setting range to 1

so i guess if am correct, either stick with definitive (CJ's)

Set xlRange = xlSheet.Range("A1:C256")

Or if i change intFR and intLR to search for rows

Set xlRange = xlSheet.Range("A" & intFR & ":C" & intLR)

That would do it wouldn't it ?

Kindest to you and everyone

[Welshgasman]

Surely you only need to do this once? Once you have the codes, that is that.
A lot of work for just that?

And if for some strange reason it is not a one off, then I would be opening an empty recordset, not selecting everything that is already in the table, as we are just appending?

[DMT Dave]

Yes correct, once imported that would that task done, but i am more than certain i can use the method in future (now saved to code table where i save)

Like mentioned, done lots of Access to Excel, Word, Powerpoint, never in reverse, but can only learn and build from this task, knowledge is power

[Welshgasman]

Well pay attention to what a recordset will contain when you are just appending.

[June7]

If this is "one-off", could maybe have just copy/pasted?

[DMT Dave]

Hi June7 yes of course, its one of those tasks where i will use elswhere, build / learn from it....

thanks agian for your input and to all