1

所以就像主题标题说的那样，我正在寻找一些关于宏的帮助。我的工作需要它，所以每次执行客户端备份时，他都会向邮箱发送邮件，这些邮件会导出到文件夹中。这是邮件格式：

Backup Rapport Success 客户名称 File Backup Set Taak 2012-10-23 (20 30)

宏需要做一些事情：

  • 提取客户端名称
  • 提取或备份成功或失败或错过
  • 并在正确的单元格中写入成功或失败消息

这甚至可能吗？

Public Function FileFolderExists(strFullPath As String) As Boolean
'Author       : Ken Puls (www.excelguru.ca)
'Macro Purpose: Check if a file or folder exists
    On Error GoTo EarlyExit
    If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True

EarlyExit:
    On Error GoTo 0
End Function

Public Sub TestFolderExistence()
'Author       : Ken Puls (www.excelguru.ca)
'Macro Purpose: Test if directory exists
    If FileFolderExists("c:\test") Then
        MsgBox "Folder exists!"
    Else
        MsgBox "Folder does not exist!"
    End If
End Sub
4

1 回答 1

0

以下将字符串拆分为单词（但仅当 ClientName 为一个单词时才有效）。

Sub Test()
    Const sIn As String = "Backup Rapport Geslaagd ClientName File Backup Set Taak 2012-10-23 (20 30), "
    Dim sArr() As String

    sArr = Split(sIn, Space(1))

    Debug.Print "Success=" & sArr(2)
    Debug.Print "ClientName=" & sArr(3)
    Debug.Print "Date=" & sArr(8)
End Sub

有很多方法可以将文本输入到单元格中。一个例子：

Range("A1").Value = "Hello"

Range("A2").Value = sArr(2)

编辑

扩展 sub 以获取字符串和范围并输入文本：

Option Explicit

Sub SplitMailStringAndEnterValues(psMail As String, poRange As Range)
    Dim sArr() As String

    '***** Check that poRange is an object
    If Not poRange Is Nothing Then
        sArr = Split(psMail, Space(1))

        '***** Check that sArr is an array
        '***** and that it contains at least 9 strings
        If IsArray(sArr) And UBound(sArr) >= 8 Then
            '***** Enter values starting in range poRange and use
            '***** offset to place other values to the right
            poRange.Value = sArr(2)                 'Success
            poRange.Offset(0, 1).Value = sArr(3)    'ClientName
            poRange.Offset(0, 2).Value = sArr(8)    'Date
        End If
    End If
End Sub

现在为每个邮件字符串调用它，而不是将整个字符串写在一个列中：

Call SplitMailStringAndEnterValues("Backup Rapport Geslaagd ClientName File Backup Set Taak 2012-10-23 (20 30)", Range("Sheet2!A2"))
于 2012-10-25T09:16:55.753 回答