2019-09-04 19:55:35
Re①:CSVのG2セルをファイル名でxlsx保存
こんな感じ~? <1>と<2>は、一緒にやっちゃっていいんでしょ? #----------------------------------------------- 「ここにCSVファイルをドラッグ&ドロップ」と表示。 #<1>-①母艦にcsvファイルをドラッグドロップ 母艦のファイルドロップ許可はオン。 #母艦にファイルをドロップ出来るようにする。 母艦のファイルドロップされた時は~ CSVファイル=母艦のドロップファイル。 #フルパス。 パス名=CSVファイルからパス抽出。 #CSVと同じトコに保存したい場合。 拡張子=CSVファイルから拡張子抽出。 もし、(拡張子=「.csv」)または(拡張子=「.CSV」)ならば、 オフでエクセル起動。 #まず「エクセル起動」。 #<1>-②G2セルの値をファイル名にしてエクセル保存(ここではまだ保存しない) 内容=CSVファイルを開いて、それをCSV取得。 A1へ内容をエクセル一括設定。 ファイル名=G2をエクセルセル取得。 #<2>-②全体セル幅=10、全体セル高=13.5にする エクセル全選択。 10にエクセル選択列幅設定。 13.5にエクセル選択行高さ設定。 A1をエクセル選択。 #全体を選択したまま保存されるのはアレだなーとゆうだけのこと。 #<2>-③シート名=ファイル名(G2セルの値)にする シート名=エクセルシート名取得。 シート名をファイル名にエクセルシート名前変更。 #<1>-②G2セルの値をファイル名にしてエクセル保存(.xlsx) パス名&ファイル名&「.xlsx」へエクセル保存。 エクセル終了。 #必ず「エクセル終了」 違えば、 「ファイルが違います」と言う。 終わる。 #----------------------------------------------- CSVを直接「エクセル開く」とすると、エクセル保存もCSVとして行ってしまうようなので、なでしこで開いて二次元配列としてから、「エクセル一括設定」しています。 他はだいたい見た通り。 |