VBSを実行すると書式設定がおかしくなってしまう
VBSで、
(1)CSVを開く
(2)編集する
(3)別名保存
を行いたいのですが、
VBSを実行すると元々「y/M/d」の日付形式のセルが「M/d/y」の標準表示形式になってしまいます。
(2)の編集に何か余計なことを書いてしまったかと思って
(1)→(3)のみでも実行してみましたがやはり駄目でした。
下記は実際のコードです。
'▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△
path1 = "C:\test\読み込み.csv"
path2 = "C:\test\書き込み.csv"
Set xl = CreateObject("Excel.Application")
xl.Application.Visible = False
xl.Application.DisplayAlerts = False
WScript.Sleep(500)
Set bk = xl.Application.Workbooks.Open(path1)
Set st = xl.Worksheets(1)
st.SaveAs path2 , 6
xl.quit
Set xl = Nothing
'▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△
色々中を弄って、
▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△
'A1に日付セルがあり、最終的に「yyyy/MM/dd」形式で保存したい
st.Cells(1,1).FormatNumber = "yyyy/MM/dd"
st.Cells(1,1) = Format(st.Cells(1,1),0)
st.Cells(1,1) = Format(st.Cells(1,1),1)
st.Cells(1,1) = Year(st.Cells(1,1)) & "/" & Month(Right("0" & Month(st.Cells(1,1)), 2)) & "/" & Right("0" & Day(st.Cells(1,1)), 2)
▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△▼△
といくつか試しましたが、どれも駄目でした。(実行自体エラーのものもありますが一応…)
エクセルのバージョンは2007です。
回答よろしくお願いいたします!
補足
本に書いてあるように アクセサリーからコマンドプロンプトを選び、 md¥practice cd¥practice notepad でコード記入 その保存のときにローカルディスクCのpractice に 上記のコードを保存する。 その手順は間違ってないと思うが、 保存の仕方が間違ってるのか bmi.vbs にならず bmi の表記になる どうしてですかね?