[[20190128230021]]　『vbaの13:型が一致しませんエラーについて』（たろうくん）　ページの最後に飛ぶ

『vbaの13:型が一致しませんエラーについて』（たろうくん）

下記のような文だと、型が一致しませんとエラーが出るのですが、
どこを直したら良いのか分からない状況です。

どなたかお知恵を貸していただければと思います。
よろしくお願い致します。

パスシートに開こうとしている、対象ファイルのパス・ファイル名・シート名が記載してあり、
一連の処理の後、シートを宣言するようにしていますが、
Set wb_sh = wb.Worksheets(.Range("B4"))
の所で、型が一致しませんと出ます。

Dim wb As Workbook
Dim wb_sh As Worksheet
Dim tw_Info As Worksheet

    Set tw_Info = ThisWorkbook.Worksheets("パス")

With tw_Info

    Set wb = Workbooks.Open(.Range("B2") & "\" & .Range("B3"))
    Set wb_sh = wb.Worksheets(.Range("B4"))
End With

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

Set wb_sh = wb.Worksheets(.Range("B4").Value)
のようにしてみてください。
他のところも.Valueを補ったほうが意味は明確になるでしょうね。

（γ） 2019/01/28(月) 23:21

コメント返信：