ワークシート変数のExcel VBAランタイムエラー '13'型の不一致

Question

newQueryブックのsheet1に 'remSheet'変数を設定しようとすると、上記の「型不一致」エラーが発生し続ける。 スクリプトの先頭を以下に示します。最後の行はエラー

Sub importNewPTRs() 
Dim masterWorkbook As Workbook 
Set masterWorkbook = ThisWorkbook 
Dim newQuery As Workbook 
Set newQuery = openWorkbook 
Set newQuery = ActiveWorkbook 
Dim remSheet As Worksheet 
Set remSheet = Sheets(Sheet1) 

の原因となるラインである私は、この特定のエラーメッセージとその他の問題に対する解決策を見てきましたし、彼らが助けていません。私もremSheet = newQuery.Sheets（Sheet1）を設定しようとしているとどちらか助けていない。 誰かが私が間違っていることを教えてもらえますか？

Answer 1

あなたはそれがタブに表示されますように、シート位置Index（それが最初のシート1、セカンドシート2なら...）またはNameを使用するのいずれかが必要です。 Sheet1変数は何もではなく、エラーを引き起こしています。