Skip i'r prif gynnwys

Sut i agor ffeil Excel benodol o Outlook?

Awdur: Xiaoyang Wedi'i Addasu Diwethaf: 2018-09-19

Os ydych chi am ddefnyddio ffeil Excel benodol yn aml wrth weithio ar Outlook, felly mae angen ichi agor y ffeil hon nawr ac yn y man. A oes unrhyw ffordd gyflym a hawdd ichi agor ffeil llyfr gwaith penodol gan Outlook? Yr erthygl hon, byddaf yn siarad am sut i'w datrys.

Agorwch ffeil Excel benodol o Outlook gyda chod VBA


Agorwch ffeil Excel benodol o Outlook gyda chod VBA

Gallwch ddefnyddio'r cod VBA canlynol i agor ffeil llyfr gwaith diofyn yn ôl yr angen, gwnewch hyn:

1. Yn Outlook, daliwch y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yna, cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Agorwch ffeil Excel benodol o 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

Nodyn: Yn y cod uchod, dylech newid llwybr ffeil Excel: C: \ Defnyddwyr \ DT168 \ Penbwrdd \ dogfen hollt \ kto-data.xlsx i'ch pen eich hun.

3. Ac yna, yn dal yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch offer > Cyfeiriadau i fynd i'r Cyfeiriadau-Prosiect1 blwch deialog, a gwirio Llyfrgell Gwrthrychau Microsoft Excel opsiwn gan y Cyfeiriadau sydd ar Gael blwch rhestr, gweler y screenshot:

doc agor rhagoriaeth benodol 1

4. Yna, cliciwch OK botwm i adael y dialog, cadw a chau'r ffenestr cod. Nawr, dylech ychwanegu'r cod hwn at y Bar Offer Mynediad Cyflym.

5. Ym mhrif ryngwyneb yr Outlook, cliciwch Addasu Bar Offer Mynediad Cyflym eicon, a dewis Mwy o Orchmynion, gweler y screenshot:

doc agor rhagoriaeth benodol 2

6. Yn y Dewisiadau Outlook blwch deialog:

  • (1.) Dewis Macros oddi wrth y Dewiswch orchmynion oddi wrth rhestr ostwng;
  • (2.) Ac yna dewiswch yr enw cod VBA rydych chi wedi'i fewnosod dim ond nawr;
  • (3.) Cliciwch Ychwanegu botwm i ychwanegu'r cod yn y Addasu Bar Offer Mynediad Cyflym blwch rhestr.

doc agor rhagoriaeth benodol 3

7. Ac yna mae eicon macro yn cael ei arddangos i mewn i'r Bar Offer Mynediad Cyflym fel y dangosir y screenshot canlynol. O hyn ymlaen, pan gliciwch y botwm hwn, bydd eich ffeil Excel benodol yn cael ei hagor ar unwaith.

doc agor rhagoriaeth benodol 4


Offer Cynhyrchiant Swyddfa Gorau

Kutools ar gyfer Rhagolwg - Dros 100 o Nodweddion Pwerus i Werthu Eich Outlook

🤖 Cynorthwy-ydd Post AI: E-byst pro ar unwaith gyda hud AI - un clic i atebion athrylith, tôn berffaith, meistrolaeth amlieithog. Trawsnewid e-bostio yn ddiymdrech! ...

📧 E-bostio Automation: Allan o'r Swyddfa (Ar gael ar gyfer POP ac IMAP)  /  Amserlen Anfon E-byst  /  Auto CC/BCC gan Reolau Wrth Anfon E-bost  /  Awto Ymlaen (Rheolau Uwch)   /  Auto Ychwanegu Cyfarchiad   /  Rhannwch E-byst Aml-Dderbynnydd yn Negeseuon Unigol yn Awtomatig ...

📨 Rheoli E-bost: Dwyn i gof E-byst yn Hawdd  /  Rhwystro E-byst Sgam gan Bynciau ac Eraill  /  Dileu E-byst Dyblyg  /  Chwilio Manwl  /  Cydgrynhoi Ffolderi ...

📁 Ymlyniadau ProArbed Swp  /  Swp Datgysylltu  /  Cywasgu Swp  /  Auto Achub   /  Datgysylltiad Auto  /  Cywasgiad Auto ...

🌟 Rhyngwyneb Hud: 😊Mwy o Emojis Pretty a Cŵl   /  Rhowch hwb i'ch Cynhyrchiant Outlook gyda Golygfeydd Tabbed  /  Lleihau Outlook Yn lle Cau ...

???? Rhyfeddodau un clic: Ateb Pawb ag Ymlyniadau Dod i Mewn  /   E-byst Gwrth-Gwe-rwydo  /  🕘Dangos Parth Amser yr Anfonwr ...

👩🏼‍🤝‍👩🏻 Cysylltiadau a Chalendr: Swp Ychwanegu Cysylltiadau O E-byst Dethol  /  Rhannwch Grŵp Cyswllt i Grwpiau Unigol  /  Dileu Atgoffa Pen-blwydd ...

Dros Nodweddion 100 Aros Eich Archwiliad! Cliciwch Yma i Ddarganfod Mwy.

 

 

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