csv高速開く君で作成したファイルの保存について

Question

naoyaです

いつもありがとうございます。

現在ゆうプリRで発送伝票を作成しているのですが、RMSから受注データをゆうプリR用にフォーマットした内容でダウンロードし、商品名などを編集してからゆうぷりRに取り込み発送伝票を作成しています。
csvファイルは全部csv高速開く君で開いているのですが、開くときは良いのですが、保存する際毎度、どこに、どのような拡張子で、名前を選択して保存しています。

Office365でエクセルは最新のものを使用しています。

csv高速読み込み、置換君みたいに書き出しボタンを設けてもらうか、保存する際にファイル形式はcsv、保存場所は開いた場所、ファイル名はその日だけなんので日付などに設定されていると、ブックマークに入れてるリンクみたいな感じで、ほんのすこしですが時短できるので、どうにかなりませんでしょうか？

またこちらの設定で、どうにかできるのならば、設定方法など教えていただけたら、有難難いです。

よろしくお願いします。

naoya

Accepted Answer

ECマスターズの田中です。

Windowsに備わっております、WSHという仕組みを利用することで、
実現することができます。

ただ、保存場所につきましては、
CSV高速開く君の、新しいワークシートに貼り付けるという性質上、
元ファイルと同じ場所を取得することが難しく、
１つのフォルダを指定する必要がありますので
ご了承ください。

まず、WSHを利用する流れを、下記URLにてご確認ください。
http://vbscript.pgtop.net/category/16178987-1.html
このページと同様に、vbsファイルを作成してください。

作成できましたら、vbsファイルの中身を、下記の内容にご変更ください。

===== この下の行から ================
sdate = CStr(Year(Date)) & String(1-Round((Month(Date)/10)-0.5), "0") & CStr(Month(Date)) & String(1-(Day(Date)>=10)*-1, "0") & CStr(Day(Date))
GetObject(, "Excel.Application").ActiveWorkbook.SaveAs "保存フォルダのパス" & "\" & sdate & ".csv", 6
===== この上の行まで ================

※「保存フォルダのパス」は、CSVファイルを保存するフォルダの場所を示す文字列です。
　対象フォルダを、Shiftキーを押しながら右クリックし、「パスのコピー」を選ぶことで取得できます。
例）C:\Users\Tanaka\Desktop

vbsファイルを保存いたしましたら、以後は、
ファイルを保存したい時に、Excelを開いたまま、vbsファイルをWクリックしていただきますと、
「保存フォルダのパス」に指定したフォルダに、「20160420.csv」のように、日付が名前となったファイルが保存されます。

Answer

naoyaです

早速の返事ありがとうございました、教えて頂いたようにvbsファイルを作成し時短することが出来ました、毎日のことなのでちょっとずつですが効率化していきたいと思います。

またお願いします

Answer

すみません解決済みになってますが、派生で質問したいのですがよろしいでしょうか？

現在はVBSで今日の日付でcsvファイルを保存しております。

これに任意のファイル名-日付でcsvファイルを作るにはどうしたらよいでしょうか？

現在
20200310.CSV
このように保存しております。

変更
佐川_20200310.CSV
のように日付の前に任意の名前を付けたいです、どうぞよろしくお願いします。

Answer

ECマスターズの田中です。

> これに任意のファイル名-日付でcsvファイルを作るにはどうしたらよいでしょうか？

GetObject(, "Excel.Application").ActiveWorkbook.SaveAs "保存フォルダのパス" & "\" & sdate & ".csv", 6
の行に含まれている
\
以降がファイル名となっておりますので、
\と"の間に、追加したい「任意のファイル名」を追記していただければ結構です。

今回の場合は、
GetObject(, "Excel.Application").ActiveWorkbook.SaveAs "保存フォルダのパス" & "\佐川_" & sdate & ".csv", 6
となります。

Answer

田中 様

ありがとうございます、実行できました。

ただ漢字だと文字コード変換がうまくいかないのかきちんと表示できないみたいなので、ローマ字で棲み分けできるようにしました。

Answer

ECマスターズの田中です。

> ただ漢字だと文字コード変換がうまくいかないのかきちんと表示できないみたいなので、ローマ字で棲み分けできるようにしました。

文字コードに気づかず、失礼いたしました。
文字化けなどのトラブルを避けるためにも、
引き続き、ローマ字でご利用いただきますようお願いします。