cells.text 在 1 个实例中返回值，在第二个实例中没有返回值

Question

我有以下问题：

wsMotiv.Range("motiv_naam") = Cells(iRijnummer, iKolomnrNaam).Text 这一行给出了一个名称（字符串）值。为什么s = ThisWorkbook.Worksheets(1).Cells(iRijnummer, iKolomnrNaam).Text 行不做同样的事情？它通过了" "。

    Sub (whatev)
       AantalZichtbareRows
            Dim rng As Range
            Dim row As Range
            Dim StrFileName As String
            'If Aantalregels > 1 Then
             Set rng = Selection.SpecialCells(xlCellTypeVisible)
             For Each row In rng.Rows
               iRijnummer = row.row
               If iRijnummer > 1 Then
                  Windows(c_SourceDump).Activate
                  wsMotiv.Range("motiv_cid") = Cells(iRijnummer, iKolomnrCorpID).Text
                  wsMotiv.Range("motiv_naam") = Cells(iRijnummer, iKolomnrNaam).Text
                  wsMotiv.Range("motiv_ldg") = Cells(iRijnummer, iKolomnrHuidigeLeidingGevende).Text
                  Worksheets("stambestand").Activate
                  'naamOpmaken

                  Dim s As String: s = ThisWorkbook.Worksheets(1).Cells(iRijnummer, iKolomnrNaam).Text
                  Dim Position As Long, Length As Long
                  Dim n As String

                  Position = InStrRev(s, " ")
                  Length = Len(s)
                  n = Right(s, Length - Position)
               End If
             Next row
        End Sub

Answer 1

您指的是Cells(iRijnummer, iKolomnrNaam).Text 中的ActiveSheet 和ThisWorkbook.Worksheets(1).Cells(iRijnummer, iKolomnrNaam).Text 中的第一个工作表。可能他们是不同的。试试这个看看：

Sub TestMe
   Debug.Print wsMotiv.Name
   Debug.Print Worksheets(1).Name
   Debug.Print ActiveSheet.Name
End Sub