Я смотрел вокруг на похожие вопросы, и большая часть того, что я видел, была копировать и вставлять. Это был не тот подход, который был у меня в голове. Затем я наткнулся на этот вопрос и увидел ответ Тима Уильямса, который ВИДЕЛ НА МЕНЯ, чтобы я делал то, о чем думал. В основном это:
Workbook2.worksheet(1).Range("A1:D1")=Workbook1.worksheet(1).Range("A15:D15")
То, что я вижу в ответе Тима, заставляет меня поверить, что этот метод должен работать, это последняя строка:
Destination.Resize(Origin.Rows.Count, Origin.Columns.Count).Value = _
Origin.Value
Моя фактическая часть кода:
IndexCounter = IndexCounter + 1
'*****************************************
'LINE THAT IS NOT DOING ANYTHING
'*****************************************
MissingBook.Worksheets(DirectoryType).Range("A" & IndexCounter, MissingBook.Worksheets(DirectoryType).Cells(IndexCounter, LastCol)) = Source.Worksheets("Sheet1").Range("A" & varElement.Row, Source.Worksheets("Sheet1").Cells(varElement.Row, LastCol))
'check if file is downloaded
strNewFilename = DirectoryType & " " & varElement & ".*"
MissingFile = ExistingFile(SourceDir, strNewFilename)
MissingBook.Worksheets(DirectoryType).Cells(IndexCounter, LastCol + 1) = MissingFile
Когда я прохожу, все, что я получаю, это отсутствующее значение файла, вставляемое в соответствующие строки правильного столбца. Ячейки слева остаются пустыми. Когда я помещаю часть справа от = в окне часов. В значении2 я вижу, что все данные для каждой ячейки есть.
Что я пропускаю / не понимаю?