Acessando Uma Plan Excel Com Um Simples Comando

[Macêdo]

Para acessar um arquivo qualquer através do VB realize a seguinte rotina:

1 - tenha em mente o arquivo que quer abrir, por exemplo, uma planilha do excel.

2 - No VB dê dois clicks no Objeto OLE, irá aparecer a caixa: Inserir Objeto

3 - Click no botão de opção: Criar do arquivo

4 - Click no botão procurar e localize a pasta onde se encontra a Planilha, clicando nela.

5 - Marque a caixa: Exibir como ícone

6 - Ponha na propriedade do objeto OLE1 Visible=false

7 - Insira um botão de comando e ponha no evento Click o código:

Dim NumArquivo As Integer
NumArquivo = FreeFile
Open "arquivo.OLE" For Binary As #NumArquivo
OLE1.FileNumber = NumArquivo
OLE1.Action = 7
Close #NumArquivo

8 - agora rode e faça o teste, ao clicar no botão sua planilha está aberta.

Editado Setembro 27, 2007 por kuroi
Tag CODE