选择范围类方法失败第二次调用Sub时

时间:2015-05-06 06:57:03

标签: excel vba excel-vba

嗨,请在下面找到我的代码。每当我需要将表名填充到我的工作表中时,我都会调用此子例程。未声明的所有变量(包括工作簿)都声明为PUBLIC。

在整个运行期间多次调用此子程序,并且它第一次执行它应该执行的操作。但是第二次调用sub时,会抛出错误“Select Range of Range class failed”。不知道哪里出错了。

注意:wb也用于其他子目录。这是一个问题吗?我是否应该在所有子设备上分别声明它?

请提供建议。

Sub TNPopulate(tablename As String)

    tablecount = tablecount + 1
    existingtable = tablename
    tablestart = row + 1

    wb.Sheets(2).Cells(tablestart, col) = existingtable
    wb.Sheets(2).Cells(tablestart, col).Select
    Selection.Font.Bold = True
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.249977111117893
        .PatternTintAndShade = 0
    End With
End Sub

1 个答案:

答案 0 :(得分:1)

最可能的原因是该表未激活。但是,您无需在此处选择任何内容 - 您可以直接操作单元格:

 [OperationContract]
    public List<Drug> GetAll_Drug()
    {
        List<Drug> obj_Lst_t;
        using (var ctx = new EpriscriptionContext())
        {
            ctx.Configuration.ProxyCreationEnabled = false; 

    foreach(var data in ctx.Drug)
           { obj_Lst_t.add(new Drug{...});}
        }
        return obj_Lst_t;
    }