Hello,
Is there a way to the name of the first sheet of each excel file in a
given folder. I know how to do this by opening each file, but I'd
like to be able to do it without opening each file.

thanks,
Andy

Andrew brought next idea :
Hello,
Is there a way to the name of the first sheet of each excel file in a
given folder. I know how to do this by opening each file, but I'd
like to be able to do it without opening each file.

thanks,
Andy

You can do this using ADO. You'll find a working example he

http://www.appspro.com/Tips/WorkbookTips.htm#WT1

under this Q:

How Can I Get a List of Worksheet Names From a Closed Workbook?

HTH

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc

On Jul 12, 10:01*am, GS wrote:
Andrew brought next idea :

Hello,
Is there a way to the name of the first sheet of each excel file in a
given folder. *I know how to do this by opening each file, but I'd
like to be able to do it without opening each file.

thanks,
Andy

You can do this using ADO. You'll find a working example he

*http://www.appspro.com/Tips/WorkbookTips.htm#WT1

under this Q:

* How Can I Get a List of Work

That looks perfect. Thank you again Garry. I appreciate your help.

Andy

Andrew has brought this to us :
On Jul 12, 10:01*am, GS wrote:
Andrew brought next idea :

Hello,
Is there a way to the name of the first sheet of each excel file in a
given folder. *I know how to do this by opening each file, but I'd
like to be able to do it without opening each file.
thanks,
Andy

You can do this using ADO. You'll find a working example he

*http://www.appspro.com/Tips/WorkbookTips.htm#WT1

under this Q:

* How Can I Get a List of Work

That looks perfect. Thank you again Garry. I appreciate your help.

Andy

You're welcome! Glad to help...

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc

Hi Garry

I receive a message when i click "getsheetnames" button.
What am i missing here ? Shall i have to install something?

The code is:
If Application.Version < 12 Then
szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
szFullName & ";Extended Properties=Excel 8.0;"
Else
szConnect = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" &
szFullName & ";Extended Properties=Excel 8.0;"
End If

Set objConnection = New ADODB.Connection
objConnection.Open szConnect <<<<<<<<<<<< Here, it hangs.

And the message is:
"Provider cannot be found. It may not be properly installed"

Thank you.

on 7/13/2011, darkblue supposed :
Hi Garry

I receive a message when i click "getsheetnames" button.
What am i missing here ? Shall i have to install something?

The code is:
If Application.Version < 12 Then
szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
szFullName & ";Extended Properties=Excel 8.0;"
Else
szConnect = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" &
szFullName & ";Extended Properties=Excel 8.0;"
End If

Set objConnection = New ADODB.Connection
objConnection.Open szConnect <<<<<<<<<<<< Here, it hangs.

And the message is:
"Provider cannot be found. It may not be properly installed"

Thank you.

It requires the necessary data provider for your particular version of
Excel. Check in the VBEToolsReferences dialog to make sure you have
either JET4.0 OR ACE12.0 installed. These should have been installed
when you installed MS Office, but may not be installed if your machine
is subject to IT rules for software installation.

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc