Konkreetse Wordi dokumendi või Exceli töövihiku kiire avamine Outlookis VBA kaudu

Võib-olla peate e-kirjade koostamisel sageli viitama konkreetsetele failidele, mis on salvestatud teie kohalikule kõvakettale, nagu Wordi dokument või Exceli töövihik. Nii et see artikkel õpetab teid kiiresti avama konkreetseid faile Outlookist VBA kaudu.

Kas teil on sageli vaja Outlookis oma e-kirju käsitledes kontrollida või viidata konkreetsetele failidele? Näiteks on teie ettevõte kehtestanud palju reegleid meie klientidele saadetavate meilide jaoks ja reeglid on loetletud konkreetses Wordi dokumendis. Seetõttu peate iga kord, kui koostate sellist klientidele saadetud meili, viitama konkreetsele dokumendile. Sel juhul on üsna mugav, kui saate konkreetse faili otse Outlookist avada. Õnneks saate selle Outlook VBA abil saavutada.

Avage Outlookis konkreetne Wordi dokument

1. Sest nagutart, start oma Outlooki rakendust.
2. Seejärel vajutage Outlooki VBA redaktorile juurdepääsu saamiseks klahvikombinatsiooni Alt + F11,
3. Seejärel avage hüpikdialoogiboksis moodul, mida ei kasutata, või sisestage uus uus moodul, valides "Insert" > "Module".
4. Pärast seda peaksite kopeerima järgmised VBA koodid uude moodulisse.

Public Sub OpenSpecificWordDocument()
    Dim strFile As String
    Dim objWordApp As Word.Application
    Dim objWordDocument As Word.Document
    Dim objWordTable As Word.Table
    Dim objWordRange As Word.Range
 
    'Change the following line to point to your own Word document on your local disk
    strFile = "E:\Email\Email Rules.docx"

    Set objWordApp = CreateObject("Word.Application")
    Set objWordDocument = objWordApp.Documents.Open(strFile)
    objWordDocument.Activate
    Set objWordRange = objWordDocument.Range(0, 0)
    objWordApp.Visible = True
    objWordDocument.ActiveWindow.Visible = True
End Sub

5. Hiljem saate sulgeda VBA redaktori ja lisada VBA projekti kiirpääsu tööriistaribale või lindile. Siin on näiteks kiirjuurdepääsu tööriistariba, saate järgida alloleval pildil näidatud samme:
6. Lõpuks saate naasta Outlooki põhiaknasse. Niipea, kui klõpsate kiirjuurdepääsu tööriistaribal makronupul, avaneb konkreetne Wordi dokument, mis on näidatud järgmise ekraanipildina:

Avage Outlookis konkreetne Exceli töövihik

Kui loodate Outlookis kiiresti avada konkreetse Exceli töövihiku, saate kasutada järgmisi VBA koode.

Public Sub OpenSpecificExcelWorkbook()
    Dim strFile As String
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkBook As Excel.Workbook
    Dim objExcelWorkSheet As Excel.Worksheet
    Dim objExcelRange As Excel.Range

    'Change the following line to point to your own Word document on your local disk
    strFile = "E:\Email\Email Statistics.xlsx"

    Set objExcelApp = CreateObject("Excel.Application")
    Set objExcelWorkBook = objExcelApp.Workbooks.Open(strFile)
    Set objExcelWorkSheet = objExcelWorkBook.Sheets(1)
    objExcelWorkSheet.Activate
    Set objExcelRange = objExcelWorkSheet.Range("A1")
    objExcelRange.Activate
    objExcelApp.Visible = True
End Sub

Järgmisena saate lisada uue makro kiirpääsu tööriistaribale nagu tavaliselt. Kui vajutate vastavat nuppu, kuvatakse konkreetne Exceli töövihik.

Ärge kunagi viivitage Outlooki vigade lahendamisega

Kuna Outlook on vastuvõtlik vigadele, peate selles olema kokku puutunud mitmesuguste probleemidega. Mõned neist võivad olla nii väikesed ja surmavad. Seetõttu võib teie Outlook mõnikord töötada nagu tavaliselt, kuigi te kannatate neid. Kuid parem on need selgeks teha. Vastasel juhul põhjustab Outlooki lahendamata probleemide kogunemine teie Outlooki andmetele tõsist kahju. Sel hetkel, kui soovite parandada Outlook, peate kasutama usaldusväärset ja mainekat tööriista, nagu DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas paranda mdf ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom