CSV保存フォーマット変更

Question

お世話になります、naoyaです。

マイツールで日程管理を行っているのですが、そのデータをグーグルカレンダーにインポートする際にマイツールから吐き出したデータをそのままインポートすると文字化けしてしまします。

対応として吐き出したCSVデータを一旦開き、名前を付けて保存で”CSV UTF-8(コンマ区切り)(*.CSV)”を選択しそのまま上書きしてインポートすることで文字化けが解消できます。
ただ開いて保存し直しが面倒なので、どうにかできないかと思っております。

理想は開かずに保存フォーマットを変更できると良いのですが、以前質問した内容で
https://forum.ec-masters.net/post_view.php?id=2755

VBSファイルを作成することで少しでも時短できるのであればどのように作成すれば良いでしょうか？

よろしくおねがいします。

Answer

ECマスターズの伊藤です。

> VBSファイルを作成することで少しでも時短できるのであればどのように作成すれば良いでしょうか？

https://forum.ec-masters.net/post_view.php?id=2755
こちらのフォーラムの手順をご参考に、
ファイルの内容を、下記に変更してください。

===== この下の行から ================
Set objSJIS = CreateObject("ADODB.Stream")
Set objUTF8 = CreateObject("ADODB.Stream")
objSJIS.Type = 2
objSJIS.Charset = "Shift_JIS"
objSJIS.Open
objSJIS.LoadFromFile "inputText.csv"
objUTF8.Type = 2
objUTF8.Charset = "UTF-8"
objUTF8.Open
objSJIS.CopyTo objUTF8
objUTF8.SaveTofile "outputText.csv"
objSJIS.Close
objUTF8.Close
===== この上の行まで ================

CSVと、上記のVBSファイルを
同じフォルダに配置をお願いします。

objSJIS.LoadFromFile "inputText.csv"
元ファイルの名前になります。
必要に応じてinputText.csvを修正してください。

objUTF8.SaveTofile "outputText.csv"
変換したファイルの名前になります。
必要に応じてoutputText.csvを修正してください。

Answer

伊藤さん

返信ありがとうございます。早速試して見たとことファイル作成はうまくいきましたが、作成ファイルが私のPCで文字化け状態になってインポートできなくなってしましした。

変更前のデータはPC上で文字化けしていないのですが、そのまま取り込むとgoogleカレンダーで文字化けします。
変更後のデータはPC上でも文字化けしておりインポートもできない状態です。

===== この下の行から ================
Set objSJIS = CreateObject("ADODB.Stream")
Set objUTF8 = CreateObject("ADODB.Stream")
objSJIS.Type = 2
objSJIS.Charset = "Shift_JIS"
objSJIS.Open
objSJIS.LoadFromFile "google.csv"
objUTF8.Type = 2
objUTF8.Charset = "UTF-8"
objUTF8.Open
objSJIS.CopyTo objUTF8
objUTF8.SaveTofile "google2.csv"
objSJIS.Close
objUTF8.Close
===== この上の行まで ================

で試しました。

Answer

ECマスターズの伊藤です。

> 返信ありがとうございます。早速試して見たとことファイル作成はうまくいきましたが、作成ファイルが私のPCで文字化け状態になってインポートできなくなってしましした。

恐れ入りますが、元のデータを確認させていただきたいので、
データをいただけますでしょうか。

データですが、返信からですと
画像しか添付できないため、
一番最初の投稿の右下にございます
「投稿内容について報告する」より
お知らせいただきますようお願いします。

Answer

無事に作成できました、ありがとうございました