RE:crear un combo con los nom. de hojas de un libr
El código te saltó porque la definición del objeto database del control data lo debes hacer en la página de propiedades en tiempo de diseño y no a través de esta línea:
Data1.DatabaseName = File1.Path & "\" & File1.FileName
Yo te recomiendo que para hacerlo en tiempo de ejecución, utilices simplemente variables y no el control data, es decir si activas una referencia DAO el código sería algo así:
Private Sub File1_Click()
Dim I As Integer
Dim Archivo As String
Dim db as Database
Archivo=File1.Path & "\" & File1.FileName
set db=opendatabase( Archivo , false , false , "Excel 8.0;")
Combo1.Clear
For I = 0 To db.TableDefs.Count - 1
Combo1.AddItem db.TableDefs(jon).Name
Next I
Combo1.ListIndex = 0
End sub
Y listo..!. Por cierto si te sirve o nó avísame.. J2ML....