Определенная ошибка объекта в VBA для фида фондового рынка

Question

Я получаю подачу на рынок для определенного запаса в excel. Поэтому я пытаюсь скопировать цену акций в другой ячейке. Так, например, X = 56 - цена акций в момент времени t1.Я копирую, что 56 в ячейке говорят A50, а в следующий раз t2 цена акций меняется, и я копирую, что в ячейке говорят A 51, и она продолжается. Я написал код, но я получаю ошибку.

Sub CopyOpenItems() 
Dim wbTarget 
Dim wbThis 
Dim WTF As Long 
Dim FTW As Long 
Dim X As Integer 
X = 0 

Set wbThis = ActiveWorkbook 
Set wbTarget = ActiveWorkbook 

ThisWorkbook.Sheets("Equity").Activate 
FTW = Cells(151, "F").Value 
WTF = Cells(X, "F").Value 

Do While ActiveCell.Value <> "" 
    FTW = WTF 
    X = X + 1 
    Loop 
    End Sub 

Answer 1

Line WTF = Cells(X, "F").Value неправильно, потому что X равен нулю, а строка не может быть равен нулю. Кроме того, цикл не делает слишком много смысла и не писать в любом месте, я думаю, что вы искали что-то на этих линиях:

Dim maxX As Integer 
    maxX = 100 'Max row you want to analyse 
    Do While X <= maxX 
     X = X + 1 
     Cells(X, "F").Value = "whatever" 
    Loop 

Или, возможно, что-то вроде этого:

Dim sourceCol, destCol As String 
    sourceCol = "A" 
    destCol = "F" 
    Do While Cells(X, sourceCol).Value <> "" 
     X = X + 1 
     Cells(X, destCol).Value = Cells(X, sourceCol).Value 
    Loop