こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

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

投稿日時 - 2008-10-29 22:26:17

QNo.4439846

困ってます

このQ&Aは役に立ちましたか?

2人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

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

簡単ですが。

投稿日時 - 2008-10-29 22:40:09

お礼

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

投稿日時 - 2008-10-31 00:32:17

あなたにオススメの質問