从变量命名工作表

Question

我正在尝试使用变量名来定义工作表的名称。该代码在以下代码的“查找”中引发错误。

  Dim z As String
    Dim r As String
    z = ActiveWorkbook.Name

    r = Mid(z, Find("_", z, 1), 30)
    ActiveSheet.Name = r

Answer 1

似乎您想让r中的值包含下划线后的z中的值。如果是这样，请尝试

r = mid(z, instr(1, z, "_") + 1)

Answer 2

使用工作表功能“查找”的解决方案将是

$interval(function () {
  $http.get('/monitoringresults').
    then(function(response) {
        $scope.monitoringResults = response.data;
    });
}),10000);

Answer 3

r = Mid(z, InStr(1, z, "_") + 1, 30)