Word2000のVBAでエラーが出ます

質問

VBA初心者です。Word2000上でExcel2000並べ替え用VBAを作成しまが、「名前付き引数が見つかりません」のエラーが出ます。

Sub Sort()

Dim objExcel As Excel.Application
Dim tmpBook As Excel.Workbook

Set objExcel = CreateObject("Excel.Application")
Set tmpBook = Workbooks.Open("C:\Dic1.xls")

Range("A1:B100").Select
Selection.Sort Key1:=Range("A1"), _
Order1:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin

tmpBook.Close True
objExcel.Quit

End Sub

Excel2000上で同様のマクロを作成すると、正常に動作します。初歩的な質問で申し訳ありませんが、どなたか御教授をお願い致します。

回答No.1

phoenix343

そもそも、Excel上でないのにいきなりWorkbooks、RangeとかSelectionを使っているのが間違い。
Excel上でするのとは違い、ちゃんとどのブックか、どのシートかを指定しないといけません。
WordにはExcelのようなシートなんかないでしょ？省略しないでくださいね。
Set tmpBook = Workbooks.Open("C:\Dic1.xls")
の一行は、
Set tmpBook = objExcel.Workbooks.Open("C:\Dic1.xls")
という感じにしないと。

簡単ですが。

お礼

お礼が遅くなりました。色々やってみて解決出来ました。
ありがとうございました。