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

#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

パッと見た感じで、、

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

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

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

補足

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