vba 表名-1 -2

在 VBA 中，不存在表名为 -1 或 -2 的情况。表名通常是指 Excel 工作簿中的工作表名称，可以使用 VBA 中的 Worksheets 或 Sheets 对象来引用它们。

如果你使用 -1 或 -2 作为表名来引用工作表，则会出现错误，因为这些值不是有效的工作表名称。实际上，-1 和 -2 在 VBA 中通常表示 True 或 Yes 和未定义或缺失的值，与表名没有任何关系。

请确保在编写 VBA 代码时，使用有效的工作表名称来引用工作表。可以使用 Worksheets 或 Sheets 对象的名称属性来获取工作表的名称，并使用它们来引用工作表，例如：

Dim ws As Worksheet
Set ws = Worksheets("Sheet1")

以上代码使用名称为 "Sheet1" 的工作表来初始化 ws 变量，并使用它来引用该工作表。

相关问题

VBA判断本工作表名中有多少个-

以下是VBA代码，可以用于判断本工作表名中有多少个“-”字符：

Sub CountDashes()
    Dim count As Integer
    count = 0
    For i = 1 To Len(ActiveSheet.Name)
        If Mid(ActiveSheet.Name, i, 1) = "-" Then
            count = count + 1
        End If
    Next i
    MsgBox "This workbook has " & count & " dashes in the sheet name."
End Sub

该代码遍历了当前活动工作表的名称，对于每一个字符，判断它是否为“-”字符。如果是，计数器就加1。最终，代码将弹出一个消息框，告诉用户当前工作表名称中“-”字符的数量。

vba获取access数据库的所有表名

您可以通过 VBA 代码中使用 DAO 或 ADO 对象来获取 Access 数据库中的所有表名。下面是一个使用 DAO 的示例代码：

Sub GetTableNames_DAO()
   Dim db As DAO.Database
   Dim tdf As DAO.TableDef
   Set db = CurrentDb
   For Each tdf In db.TableDefs
      If Not (tdf.Attributes And dbSystemObject) = dbSystemObject Then
         Debug.Print tdf.Name
      End If
   Next tdf
   Set tdf = Nothing
   Set db = Nothing
End Sub

如果您想使用 ADO，可以使用以下代码：

Sub GetTableNames_ADO()
   Dim cnn As ADODB.Connection
   Dim rs As ADODB.Recordset
   Set cnn = CurrentProject.Connection
   Set rs = cnn.OpenSchema(adSchemaTables)
   Do While Not rs.EOF
      If rs("TABLE_TYPE").Value = "TABLE" Then
         Debug.Print rs("TABLE_NAME").Value
      End If
      rs.MoveNext
   Loop
   rs.Close
   Set rs = Nothing
   Set cnn = Nothing
End Sub

这两个示例代码将打印出 Access 数据库中的所有表名。