mediante un botón, muestro los ficheros que hay en una carpeta:
Código:
Private Sub Command1_Click()
path = "C:\Documents and Settings\Administrador\Escritorio\01 enero\"
ffname = Dir(path, vbArchive)
Dir (path)
While ffname <> ""
If (GetAttr(path & ffname) And vbArchive) = vbArchive Then
Debug.Print path & ffname
List1.AddItem (path & ffname)
totfolders = totfolders + 1
End If
ffname = Dir()
Wend
entonces, si aplico el codigo que me has pasado me encuentro con una duda:
Donde pongo
Código:
oExcel.Sheets("????").Select
Puedo poner donde los ???? el
ffname que utilizon en el boton??? (las hojas de excel se llaman como el nombre del fichero.