質問: nothing end sub
回答: またまた登場、onlyromです。 >'///新規ブックの編集処理///の中には今は何も記入していません >vbを終了してやりなおすと、2つ表示されてしまいました おかしいですね。 ということでブレークポイントをセットしてどこでそうなるかみてみないと。 set xlsapp = createobject("excel.application") ▲▲xlsapp.visible = true set xlsbooktemp = xlsapp.workbooks.open("c:\temp.xls") set xlssheettemp = xlsbooktemp.sheets(1) ●●set xlsbookcopy = xlsapp.workbooks.add set xlssheetcopy = xlsbookcopy.sheets(1) 'コピー元のsheet1を新規ブックにコピーする xlssheettemp.copy before:=xlssheetcopy 'コピー元のブックは閉じる ●●xlsbooktemp.close ▲▲のところに、xlsapp.visible = true を移動 ●●のところに、ブレークポイント 少なくともこれでどの時点で、質問の件が起こるかわかりますよね。 そしてそれが済んだら、 ブレークポイントを外して、 ▲▲xlsapp.visible = true を ●●xlsbooktemp.close の後に移動 要するにコピーが済んでtempをクローズしてから、excelをactiveにするということです。 以上2つを試してみてください。