Abrir Diretorio

[ThalesS]

Boa Tarde,

Sou inciante em VBA, e preciso muito de ajuda

Eu tenho uma planilha que ocasionalmente vai importar alguns valores de um bloco de notas,

eu importei do Desktop e organizei em forma de tabela e coloquei na célula A75

o problema é que da muito trabalho fazer isso toda vez,

então preciso fazer um botão que abra uma pagina de busca pra procurar o arquivo ( ou seja, quero que seja aberto, não fechado a um lugar ou arquivo).

e então apos clicar no botão ele faz essa macro de importação de tabelo e a coloca no devido lugar.

Preciso que seja assim o funcionamento,

alguém pode me auxiliar?

Obrigado

[kuroi]

thales, no editor do visual basic, clique em menu Ferramentas -> Controles Adicionais. na lista q aparecer, procure por Microsoft Common Dialog Control, cheque essa opcao e clique OK. o controle Common Dialog vai aparecer na caixa de ferramentas, e então você pode usa-lo pra q o usuario selecione o arquivo q ele quiser.

tem varios exemplos de como usar por ai, procure no google por "commondialog", qualquer coisa poste ai.

[VR46]

VR46 - Pessoal tenho uma planilha em excel, que importa uma base de dados de um diretório para esta planilha, apenas apertando um botão a macro puxa as informações, essa base puxa informações das planilhas de acordo com o nome das planilhas..., mas quando faço esta operação ocorre um erro, o microsoft office excel encontrou um problema e precisa ser fechado lamentamos o incoveniente, ele pergunta se quer recuperar o trabalho perdido e reiniciar o excel, e aparece erro em tempo de execução '1004':Erro de definição de aplicativo ou definição de objeto - FIM ou DEPURAR, quando clico em depurar aparece, o método select da classe worksheetfalhou: FIM ou DEPURAR, clico em depurar e ele indica Private Sub Workbook_Open()

Sheets("Sumário").Select

Range("A1").Select

End Sub,

tenho outra planilha que efetua o mesmo procedimento só que em outro diretório e a mesma esta funcionando perfeitamente, as duas são iguais, só mudam alguns parametros, e não consigo encontrar o erro, alguém sabe como faço para resolver este mito??

[João.Neto]

Existem coisas inexplicáveis mesmo no VBA Excel.

Aconselho criar uma nova planilha e copiar e colar todo os códigos desta antiga.