ＶＢＳの作り方がわかりません

質問

下記のようなＶＢＳを使いたいのですが
　　テキストでなくエクセルをアクティブにしたいのですがうまくいきません
　　どのように直せばよいのかお教えください。　　お願いいたします。

Dim excel

With CreateObject("Wscript.Shell")
.Run "D:\DATA\T.txt"
End With

On Error Resume Next
Set excel = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Set excel = CreateObject("Excel.Application")
End If
excel.Visible = True
excel.Workbooks.Open "D:\DATA\Sin1.xls"

回答No.1

kteds

つぎのように書き換えてみてはどうですか。

Dim Excel
Set Excel = CreateObject("Excel.Application")
Excel.Visible = True
Excel.Workbooks.Open "D:\DATA\Sin1.xls"
Set Excel = Nothing

お礼

早速の回答ありがとうございました。
回答を基にいろいろ思考錯誤しながらやってみたいと
思いますこれに懲りずご指導くださいませ。

補足

質問の仕方が悪くてすみません
　テキストとエクセルの両方をたちあげて
　この時エクセルの方をアクティブにしたいのです。