如果来自 excel 的语句得分以使用 VBA 更改 word 中的文本

Question

我在直接从具有某些值的数据库中提取的 Excel 表中有不同的分数。我想从 excel 中提取这些分数，并能够使用 if 语句更改 word 文档中的文本（例如，如果单元格中的分数（2、2）> 60（在 excel 中）=删除/替换某个文本（在 word 中））用VBA。有谁知道我将如何编译这个宏？

我试过的代码：

Private Sub CommandButton8_Click()

Dim objExcel As New Excel.Application

Dim exWb As Excel.Workbook

Set exWb = objExcel.Workbooks.Open("C:\Desktop\Testdoc.xlsx")

If score.Cells(2, 2) >= 60 Then

Function FnOpeneWordDoc()

   Dim objWord

   Dim objDoc

   Set objWord = CreateObject("Word.Application")

   Set objDoc = objWord.Documents.Open("C:\Desktop\TestDoc.docm")

   objWord.Visible = True

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

    With Selection.Find
    .Text = "text here"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With

End Function

End If

exWb.Close

Set exWb = Nothing

End Function

编辑：新代码：

Private Sub CommandButton7_Click()

Dim objExcel As New Excel.Application

Dim exWb As Excel.Workbook

Set exWb = objExcel.Workbooks.Open("C:\UsersDesktop\Testdoc.xlsx")

If exWb.Sheets(1).Cells(2, 2).Value >= 60 Then Run [BLA]

If Not exWb.Sheets(1).Cells(2, 2).Value >= 60 Then Run [BLA2]

End If

exWb.Close

Set exWb = Nothing

End Sub

Function BLA()
With Selection.Find
.ClearFormatting
.Text = "Old text"
.Replacement.ClearFormatting
.Replacement.Text = ""
.Execute Replace:=wdReplaceAll, Forward:=True, _
    Wrap:=wdFindContinue

End With

End Function

Function BLA2()
With Selection.Find
.ClearFormatting
.Text = "Old text"
.Replacement.ClearFormatting
.Replacement.Text = "Old text"
.Execute Replace:=wdReplaceAll, Forward:=True, _
    Wrap:=wdFindContinue

End With

End Function

Answer 1

您的问题很难理解，因为您的代码没有意义。首先，您在 sub 中定义了一个函数。那永远不会编译。您需要将函数或子函数分开。

然后您似乎以End Function 结束子 - 也会导致错误。顺便说一句，函数返回值，如果您不想返回某些内容，请使用 Subs。

最后，您还没有提到您将如何以及在何处运行代码。 FnOpeneWordDoc 首先打开 Word 打开 Word 文档，CommandButton8_Click 首先打开 Excel 打开 Excel xlsx。要么你从 Excel 运行它，然后你只需要打开 Word，因为 Excel 已经打开，或者相反。从 Excel 中尝试以下操作。我不知道你想在 Word 中做什么，所以我注释掉了无法编译的代码。我希望它能让你朝着正确的方向前进。

Option Explicit

Private Sub CommandButton8_Click()
    Dim exWb As Workbook

    Set exWb = Workbooks.Open("C:\Desktop\Testdoc.xlsx")

    If exWb.Sheets(1).Cells(2, 2).Value >= 60 Then
        Call FnOpeneWordDoc
    End If

    exWb.Close

    Set exWb = Nothing
End Sub


Sub FnOpeneWordDoc()
    Dim objWord

    Dim objDoc

    Set objWord = CreateObject("Word.Application")

    Set objDoc = objWord.Documents.Open("C:\Desktop\TestDoc.docm")

    objWord.Visible = True


    'Selection.Find.ClearFormatting

    'Selection.Find.Replacement.ClearFormatting

    'With Selection.Find
    '    .Text = "text here"
    '    .Replacement.Text = ""
    '    .Forward = True
    '    .Wrap = wdFindContinue
    '    .Format = False
    '    .MatchCase = False
    '    .MatchWholeWord = False
    '    .MatchWildcards = False
    '    .MatchSoundsLike = False
    '    .MatchAllWordForms = False
    'End With

    Set objDoc = Nothing
    Set objWord = Nothing

End Sub

编辑：回复评论 - 当然，这就是If exWb.Sheets(1).Cells(2, 2).Value >= 60 Then 行的作用。如果 B2 中的值等于或大于 60，则运行FnOpeneWordDoc。

额外提示：您可以在 VBA 环境中使用即时窗口 (CTRL+G) 来评估条件，方法是输入问号 ?，然后条件：

?exWb.Sheets(1).Cells(2, 2).Value >= 60

将返回 True 或 False。

编辑#2： 您有两个 If 语句，其中一个更好。此外，第二个 If 语句不正确。你要么有If True Then [Command]，要么在下面一行的[Command]后面加上End If - 你把两者混合起来。

尝试以下基本代码，稍后再添加详细信息 - 如果可能，请删除其他所有内容。

Option Explicit

Private Sub CommandButton8_Click()
    '***** Check to see if something
    '***** is bigger than something else
    If 61 >= 60 Then
        '***** Run sub FnOpeneWordDoc
        Call FnOpeneWordDoc
    Else
        '***** Do nothing
    End If
End Sub


Sub FnOpeneWordDoc()
    '***** Do something cool
End Sub

编辑#3： 如果您使用正确的语法，您的 If 语句实际上可以工作：

'***** Use either one line without "End If"...
If exWb.Sheets(1).Cells(2, 2).Value >= 60 Then Run [BLA]

'***** ...or this syntax, where you must use "End If"
If Not exWb.Sheets(1).Cells(2, 2).Value >= 60 Then
    Run [BLA2]
    '***** You can add more lines here if you want
End If