|
かみちゃん様教えてくださって有難う御座います。
教えて頂いたように下記のように変更して実行してみたのですが、
『実行時エラー'483’ オブジェクトは、このプロパティまたはメソッドをサポートしていません』
といったエラーが発生しました。
Private Sub UserForm_Initialize()
Dim WBS As Worksheet
Dim NUM As Integer
NUM = Workbooks("1.xls").Worksheets("A").Range("A1")
Set WBS = Worksheets(Format(NUM, "@"))
With Workbooks("check.xls").WBS
DateM = .Range("d5")
DateD = .Range("f5")
End With
End Sub
すこし不思議に思い、ちょっとテストで
Private Sub UserForm_Initialize()
Dim WBS As Worksheet
Set WBS = Worksheets("1")
With Workbooks("check.xls").WBS
DateM = .Range("d5")
DateD = .Range("f5")
End With
End Sub
と実行してみたのですが、これもまた同じエラーがでてしまって困ってます。
どうしたら良いでしょうか?
助けて下さい。お願い致します
|
|