FILTRO NO COMMONDIALOG

PASCOAL 25/03/2010 21:38:41
#337918
O QUE ESTA ERRADO AQUI : [Ô]Dateien Word(*.doc)|*.doc| EXcel (*.xls)|*.xls[Ô]
APARECE MAS NÃO FAZ A SELEÇÃO CONFORME A ESCOLHA ?

Obrigado
ERIVELTONVGA 25/03/2010 21:44:04
#337919
pascoal para filtrar eu uso assim, altere ai

On Error Resume Next
[ô] aqui você define o titulo do seu common dialog control
dlgImagem.DialogTitle = [Ô]Definir Caminho das Fotos[Ô]
[ô] InitDir = o diretório que será aberto ao se abrir o common dialog control
dlgImagem.InitDir = [Ô]caminho[Ô]
[ô] FileName determina que a busca seja por todos o arquivos JPG e Bmp
dlgImagem.FileName = [Ô][Ô]
[ô] Filter = filtra somente arquivos JPG e BMP
[txt-color=#e80000] Prop = [Ô]Arqs. pdf(*.pdf) [Ô][/txt-color]
dlgImagem.Filter = Prop
dlgImagem.FilterIndex = 1 [ô] indica a primeira opção
[ô] e agora sim abrir o common dialog
dlgImagem.ShowOpen
[ô] ao se clicar em OK o caminho será salvo no textbox
txtcaminho.Text = dlgImagem.FileName

espero ter ajudado
PASCOAL 25/03/2010 22:06:36
#337921
o que estaerrado pois não faz o filtro conforme a seleção :
Preciso pegar apenas os arquivo .DOC e .XLS
With CommonDialog1
.Filter = [Ô]Dateien (*.doc)|*.doc;(*.xls)|*.xls[Ô]
.FilterIndex = 0
.InitDir = Caminho & [Ô]Vorlagen[Ô]
[ô]Specify file
.DialogTitle = [Ô]Open ![Ô]
.CancelError = True
.ShowOpen
If .Flags = 0 Then
MsgBox [Ô]Nenhum arquivo foi selecionado,[Ô] & vbCrLf & _
[Ô]o programa será encerrado![Ô], vbCritical, [Ô]Atenção[Ô]
Exit Sub
End If
[ô]Save file name in var
MyArq_Abrir = .FileName
End With

Obrigado
ERIVELTONVGA 25/03/2010 22:16:20
#337924
tenta ai e ve se da pra entender...

With CommonDialog1
.Filter = [txt-color=#e80000][Ô]Arquivos texto *.txt|*.txt|Arquivo access *.mdb|*.mdb|Arquivo Excel *.xls|*.xls[Ô][/txt-color]
.FilterIndex = 0
.InitDir = Caminho & [Ô]Vorlagen[Ô]
[ô]Specify file
.DialogTitle = [Ô]Open ![Ô]
.CancelError = True
.ShowOpen
If .Flags = 0 Then
MsgBox [Ô]Nenhum arquivo foi selecionado,[Ô] & vbCrLf & _
[Ô]o programa será encerrado![Ô], vbCritical, [Ô]Atenção[Ô]
Exit Sub
End If
[ô]Save file name in var
MyArq_Abrir = .FileName
End With


beleza.
PASCOAL 25/03/2010 22:22:52
#337925
só abre o primerio .doc :

With CommonDialog1
.Filter = [Ô]Dateien *.DOC|*.DOC|*.XLS|*.XLS|*.xlsx|*.xlsx|*.docx|*.docx[Ô][Ô][Ô]
.FilterIndex = 0
.InitDir = Caminho & [Ô]Vorlagen[Ô]
[ô]Specify file
.DialogTitle = [Ô]Open ![Ô]
.CancelError = True
.ShowOpen
If .Flags = 0 Then
MsgBox [Ô]Nenhum arquivo foi selecionado,[Ô] & vbCrLf & _
[Ô]o programa será encerrado![Ô], vbCritical, [Ô]Atenção[Ô]
Exit Sub
End If
[ô]Save file name in var
MyArq_Abrir = .FileName
End With
ERIVELTONVGA 25/03/2010 22:30:50
#337927
tenta colocar o nome antes do arquivo

.Filter = [Ô]dateien *.txt|*.txt|dateien *.xlsx|*.xlsx|dateien *.xls|*.xls|dateien *.docx|*.docx[Ô]

so que no filtro ele vai filtrar um a um olha ai pra voce ver agora eu testei aqui e funcionou...

beleza
PEGUDO 29/03/2010 20:59:24
#338172
Cara uma vez aconteceu comigo também.
Verifique se você está colocando espaços vazios entre os filtros
Exemplo:
Filter = [Ô]Dateien (*.doc) | *.doc | Excel (*.xls) | *.xls[Ô]

Note que eu coloquei, INTENCIONALMENTE, espaços entre os caracteres de separação, ou seja, o [Ô] | [Ô].

Faça assim:
Filter = [Ô]Dateien (*.doc)|*.doc|Excel (*.xls)|*.xls[Ô]

Evite os espaçoos entre os caracteres de separação ( | ) e evite, também, as letras maiúsculas. Ex: *.DOC.

Valeu.
Espero ter ajudado.
JESUEL.OLIVEIRA 29/03/2010 23:21:36
#338188
tente

  .Filter = [Ô]Arquivos Texto (*.txt)|*.txt|Todos os arquivos (*.*)|*.*[Ô]
PASCOAL 31/03/2010 08:33:04
#338303
ainda não deu certo apenas a ultima opção é que mostra os documentos :

.Filter = [Ô]dateien (*.doc)|*.doc |dateien (*.xlsx) |*.xlsx| dateien (*.xls)|*.xls|dateien (*.docx)|*.docx[Ô]

Obrigado
ERIVELTONVGA 31/03/2010 09:54:58
#338311
pascoal bom dia

voce quer que apareca todas estas opcao ao mesmo tempo ou voce quer filtar um a um, no caso o que eu citei por ultimo acima. conforme voce seleciona vai aparecendo os filtros.

eu testei aqui antes de postar e funcionou.

Citação:

:
tenta colocar o nome antes do arquivo

.Filter = [Ô]dateien *.txt|*.txt|dateien *.xlsx|*.xlsx|dateien *.xls|*.xls|dateien *.docx|*.docx[Ô]

so que no filtro ele vai filtrar um a um olha ai pra voce ver agora eu testei aqui e funcionou...

beleza
WEBMASTER 31/03/2010 12:32:21
#338325 Resposta escolhida
Para resumir e nao ter que ficar passando combinacoes...

O parametro filter usa [Ô] | [Ô] como delimitador, ou seja, o filtro eh composto de legenda + tipo de arquivo, separados por [Ô] | [Ô], logo:

Arquivo de texto (*.txt) | *.txt
Tópico encerrado , respostas não são mais permitidas
Voltar