VBAコードで保存したExcelファイルを再び開いたときに書式が変わってしまう。

Question

VBAコードで保存したExcelファイルを再び開いたときに書式が変わってしまい、困っています。

手動で保存したファイルを再び開くときは変わらないです。

値が-1000のとき、赤く-1,000としたいところが(\1,000)となってしまいます。

書式でいうと

#,##0;[赤]-#,##0

が

#,##0_);[赤]

となってしまっています。

SaveAsのオプション引数もいろいろ試しましたが効果はありませんでした。

下記のコードを適当フォルダに新規vbsファイルを作ってコピペして実行していただければ、状況が再現できます。

何かわかる方ございましたら、お力を貸してください。

set app = CreateObject("Excel.Application")

app.Visible = True

app.DisplayAlerts = False

set wb = app.Workbooks.Add()

set ws = wb.ActiveSheet

ws.Cells(1,1) = -1000

ws.Cells(1,1).NumberFormatLocal = "#,##0;[赤]-#,##0"

wb.SaveAs Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, ".")) & ".xlsx"

wb1name = wb.FullName

wb.Close

set wb = app.Workbooks.Add()

set ws = wb.ActiveSheet

wb.SaveAs Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, ".")) & "2.xlsx"

ws.Cells(1,1) = -1000

ws.Cells(1,1).NumberFormatLocal = "#,##0;[赤]-#,##0"

app.DisplayAlerts = True

app.Workbooks.Open(wb1name)

答えがここにありました。SaveAsのLocal:=Trueで解決しました。

https://support.microsoft.com/ja-jp/help/3066474

https://social.msdn.microsoft.com/Forums/ja-JP/4e454fcc-93f8-4372-98ac-9a65fb3e38e3/excel124342580520316excel1250112449124521252312434382831236712289?forum=csharpgeneralja

Answer 1

VBA専用のフォーラムがあるため、並行してご投稿ください。

https://social.msdn.microsoft.com/Forums/ja-JP/...

Answer 2

ありがとうございます。そちらで質問することにします。

類似の質問を見つけられました。しかし、まだ不服があるので趣旨を少し変えて投稿します。

答えがここにありました。SaveAsのLocal:=Trueで解決しました。

https://support.microsoft.com/ja-jp/help/3066474

https://social.msdn.microsoft.com/Forums/ja-JP/4e454fcc-93f8-4372-98ac-9a65fb3e38e3/excel124342580520316excel1250112449124521252312434382831236712289?forum=csharpgeneralja