コード行が機能していません。理由がわかりませんか？

debugcn 投稿 Dev

KjosN1

基準に基づいてスプレッドシートで新しい情報を取得する方法を見つけました。私の問題は、アプリケーション定義またはオブジェクト定義のエラーが発生する1行にあります。なぜこれが起こっているのか分かりません。このコードの機能の説明はコメントにあります。どんな助けでも大歓迎です！前もって感謝します。

Public Sub Check_Price_Click()
    'This code block runs through the data and if the first column is equal to the current date and the third column is equal to a Brand
    'then copy new data to different workbook and repeat
    Dim LastRow As Integer, i As Integer, erow As Integer

    'This line of code is not working
    LastRow = ActiveSheet.Range(“A” & Rows.Count).End(xlUp).Row

    For i = 2 To LastRow

        If Cells(i, 1) = Date And Cells(i, 3) = Cells(i, 3).Value Then
            Range(Cells(i, 1), Cells(i, 157)).Select
            Selection.Copy

            Workbooks.Open Filename:="C:\Users\Sales1\Dropbox\Davids Files\Macro Work\Daily Progress.xlsx"
            Worksheets(“Sheet1”).Select
            erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

            ActiveSheet.Cells(erow, 1).Select
            ActiveSheet.Paste
            ActiveWorkbook.Save
            ActiveWorkbook.Close
            Application.CutCopyMode = False
        End If

    Next i
End Sub

エクセルヒーロー

Aの前後の引用符は正しい文字ではありません。Enterキーの横にある二重引用符に置き換えてください。

また、「A」の直後にRows.CountのActiveSheet参照を含めます。

この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。

侵害の場合は、連絡してください[email protected]