VBAにおいて別ブックのシートのセル値を配列に格納

Question

エクセルVBAにて２つの異なるワークブック（セルの配置等は同じ）からセル値を読みだし，それを比較した際に同値であれば２つとは異なる第３のワークブック（同じくセルの配置等は同じ）の読みだしたセルの位置と同じセルに文字列を入力するというプログラムを書こうとしています．その際に他のワークブックAのシートを開き，任意のセル範囲のみを用意した配列に格納しようとすると「オブジェクト変数または with ブロック変数が設定されていません。」というエラーが出ます．これはworksheetとして定義した変数ssのcellsを操作しようとしているから発生しているのでしょうか？最近VBAの勉強を始めたばかりで全く分かっていません．初歩的な質問となってしまうかもしれませんがご教授宜しくお願いします．

Option Explicit
Public cs As Worksheet
Public sb As Workbook
Public ss As Worksheet

Public Sub make() 
    Dim sn As Long
    Dim sname As String
    Dim i As Integer
    
    Set c = ThisWorkbook.Worksheets(1)
    Set sb = Workbooks.Open("A")

sn = sb.Sheets.Count
    
For i = 1 To seiton
        sname = Sheets(i).Name
        Set ss = sb.Worksheets(i)
        
        Call match       
    Next

sb.Close False
    Set ss = Nothing
    Set sb = Nothing

End Sub

Public Sub match()
    Dim i, j, k As Integer
    Dim day, koma As Integer
    day = 24
    koma = day * 5
    Dim can() As Boolean
    Dim kout() As Byte
    Dim seit() As Byte
    ReDim can(koma)
    ReDim kout(koma)
    ReDim seit(koma)
    
    For i = 0 To koma
        j = i \ 5
        For k = 0 To 5
            seit(i) = ss.Cells(k + 3, 2 + j)   '←この部分でエラーが出ています
        Next
    Next
    
    Erase can
    Erase kout
    Erase seit
End Sub

over_the_galaxy · Accepted Answer

結論を言うとjが少数になっているため列番号がおかしくなっているのでしょう。

Public Sub match()
Dim i, j, k As Integer

上記の型宣言では、iとjはvariant型として認識されます。
型宣言は実は１つずつ行う必要があります。正しくは
Dim i As Integer, j As Integer, k As Integer
私も最初間違えて正解を知った時は「えーー？」と思いましたが、１つずつするのです。

他に気付いた点は
Eraseは最後でなく配列を使う直前に行った方がいいです。値が入ったまま途中で止まったり、なんだかんだと色々な値が入ってしまってます。

NotFound404 · Answer

エラーが再現できません。
変数の宣言方法は先の回答者の通りなのですが面倒なのでそのままです。
コンパイルエラーになった部分のみ修正しただけです。
Erase の３行もなくても大丈夫そうですがそのまま (^_^;)
Small.xlsx は至極単純なBookです。
関数・セル結合・保護などしていません。
開いたBookに何かあるのでは？
k、j の値と共に確認されては？

Option Explicit

Public cs As Worksheet
Public sb As Workbook
Public ss As Worksheet

Public Sub make()
Dim sn As Long
Dim sname As String
Dim i As Integer

'Set ss = ThisWorkbook.Worksheets(1) 'c → ss
Set sb = Workbooks.Open("E:\TMP\Small.xlsx")

sn = sb.Sheets.Count

For i = 1 To sn 'seiton
sname = Sheets(i).Name
Set ss = sb.Worksheets(i)

Call match
Next

sb.Close False
Set ss = Nothing
Set sb = Nothing

End Sub

Public Sub match()
Dim i, j, k As Integer
Dim day, koma As Integer
day = 24
koma = day * 5
Dim can() As Boolean
Dim kout() As Byte
Dim seit() As Byte
ReDim can(koma)
ReDim kout(koma)
ReDim seit(koma)

For i = 0 To koma
j = i \ 5
For k = 0 To 5
seit(i) = ss.Cells(k + 3, 2 + j) '←この部分でエラーが出ています
Next
Next

Erase can
Erase kout
Erase seit
End Sub

VBAにおいて別ブックのシートのセル値を配列に格納

結論を言うとjが少数になっているため列番号がおかしくなっているのでしょう。

この回答への補足

エラーが再現できません。

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング