Botão para abrir arquivo excel

[Manuel Vieira 0]

Boa tarde! Estou com uma dúvida: No formulário sei q é possível criar um botão para abrir o excel, porém gostaria de saber como fazer para abrir o excel com um arquivo já definido Ex: Casa.xls

Obrigado!

[quintelab 91]

Clique com o botão do lado direito do mouse na area de trabalho da access, selecione a opção vincular tabelas, na caixa de diálogo selecione arquivos do tipo Microsoft Excel.

Abrirá um pequeno assistente para definição de qual planilha você irá vincular e para definição dos nomes dos campos

fonte: http://forumaccess.com/eve/forums/a/tpc/f/...98601331/inc/-1

 

Abraços...

[Julien.Sorel 0]

Olá Pessoas,

 

Olhando alguns posts antigos - possivelemente já esclarecidos anteriormente -, resolvi encontrar uma outra maneira para solucioná-los.

 

Talvez seja uma forma mais fácil de resolver - ou não -, mas de qualquer maneira, é mais uma opção.

 

Oitavo exemplo - abrir arquivo a partir do access:

 

Neste exemplo serão necessários três objetos, além do formuário: um campo texto (txtDir) e dois botões de comando (cmdDir e cmdAbrir)...

 

 

 

Private Sub cmdAbrir_Click()

    Shell "explorer.exe " & txtDir

End Sub
Private Sub cmdDir_Click()

Set FD = Application.FileDialog(msoFileDialogFilePicker)
    
    With FD
        .Filters.Add "...", "*.*", 1
        .Title = "Selecionar arquivo..."
        If .Show = -1 Then
            For Each vrtSelectedItem In .SelectedItems
                txtDir = vrtSelectedItem
                cmdAbrir.Enabled = True
                gstrCaminhoAccess = txtDir
                
            Next vrtSelectedItem
        End If
    End With
    
    Set FD = Nothing

Exit_Tratar_Err:
    Exit Sub

Tratar_Err:
    MsgBox "Número: " & Err.Number & vbLf & "Descrição: " & Err.Description, 16, "Sistema"
    Resume Exit_Tratar_Err

End Sub

 

 

PS: não deixar de habilitar o opção "", em VBA > Ferramentas > Referências > 'Microsoft Office 12.0 Objectt Library'

 

 

 

Sem mais,

 

Julien Sorel