|
▼VBA初心者 さん:
こんばんは。
>
>下記のset命令で「 Worksheetsメソッドが失敗しました」
>のメッセージが出たので
このエラーが再現できませんでした。
ひょっとしてIEからExcelのXlsファイルを読み込む
なんてことしていませんか?
>以下のように変数S使用せず明示的にワークシート設定を修正しましたが、1004が出てしまいます。
まあ、上記がエラーになるならこれはそうなんでしょうが・・
>
>
>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コードを含むブックだけですか?
(気になるのは、「設定」と付けられたシートがどこにあるかですが・・・)
それとWindowsとExcelのバージョンも記述してください。
今のところ、よくわからないので解決するか否かは
わかりませんが、バージョン情報も含めて
なるべく多くの情報を提示してみてください。
|
|