Bỏ qua nội dung chính

Cách mở tệp Excel cụ thể từ Outlook?

Nếu bạn muốn sử dụng một tệp Excel cụ thể thường xuyên khi làm việc trên Outlook, vì vậy bạn cần phải mở tệp này ngay bây giờ và sau đó. Có cách nào nhanh chóng và dễ dàng để bạn mở tệp sổ làm việc được chỉ định từ Outlook không? Bài viết này, tôi sẽ nói về cách giải quyết nó.

Mở một tệp Excel cụ thể từ Outlook bằng mã VBA


Mở một tệp Excel cụ thể từ Outlook bằng mã VBA

Bạn có thể sử dụng mã VBA sau để mở tệp sổ làm việc mặc định khi bạn cần, vui lòng thực hiện như sau:

1. Trong Outlook, nhấn giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Sau đó nhấn vào Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.

Mã VBA: Mở một tệp Excel cụ thể từ 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

Chú thích: Trong đoạn mã trên, bạn nên thay đổi đường dẫn tệp Excel: C: \ Users \ DT168 \ Desktop \ split document \ kto-data.xlsx của riêng bạn.

3. Và sau đó, vẫn trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp CÔNG CỤ > dự án đi đến Tài liệu tham khảo-Dự án1 hộp thoại và kiểm tra Thư viện đối tượng Microsoft Excel tùy chọn từ Tài liệu tham khảo có sẵn hộp danh sách, xem ảnh chụp màn hình:

doc mở excel cụ thể 1

4. Sau đó nhấn vào OK để thoát khỏi hộp thoại, lưu và đóng cửa sổ mã. Bây giờ, bạn nên thêm mã này vào Thanh công cụ truy cập nhanh.

5. Trong giao diện chính của Outlook, nhấp vào Tùy chỉnh thanh công cụ truy cập nhanh biểu tượng và chọn Các lệnh khác, xem ảnh chụp màn hình:

doc mở excel cụ thể 2

6. Trong tạp chí Tùy chọn Outlook hộp thoại:

  • (1.) Chọn Macros từ Chọn lệnh từ danh sách thả xuống;
  • (2.) Và sau đó chọn tên mã VBA mà bạn đã chèn ngay bây giờ;
  • (3.) Nhấp vào Thêm để thêm mã vào Tùy chỉnh thanh công cụ truy cập nhanh hộp danh sách.

doc mở excel cụ thể 3

7. Và sau đó, một biểu tượng macro được hiển thị trong Thanh công cụ truy cập nhanh như ảnh chụp màn hình sau được hiển thị. Từ bây giờ, khi bạn nhấp vào nút này, tệp Excel được chỉ định của bạn sẽ được mở ngay lập tức.

doc mở excel cụ thể 4


Công cụ năng suất văn phòng tốt nhất

Kutools cho Outlook - Hơn 100 tính năng mạnh mẽ để tăng cường Outlook của bạn

🤖 Trợ lý thư AI: Email chuyên nghiệp tức thì với phép thuật AI--một cú nhấp chuột để có câu trả lời xuất sắc, giọng điệu hoàn hảo, khả năng thông thạo đa ngôn ngữ. Chuyển đổi email một cách dễ dàng! ...

📧 Tự động hoá email: Vắng Mặt (Có sẵn cho POP và IMAP)  /  Lên lịch gửi email  /  Tự động CC/BCC theo quy định khi gửi Email  /  Tự động chuyển tiếp (Quy tắc nâng cao)   /  Tự động thêm lời chào   /  Tự động chia email nhiều người nhận thành các tin nhắn riêng lẻ hữu ích. Cảm ơn !

📨 Quản lý email: Dễ dàng thu hồi email  /  Chặn email lừa đảo theo chủ đề và những người khác  /  Xóa các email trùng lặp  /  Tìm Kiếm Nâng Cao  /  Hợp nhất các thư mục hữu ích. Cảm ơn !

📁 Tệp đính kèm chuyên nghiệpLưu hàng loạt  /  Tách hàng loạt  /  Nén hàng loạt  /  Tự động lưu   /  Tự động tách  /  Tự động nén hữu ích. Cảm ơn !

🌟 Giao diện ma thuật: 😊Thêm nhiều biểu tượng cảm xúc đẹp và thú vị hơn   /  Tăng năng suất Outlook của bạn với chế độ xem theo thẻ  /  Thu nhỏ Outlook thay vì đóng hữu ích. Cảm ơn !

👍 Kỳ quan chỉ bằng một cú nhấp chuột: Trả lời tất cả bằng tệp đính kèm đến  /   Email chống lừa đảo  /  🕘Hiển thị múi giờ của người gửi hữu ích. Cảm ơn !

👩🏼‍🤝‍👩🏻 Danh bạ & Lịch: Thêm hàng loạt liên hệ từ các email đã chọn  /  Chia nhóm liên hệ thành các nhóm riêng lẻ  /  Xóa lời nhắc sinh nhật hữu ích. Cảm ơn !

Trên 100 tính năng Chờ đợi sự khám phá của bạn! Bấm vào đây để khám phá thêm.

 

 

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