Μετάβαση στο κύριο περιεχόμενο

Πώς να ανοίξετε συγκεκριμένο αρχείο Excel από το Outlook;

Εάν θέλετε να χρησιμοποιείτε συχνά ένα συγκεκριμένο αρχείο Excel όταν εργάζεστε στο Outlook, πρέπει να ανοίξετε αυτό το αρχείο τώρα και ξανά. Υπάρχει γρήγορος και εύκολος τρόπος για να ανοίξετε ένα συγκεκριμένο αρχείο βιβλίου εργασίας από το Outlook; Αυτό το άρθρο, θα μιλήσω για τον τρόπο επίλυσής του.

Ανοίξτε ένα συγκεκριμένο αρχείο Excel από το Outlook με κώδικα VBA


Ανοίξτε ένα συγκεκριμένο αρχείο Excel από το Outlook με κώδικα VBA

Μπορείτε να χρησιμοποιήσετε τον ακόλουθο κώδικα VBA για να ανοίξετε ένα προεπιλεγμένο αρχείο βιβλίου εργασίας όπως χρειάζεστε, κάντε το ως εξής:

1. Στο Outlook, κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στη συνέχεια, κάντε κλικ στο κουμπί Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.

Κωδικός VBA: Ανοίξτε ένα συγκεκριμένο αρχείο Excel από το 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: Στον παραπάνω κώδικα, θα πρέπει να αλλάξετε τη διαδρομή αρχείου Excel: C: \ Users \ DT168 \ Desktop \ split document \ kto-data.xlsx στο δικό σου.

3. Και μετά, ακόμα στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Εργαλεία > αναφορές για να μεταβείτε στο Αναφορές-Έργο 1 πλαίσιο διαλόγου και επιλέξτε Βιβλιοθήκη αντικειμένων του Microsoft Excel Επιλογή από το Διαθέσιμες αναφορές πλαίσιο λίστας, δείτε το στιγμιότυπο οθόνης:

doc ανοιχτό συγκεκριμένο excel 1

4. Στη συνέχεια, κάντε κλικ στο κουμπί OK κουμπί για έξοδο από το παράθυρο διαλόγου, αποθήκευση και κλείσιμο του παραθύρου κώδικα. Τώρα, πρέπει να προσθέσετε αυτόν τον κωδικό στο Γραμμή εργαλείων γρήγορης πρόσβασης.

5. Στην κύρια διεπαφή του Outlook, κάντε κλικ στο Προσαρμογή γραμμής εργαλείων γρήγορης πρόσβασης εικονίδιο και επιλέξτε Περισσότερες εντολές, δείτε το στιγμιότυπο οθόνης:

doc ανοιχτό συγκεκριμένο excel 2

6. Στο Επιλογές του Outlook κουτί διαλόγου:

  • (1.) Επιλέξτε Μακροεντολές από το Επιλέξτε εντολές από αναπτυσσόμενη λίστα
  • (2.) Και, στη συνέχεια, επιλέξτε το όνομα κωδικού VBA που έχετε εισαγάγει μόλις τώρα.
  • (3.) Κάντε κλικ Πρόσθεση για να προσθέσετε τον κωδικό στο Προσαρμογή γραμμής εργαλείων γρήγορης πρόσβασης πλαίσιο λίστας.

doc ανοιχτό συγκεκριμένο excel 3

7. Και μετά εμφανίζεται ένα εικονίδιο μακροεντολών στο Γραμμή εργαλείων γρήγορης πρόσβασης όπως φαίνεται παρακάτω. Από τώρα και στο εξής, όταν κάνετε κλικ σε αυτό το κουμπί, το καθορισμένο αρχείο Excel θα ανοίξει ταυτόχρονα.

doc ανοιχτό συγκεκριμένο excel 4


Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Kutools για το Outlook - Πάνω από 100 ισχυρές δυνατότητες για υπερφόρτιση του Outlook σας

🤖 Βοηθός αλληλογραφίας AI: Άμεσα επαγγελματικά email με μαγεία AI -- με ένα κλικ για ιδιοφυείς απαντήσεις, τέλειος τόνος, πολυγλωσσική γνώση. Μεταμορφώστε τα email χωρίς κόπο! ...

📧 Αυτοματοποίηση ηλεκτρονικού ταχυδρομείου: Εκτός γραφείου (Διαθέσιμο για POP και IMAP)  /  Προγραμματισμός αποστολής email  /  Αυτόματο CC/BCC βάσει κανόνων κατά την αποστολή email  /  Αυτόματη προώθηση (Σύνθετοι κανόνες)   /  Αυτόματη προσθήκη χαιρετισμού   /  Διαχωρίστε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου πολλών παραληπτών σε μεμονωμένα μηνύματα ...

📨 Διαχείριση e-mail: Εύκολη ανάκληση email  /  Αποκλεισμός απάτης email από υποκείμενα και άλλους  /  Διαγραφή διπλότυπων μηνυμάτων ηλεκτρονικού ταχυδρομείου  /  Προχωρημένη Αναζήτηση  /  Ενοποίηση φακέλων ...

📁 Συνημμένα ProΜαζική αποθήκευση  /  Αποσύνδεση παρτίδας  /  Συμπίεση παρτίδας  /  Αυτόματη αποθήκευση   /  Αυτόματη απόσπαση  /  Αυτόματη συμπίεση ...

🌟 Διασύνδεση Magic: 😊Περισσότερα όμορφα και δροσερά emojis   /  Ενισχύστε την παραγωγικότητά σας στο Outlook με προβολές με καρτέλες  /  Ελαχιστοποιήστε το Outlook αντί να κλείσετε ...

???? Με ένα κλικ Wonders: Απάντηση σε όλους με εισερχόμενα συνημμένα  /   Email κατά του phishing  /  🕘Εμφάνιση ζώνης ώρας αποστολέα ...

👩🏼‍🤝‍👩🏻 Επαφές & Ημερολόγιο: Μαζική προσθήκη επαφών από επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου  /  Διαχωρίστε μια ομάδα επαφής σε μεμονωμένες ομάδες  /  Κατάργηση υπενθυμίσεων γενεθλίων ...

Διανεμήθηκαν παραπάνω από 100 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.

 

 

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