كنترا وجود يك شيت در فايل اكسل توسط كدهاي vb

[ehsan_y]

با سلام و تشگر از اساتيدي كه در تاپيك قبلي ( تغيير data type بوسيله كدهاي vb ) راهنماييم كردن.
توي برنامه اي كه دارم كاربر ممكن فايلي غير از فايل مورد نظر منو انتخاب كنه يعني يه فايل اكسل ديگه با توجه به اينكه برنامه تيبل قبلي رو تغيير نام ميده نياز دارم قبل اينكه اين تغيير نام انجام بشه كنترل كنم ببينم آيا شيتي با نام مورد نظر من توي اون فايل اكسل وجود داره يانه ؟ يا اينكه يه ليست از شيت هاي اون فايل رو در اختيار من بذاره تا كاربر بتونه شيت مورد نظرشو انتخاب كنه . اگه امكانش هست راهناييم كنيد . ممنونم .

[shaghaghi]

Private Sub Command0_Click()
On Error GoTo Err_Handler
Dim rs As ADODB.Recordset,sconn As String
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockBatchOptimistic

sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & "c:\File1.xls"
rs.open "SELECT * FROM [Sheet1$]", sconn

MsgBox "Sheet1 Is OK"
Set rs = Nothing
Exit Sub
Err_Handler:
Select Case err.Number
Case -2147217900
MsgBox "can not find sheet1"
Case Else
MsgBox err.Description
End Select
End Sub