Listar Arquivos

[preda 0]

Então, to precisando listar arquivos de uma pasta especifica usando Excel>VBA.Alguem tem alguma ideia ? No VBA não dá para setar a referencia.

[preda 0]

Bom, foi mal ter pedido ajuda mas consgue resolver, está ai o codigo

 

Private Sub Workbook_Open()Dim What As Stringx = 2What = Dir("C:\Documents and Settings\eedumon\My Documents\Arquivos\*.*")While Not What = ""	If x > 2 Then		What = Dir	End If	Debug.Print What	If What <> "" Then		Sheets("Sheet1").Range("a" & x).Value = What		x = x + 1	End IfWendEnd Sub

 

Vlw