Question

我想编写一个宏，可以在大约100个文件夹中找到名称为XXXX_TestSummary的文件，并在这些文件中搜索单词“Failed”。宏应返回包含文本或excel的单词失败的文件名。

我卡住了，因为我可以在文件夹中找到文件名。以下是代码

void CComboBoxOwn::OnPaint()
{
CDC *dc = m_Parent->combobox->GetDC();
CRect rc; 
m_Parent->combobox->GetClientRect(rc);
HBRUSH hBrush = CreateSolidBrush(COLORREF(RGB(255, 0, 0)));
FrameRect(dc->m_hDC, rc, hBrush);
DeleteObject(hBrush);
ReleaseDC(dc);

return;
}

可以请任何人帮忙解决这个问题吗？

Answer 1

如果您使用上面的代码，则需要在循环中添加一些代码：

For Each xFile In xFolder.Files
    Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Name
    (ADD CODE HERE)
    rowIndex = rowIndex + 1
Next xFile

或者，您可以在该循环顶部添加if语句，以检查xFile.Name是否包含“失败”：

For Each xFile In xFolder.Files
    If InStr(xFile.Name, "Failed") Then
        Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Name
        rowIndex = rowIndex + 1
    End If
Next xFile

这样，您只会在名称文本中列出包含“失败”的文件。

Excel VBA宏在.doc文件中查找文本

1 个答案: