|
こんばんわ
>>下記のset命令で「 Worksheetsメソッドが失敗しました」
メソッド?
>>Sub set1(n As Byte)
>> Const CB As String = "CommandButton"
>> Dim S As Worksheet
>> Dim i As Byte
>>
>> 'Set S = Worksheets("設定")
>> For i = 1 To n
>> Sheet1.OLEObjects(CB & Format(i)).Object.Caption = Worksheets("設定").Cells(i + 1, 1).Value
>> book1(i - 1) = Worksheets("設定").Cells(i + 1, 2).Value
>> Next i
>>End Sub
>このエラーが発生したときにExcel上に開かれている
>ブックはいくつありますか?
>提示されたVBAコードを含むブックだけですか?
>(気になるのは、「設定」と付けられたシートがどこにあるかですが・・・)
>Worksheetsの前(Workbooks)を明示するとエラーがなくなるかも。
Win98&XL2kで組んだマクロをXP&XPに持っていったら、ActiveSheetかActiveWorkbookの認識失敗でエラーになったことがありました。原因はわからないし、再現もできませんが。
|
|