小编Ada*_*d02的帖子

我想将邮件从发件人移动到我为发件人创建的文件夹.

SenderName显示为"Doe,John(US)",我的文件夹将是"Doe,John".

我需要做什么来将SenderName与下面两级的子文件夹名称进行比较 "Inbox". I.e. Inbox?Folder1?"Doe, John".

Public Sub MoveToFolder()
Dim objOutlook As Outlook.Application
Dim objNameSpace As Outlook.NameSpace
Dim objDestFolder As Outlook.MAPIFolder
Dim objSourceFolder As Outlook.Folder
Dim currentExplorer As Explorer
Dim Selection As Selection
Dim obj As Object

Dim objSubfolder As Outlook.Folder
Dim olsubFolder As Outlook.Folder

Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim olFolder As Outlook.MAPIFolder
Dim Msg As Outlook.MailItem

Dim objVariant As Variant
Dim lngMovedItems As Long
Dim intCount As Integer

Set objOutlook = Application
Set objNameSpace …

如果在Sheet1上的字符串中找到Sheet2!A2值!A:A,那么Sheet1!"B2"=偏移(Sheet2!"A2",0,1)即,我在Sheet2上有一系列值是一部分Sheet1范围内的值.如果在Sheet1上的值范围内找到Sheet2上的值,那么我希望我的结果是Sheet1上的相邻值,作为Sheet2中的相邻值.如何在VBA中取得最佳成绩？

这是我需要将公式合并到的代码: 代码现在正在运行

Sub ListAllFiles()

    Dim objShell As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim ws As Worksheet
       Set ws = Sheets("Sheet1")
    Dim myExt1 As String
    Dim myExt2 As String
        myExt1 = "pptx"
        myExt2 = "pdf"

    Set ws = Sheets("Sheet1")
    Set objShell = CreateObject("Shell.Application")
'Get the folder object associated with the directory
Set objFolder = objShell.Namespace("\\sitefs\www\htdocs\c13\comm\IMS\Schedules\")

    Dim objFolderItems As FolderItems
    Dim objFolderItem As FolderItem
        Set objFolderItems = objFolder.Items()

'Loop through the Files collection
Dim fOwner …