VBA中ListObject.Name赋值给字符串变量为空问题求助

核心问题 #

你的代码中strDataCurrentIP为空的原因是赋值语句仅在Year(dateInspection) = Right(wsName, 4)条件成立时执行，但你在每次循环dateInspection时都会调用DataAlignment——如果某次循环条件不满足，strDataCurrentIP就保持初始空值（或上一次循环的残留值），导致你看到空值传递的情况。

另外代码还有两个潜在问题：

1. 变量声明不规范：Dim wsName, strDataMasterIP, strDataCurrentIP, strNewSheetName As String 中只有strNewSheetName是String类型，其余变量默认是Variant，可能引发类型兼容性问题。
2. 冗余的工作表赋值：For Each wsSheet In Worksheets已经在遍历工作表，内部又执行Set wsSheet = wb.Worksheets(wsName)，完全没必要，反而可能干扰遍历逻辑。

修正后的代码 #

'------------------------------------------------------------------------------
'0. Declaration and Initialization of Variables
'------------------------------------------------------------------------------
Dim wb As Workbook
Set wb = ThisWorkbook
Dim wsSheet As Worksheet

Dim dateMasterIP As Date, dateCurrentIP As Date ' 修正变量声明，每个变量指定类型
dateMasterIP = Range("rngMasterIPDate").Value

Dim wsName As String, strDataMasterIP As String, strDataCurrentIP As String, strNewSheetName As String ' 修正声明
strDataMasterIP = "tbIP" & Year(dateMasterIP)

Dim objTable As ListObject
Dim TestForTable As String
Dim rngTestCell As Range

Dim rngIPDates() As Variant
rngIPDates = Range("rngIPDates").Value

'------------------------------------------------------------------------------
'2. Procedure Module
'------------------------------------------------------------------------------
For Each wsSheet In wb.Worksheets ' 限定为当前工作簿的工作表，避免跨工作簿问题
    wsName = wsSheet.Name
    
    If Left(wsName, 2) = "IP" Then
        Set objTable = wsSheet.ListObjects(1)
        ' 先提前赋值表名，避免条件不满足时为空
        strDataCurrentIP = objTable.Name
        
        Dim dateInspection As Variant
        For Each dateInspection In rngIPDates
            If Year(dateInspection) = Right(wsName, 4) Then
                dateCurrentIP = CDate(dateInspection)
            End If
            ' 若需仅在日期匹配时调用，将Call语句移至If块内部
            Call DataAlignment(wb, strDataMasterIP, strDataCurrentIP, dateMasterIP, dateInspection)
        Next dateInspection
    End If
Next wsSheet

关键调整点 #

• 修正变量声明，确保所有字符串变量都显式指定String类型，避免变体类型的未知问题。
• 将strDataCurrentIP = objTable.Name移到For Each dateInspection循环外，确保只要进入工作表判断分支，就会给变量赋值表名，不会出现空值。
• 移除冗余的Set wsSheet = wb.Worksheets(wsName)语句，简化遍历逻辑。
• 如果你的需求是仅当日期匹配时才调用DataAlignment，请把Call DataAlignment语句移到If Year(dateInspection) = Right(wsName, 4)的条件块内部，避免无效调用。

内容的提问来源于stack exchange，提问作者Osvaldo Mejia