Ir para o conteúdo principal

Como abrir um arquivo específico do Excel no Outlook?

Se você quiser usar um arquivo específico do Excel com freqüência ao trabalhar no Outlook, precisará abrir esse arquivo de vez em quando. Existe alguma maneira rápida e fácil de abrir um arquivo de pasta de trabalho especificado no Outlook? Neste artigo, vou falar sobre como resolver isso.

Abra um arquivo específico do Excel no Outlook com o código VBA


Abra um arquivo específico do Excel no Outlook com o código VBA

Você pode usar o seguinte código VBA para abrir um arquivo de pasta de trabalho padrão conforme necessário, faça o seguinte:

1. No Outlook, mantenha pressionado o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Então clique inserção > Móduloe cole o seguinte código no Módulo Janela.

Código VBA: abra um arquivo específico do Excel no Outlook:

Public Sub OpenSpecificExcelWorkbook()
    Dim xExcelFile As String
    Dim xExcelApp As Excel.Application
    Dim xWb As Excel.Workbook
    Dim xWs As Excel.Worksheet
   Dim xExcelRange As Excel.Range
    xExcelFile = "C:\Users\DT168\Desktop\split document\kto-data.xlsx"
    Set xExcelApp = CreateObject("Excel.Application")
    Set xWb = xExcelApp.Workbooks.Open(xExcelFile)
    Set xWs = xWb.Sheets(1)
    xWs.Activate
    Set xExcelRange = xWs.Range("A1")
    xExcelRange.Activate
    xExcelApp.Visible = True
End Sub

Note: No código acima, você deve alterar o caminho do arquivo do Excel: C: \ Users \ DT168 \ Desktop \ split document \ kto-data.xlsx para o seu próprio.

3. E então, ainda no Microsoft Visual Basic para Aplicações janela, clique em Ferramentas > Referências para ir para o Referências-Projeto1 caixa de diálogo e verifique Biblioteca de objetos do Microsoft Excel opção do Referências Disponíveis caixa de lista, veja a captura de tela:

doc abrir excel 1 específico

4. Então clique OK para sair da caixa de diálogo, salve e feche a janela de código. Agora, você deve adicionar este código ao Barra de Ferramentas de Acesso Rápido.

5. Na interface principal do Outlook, clique em Personalize a barra de ferramentas de acesso rápido ícone e selecione Mais comandos, veja a captura de tela:

doc abrir excel 2 específico

6. No Opções do Outlook caixa de diálogo:

  • (1.) Selecione Macros do Escolha comandos de lista suspensa;
  • (2.) Em seguida, escolha o nome do código VBA que você inseriu agora;
  • (3.) Clique Adicionar botão para adicionar o código ao Personalize a barra de ferramentas de acesso rápido caixa de listagem.

doc abrir excel 3 específico

7. E então um ícone de macro é exibido no Barra de Ferramentas de Acesso Rápido como a seguinte captura de tela mostrada. A partir de agora, ao clicar neste botão, o arquivo Excel especificado será aberto imediatamente.

doc abrir excel 4 específico


Melhores ferramentas de produtividade de escritório

Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook

🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...

📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP)  /  Agendar envio de e-mails  /  CC/BCC automático por regras ao enviar e-mail  /  Encaminhamento automático (regras avançadas)   /  Adicionar saudação automaticamente   /  Divida automaticamente e-mails de vários destinatários em mensagens individuais ...

📨 Gestão de E-mail: Lembre-se facilmente de e-mails  /  Bloquear e-mails fraudulentos por assuntos e outros  /  Apagar Emails Duplicados  /  Pesquisa Avançada  /  Consolidar pastas ...

📁 Anexos PróSalvar em lote  /  Desanexar lote  /  Comprimir em Lote  /  Salvamento automático   /  Desanexação Automática  /  Compressão automática ...

???? Interface Mágica: 😊Mais emojis bonitos e legais   /  Aumente a produtividade do seu Outlook com visualizações com guias  /  Minimize o Outlook em vez de fechar ...

???? Maravilhas com um clique: Responder a todos com anexos recebidos  /   E-mails antiphishing  /  🕘Mostrar fuso horário do remetente ...

👩🏼‍🤝‍👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados  /  Dividir um grupo de contatos em grupos individuais  /  Remover lembretes de aniversário ...

Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.

 

 

Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
7行目のファイルのフルパスを修正して使っていますが、読み取り専用で開いてしまい、データを修正した後上書き保存ができませんでした。

ネットワークフォルダにあるエクセルの場合は、読み取り専用で開いてしまうのでしょうか?
Windowsのプレビューウインドウも含めて、Excelアプリケーションは一切開いていない状態でも同様に読み取り専用で開いてしまいます。
何か対処法があれば教えていただければ幸いです。

ちなみに、Outlook、Excelともに2019環境です。
This comment was minimized by the moderator on the site
Hello,
The code works well in my Outlook, and the Excel file opens normally, not open with read only mode.

You can insert your Excel file here if you don't mind, so that I can check the code.

Thank you!
This comment was minimized by the moderator on the site
Outlook rejects the code immediately with an error. "Compile Error. User defined type not defined." And it zeroes in on "Dim xExcelApp As Excel.Application" as the problem. I literally just copied and pasted it as is into the editor and tried to run it and it fails out immediately.
This comment was minimized by the moderator on the site
Did you enable the microsoft excel library first?
This comment was minimized by the moderator on the site
This works pretty well!

Could you help me with the line of code in addition to it on how to close the workbook without saving changes.
This comment was minimized by the moderator on the site
Or you can run .bat file:


.bat:
@echo off
"C:\Program Files (x86)\Microsoft Office\Office12\EXCEL.EXE" "D:\your_file.xlsx"

and VBA:
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "D:\your_BAT.bat" & Chr(34), 0
Set WshShell = Nothing



https://www.winhelponline.com/blog/run-bat-files-invisibly-without-displaying-command-prompt/
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations