人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

ExcelのVBAマクロの記述方法で質問致します。
下記のように記述しているのですが、どうしてもWeb保存の際、「再計算」が入ってしまいます。「再計算」が入らずにWeb保存が実行されるためには、どのように記述すればよいでしょうか?

ちなみに「ツール」→「オプション」→「計算方法」のところは「手動」にしてあり、かつ「保存前に再計算」にはチェックは既にはずしてあります。それでもダメです。

どうぞよろしくお願い致します。







Sub Web保存()

Application.Calculation = xlManual
CalculateBeforeSave = False

Worksheets("Web").Select
Range("A1").Select
パス = Worksheets("窓口").Range("B12").Value
ファイル名 = "r" & Worksheets("Web").Range("AI3").Value & ".htm"
タイトル = "テスト" & Worksheets("Web").Range("AH4").Value

With ActiveWorkbook.PublishObjects.Add _
(SourceType:=xlSourceRange, _
Filename:=パス & "\" & ファイル名, _
Sheet:="Web", _
Source:="$B$2:$AD$36", _
Title:=タイトル)
.Publish False
.AutoRepublish = False
End With

End Sub

●質問者: yoshifuku
●カテゴリ:コンピュータ
✍キーワード:A1 AD ADD application Excel
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● van-dine
●60ポイント

Worksheet.EnableCalculation メソッドを使います。

Web保存の前に、Worksheet.EnableCalculation = Falseを、

Web保存の後に、Worksheet.EnableCalculation = Trueを記入します。

◎質問者からの返答

424オブジェクトが必要です。

というエラーメッセージが出ました。

もう一歩のようですが・・・

どうぞよろしくお願い致します。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ