Programação VB

[rafa-rsa]

Bom dia a todos.

Estou iniciando o meu trabalho/estudo com Access e programação VB e sou completamente leigo no assunto.

Qual seria o comando para ao clicar em um botão abrir um pop up para que eu escolha um arquivo como se fosse um open file?

Grato,

Rafael.

[fariajp]

http://support.microsoft.com/kb/279508

[Clércio Guiliche]

Primeiro, qual é a versao do vb que voce está a usar?

Se for o 6.0 tente assim:

(Não quer dizer que não irá funcionar em outra versão, mas como só trabalhei com esta é melhor eu não arriscar, percebes?)

Clique com o lado direito na barra de ferramentas, escolha a opcão components,

procure o microsoft common diálog

Ele vai aumentar o common dialog para a barra de ferramentas, ponha no seu formulário e de o nome de cd

escreva no botao de comando o código

cd.filename="Escolher Ficheiro..."

cd.showopen

corra o projecto e pise no botao

mas o common serve apenas para te dar a localizacao e o nome do ficheiro

é com isso que o vb trabalha

para obter a localizacao e o nome do ficheiro que for escolhido escreva

cd.filename

para obter somente o nome do ficheiro que for escolhido escreva

cd.filetitle

para obter somente a extensao do ficheiro que for escolhido escreva

right(cd.filetitle,4)

[connectivy]

Pessoal!

Estou trabalhando com um equipamento Rs232 para leitura de temperatura e umidade de fornos. Eu acabei comprando uma dll (FT-MBMP-DLL-ALL[1].2.4.0) pra fazer essa comunicação, mas não estou conseguindo montar a linha de comando. Ele vem ate com um exemplo, mas é muit complexo, não estou conseguindo fazer funcionar.

Alguem tem alguma dica, por favor.

Funções: 3; 6 e 16.

Não estou conseguindo interpretar as linhas de comando.

Por favor me ajudem.

[Clércio Guiliche]

Sua dúvida tem haver com programção?

Bem, eu acho que sua dúvida etá no lugar errado.

[ruzz]

A versao que eu estou a usar é a 6.0 e tentei assim:

Clique com o lado direito na barra de ferramentas, escolha a opcão components,

procure o microsoft common diálog

Ele vai aumentar o common dialog para a barra de ferramentas, ponha no seu formulário e de o nome de cd

escreva no botao de comando o código

cd.filename="Escolher Ficheiro..."

cd.showopen

corra o projecto e pise no botao

ate aqui tudo bem.

o meu objectivo é usar proteriormente outro botão que abra o que pedi, ou ate o mesmo e introduzo o codigo abaixo e nao dá. apenas quero que abra o ficheiro que pedi, consegues-me ajudar?

e quando eu introduzo o "cd.filename" nao dá há mesma :s

[ruzz]

alguem-me pode ajudar a por este codigo a funcionar?

Private Sub inserir_Click()

Dim xl As New Excel.Application

Dim xlw As Excel.Workbook

'Abrir o arquivo do Excel

cd.FileName = "Escolha o ficheiro"

cd.ShowOpen

'da-me erro neste linha de codigo, e quero que isto faça as mesmas coisas, para os diferentes ficheiros

Set xlw = xl.Workbooks.Open("c:\teste.xls")

' definir qual a planilha de trabalho

xlw.Sheets.Select

'Exibe o conteúdo da célula na posição 2,3

' variavel = xlw.Application.Cells(2, 3).Value

MsgBox ("encontrado")

Text1.Text = xlw.Application.Cells(2, 3).Value

Text5.Text = xlw.Application.Cells(1, 3).Value

' Fechar a planilha sem salvar alterações

' Para salvar mude False para True

xlw.Close False

' Liberamos a memória

Set xlw = Nothing

Set xl = Nothing

End Sub