INFO: O Microsoft Office XP FileDialog objeto

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 288543
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Sumário
Microsoft Office fornece um objeto FileDialog que fornece funcionalidade que é semelhante às padrão Abrir e Salvar caixas de diálogo são encontradas em todos os aplicativos do Office. Usando objetos FileDialog em seu Visual Basic para Applications (VBA) soluções, você pode facilmente fornecer uma interface de usuário para seleção de arquivo ou arquivo de nomeação sem a necessidade de soluções de terceiros ou controles ActiveX adicionais.
Mais Informações
Para usar um objeto FileDialog , primeiro você deve chamar a propriedade FileDialog de um objeto de aplicativo do Office XP e fornecer um argumento para DialogType . Há quatro tipos de caixas de diálogo de arquivo:
  • Abrir caixa de diálogo ( msoFileDialogOpen ) - permite que os usuários selecionem um ou mais arquivos. Se você optar por fazer isso, você pode, em seguida, abrir o arquivo selecionado ou os arquivos no aplicativo host usando o método execute .
  • Caixa de diálogo Salvar como ( msoFileDialogSaveAs ) - permite que usuários selecionem um único arquivo. Se você optar por fazer isso, você pode, em seguida, salve o arquivo atual usando o método execute .
  • Arquivo selecionador de diálogo ( msoFileDialogFilePicker ) - permite que usuários para selecionar um ou mais arquivos. Os caminhos de arquivo que o usuário seleciona são capturados na coleção FileDialogSelectedItems .
  • Diálogo de selecionador de pasta ( msoFileDialogFolderPicker ) - permite que usuários selecionar uma pasta. O caminho para a pasta selecionada é capturado na coleção FileDialogSelectedItems .
Cada host de aplicativo do Office só pode instanciar uma única instância de um objeto FileDialog . Muitas das propriedades do objeto FileDialog persistem mesmo quando você criar vários objetos FileDialog . Portanto, você deve inicializar todas as propriedades de diálogo corretamente para sua finalidade antes de exibir a caixa de diálogo.

Depois de ter uma referência a um objeto FileDialog , você pode exibir a caixa de diálogo usando o método Show . Todos os objetos FileDialog são modais, portanto, uma vez que uma caixa de diálogo é exibida, nenhum código continua a executar até que a caixa de diálogo é descartada. Seu código também pode verificar o valor de retorno do método Show para determinar se o usuário aceita ou cancela a seleção de arquivo (ou pasta) e, em seguida lidar com essa condição como necessário.

O código a seguir exemplo VBA cria e mostra uma caixa de diálogo genérica de seleção de arquivos. Quando você executar o código para exibir a caixa de diálogo, selecione um ou mais arquivos e clique em OK para fechar a caixa de diálogo. Cada uma das suas seleções de arquivo é exibida em uma caixa de mensagem. Observe que você pode usar a combinação de teclas CTRL + SHIFT na caixa de diálogo para selecionar vários arquivos.
Sub Main()    'Declare a variable as a FileDialog object.    Dim fd As FileDialog    'Create a FileDialog object as a File Picker dialog box.    Set fd = Application.FileDialog(msoFileDialogFilePicker)    'Declare a variable to contain the path    'of each selected item. Even though the path is a String,    'the variable must be a Variant because For Each...Next    'routines only work with Variants and Objects.    Dim vrtSelectedItem As Variant    'Use a With...End With block to reference the FileDialog object.    With fd        'Use the Show method to display the File Picker dialog box        'The user pressed the action button.        If .Show = -1 Then            'Step through the FileDialogSelectedItems collection.            For Each vrtSelectedItem In .SelectedItems                'vrtSelectedItem contains the path of each selected item.                'Here use any file I/O functions you want on the path.                'This example simply displays the path in a message box.                MsgBox "The path is: " & vrtSelectedItem            Next vrtSelectedItem        'The user pressed Cancel.        Else        End If    End With    'Set the object variable to Nothing.    Set fd = NothingEnd Sub				
depois que você chama o método Show para exibir uma caixa de diálogo de arquivo, se a caixa de diálogo for do tipo msoFileDialogOpen ou msoFileDialogSaveAs , você pode chamar o método execute para executar o padrão Abrir ou salvar ação. Por exemplo, se o tipo de caixa de diálogo de arquivo for msoFileDialogOpen , você pode chamar o método execute para abrir o arquivo selecionado pelo usuário.

Observação adicional

Porque uma caixa de diálogo de arquivo só pode ser acessada, chamando a propriedade FileDialog de um objeto de aplicativo do Office, o uso de uma caixa de diálogo arquivo Office requer uma instância em execução de um aplicativo do Office XP. Portanto, você não pode usar as caixas de diálogo arquivo Office em um aplicativo do Office não sem a automação para um aplicativo do Office.
Referências
Para obter informações adicionais, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
279508ACC2002: Como exibir e usar a caixa de diálogo arquivo no Microsoft Access 2002
SaveAs filepicker folderpicker

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 288543 - Última Revisão: 12/06/2015 00:29:04 - Revisão: 4.2

Microsoft Office XP Developer Edition, Microsoft Access 2002 Standard Edition, Microsoft Excel 2002 Standard Edition, Microsoft PowerPoint 2002 Standard Edition, Microsoft Word 2002 Standard Edition

  • kbnosurvey kbarchive kbmt kbinfo KB288543 KbMtpt
Comentários