Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

Sut i agor ffeil Excel benodol o Outlook?

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


Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch i'w Rhagweld, a Gwneud Gwaith yn Haws Osgach!

  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl arfer; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangoswch neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst mewn eiliadau; Auto Ychwanegu Cyfarchiad wrth ateb; Ychwanegu Dyddiad i'r pwnc ...
  • Offer Ymlyniad: Rheoli Pob Atodiad ym mhob Post, Datgysylltiad Auto, Cywasgu Pawb, Ail-enwi Pawb, Arbed Pawb ... Adroddiad Cyflym, Cyfrif Postiau Dethol...
  • E-byst Sothach Pwerus yn ôl arfer; Tynnwch y Post a Chysylltiadau Dyblyg... Yn eich galluogi i wneud yn ddoethach, yn gyflymach ac yn well yn Outlook.
tab kutools rhagweld kutools tab 1180x121
kutools rhagweld rhagolygon kutools ynghyd â thab 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Dustin · 1 years ago
    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.
    • To post as a guest, your comment is unpublished.
      Anthony · 10 months ago
      Did you enable the microsoft excel library first?
  • To post as a guest, your comment is unpublished.
    Gitanshu · 1 years ago
    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.
  • To post as a guest, your comment is unpublished.
    w · 2 years ago
    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/