Question

我正在寻找正确的语法来返回workbook.worksheet中表的行数。找到此代码并需要语法帮助：＆＃34;获取对象变量或未设置块变量。＆＃34;

我正在尝试验证表是否包含数据，如果不重新运行更新代码。如果有更好的方式随时提出建议。

感谢。

    nRows = ActiveWorkbook.Worksheets("ResPlan_Data").ListObjects("Res_Plan_Data").DataBodyRange.Rows.Count


                        nRows = ActiveWorkbook.Worksheets("ResPlan_Data").ListObjects("Res_Plan_Data").DataBodyRange.Rows.Count
                        If nRows = 0 And Range("A3").Select <> Null Then
                            Range("A3").Select
                            Range(Selection, Selection.End(xlDown)).Select
                            Range(Selection, Selection.End(xlToRight)).Select
                            Selection.Copy
                            Range("Res_Plan_Data[ResourceFile]").Select
                            ActiveSheet.Paste
                        ElseIf nRows = 0 And Range("A3").Select = Null Then
                            If Worksheets("Resplan_Data").Visible = True Or Worksheets("ProjSum").Visible = True Then
                                Worksheets("Resplan_Data").Visible = False
                                Worksheets("ProjSum").Visible = False
                                Worksheets("Data Input").Select
                                MsgBox "Re-Select the Update Data Button, to re-processed missing data", vbOKOnly
                                Exit Function
                            End If

Answer 1

感谢您的建议，但是，我决定删除该部分代码，然后选择结束＆amp;重新打开原始工作簿，这使得上面的代码没有必要。

活动工作簿表工作表

1 个答案: