VBAで、Excelの選択範囲をWeb形式で保存する方法

ExcelのVBAで選択範囲（I2:V44）をWeb形式（htm）で保存するプログラムをテキストから写して試してるんですけど（下記貼り付け）、うまく動きません。
どこがおかしいかどなたか教えてくれませんか。どこかのHPでもかまいません。どうぞよろしくお願いします。


Private Sub CmbUPDATE_Click()

Set wPage = ActiveWorkbook.PublishObjects.Add _
(SourceType:=xlSourceRange, _
Filename:="C:\Documents and Settings\My Documents\graph1.htm", _
Sheet:="sheet1", _
Source:="I2:V44")
'Title:="GRAPH")
wPage.Publish True

End Sub

No.2 回答者： papayuka 回答日時： 2004/09/04 13:35

#1です。

Sheet名が間違ってなければおかしくは無いと思います。
ただ、CommandButtonからの実行でエラーになっているなら、　wPage.Publish True　の前に　ActiveCell.Activate　を追加してみては？

Private Sub CmbUPDATE_Click()

　Set wPage = ActiveWorkbook.PublishObjects.Add _
　　　　(SourceType:=xlSourceRange, _
　　　　Filename:="C:\Documents and Settings\○○\My Documents\graph1.htm", _
　　　　Sheet:="sheet1", Source:="I2:V44")
　　　　'Title:="GRAPH")

　ActiveCell.Activate　　'これを追加するとどう？

　wPage.Publish True
End Sub

No.1 回答者： papayuka 回答日時： 2004/09/04 11:32

パッと見た感じで、、

"C:\Documents and Settings\My Documents\graph1.htm"

「My Documents」ってユーザーでログオンしてるの？

"C:\Documents and Settings\ユーザー名\My Documents\graph1.htm"　では？

この回答への補足

あ、すいません。
おっしゃるとおりユーザー名がここに入ります。この場では公表したくなかったので、消しました。
それ以外でおかしいところありますでしょうか？

補足日時：2004/09/04 12:59