EXCELファイルを保存するプログラムについて

Question

指定のEXCELファイルを開き、名前を変えて保存するプログラム（ソース）を必要としています。以下に詳細を記入します。

EXCELファイルを開く
(1)36ファイルの中から6ファイルを開く。
(2)その6ファイルは利用者がボックス等に入力して選ぶ。

EXCELファイルを保存
(1)それぞれ別名で保存したい。
(2)保存名はあらかじめ"A","B","C","D","E","F"とする。
(3)別フォルダに保存したい。（あらかじめ保存フォルダを作成しておいてもよい）

例；6ファイルから2ファイルを開き、別名で保存する場合（EXCEL)

全6ファイル（"1","2","3","4","5","6")があるとする
→利用者がボックス等入力する
 　　1{  "2"  }
 　　2{  "5"  }　　※｛　　｝をボックスに見立てている
→"2","5"のファイルが開く
→別名で保存する
　　1{    }は"A"
 　 2{    }は"B"とあらかじめ決めておく
→全6ファイルとは別に"A","B"というファイルが作られ全８ファイルとなる。

HSP3.0(2.6)かHTML Applicationsで、できるのではないかと考えています。他のプログラムは利用できる環境にありません。HSP3.0(2.6)は基本的プログラムを組むことができますが初心者です。HTML Applicationsにおいては全くの初心者です。
もとより、このようなプログラムは可能でしょうか？
ご回答よろしくお願いいたします。

SHIMAPEE · Accepted Answer

ANo.1 お礼への回答です。Excelとは直接は関係ないファイルコピーと解釈しました。ファイル名を表示して選択するのは将来の課題とし、6個のボックスを並べてみました。入力フォルダと出力フォルダはスクリプト内で記述していますので適切に書き換えて下さい。出力フォルダは作成しておいて下さい。ダブルクリックで起動し、6個のボックス全てに入力ファイル名のみを入力して[保存]ボタンを押すとコピーされます。上書き処理です。エラーチェックは【全く行っていません】ので誤りませんように…。 Excelコピー

SHIMAPEE · Answer

ANo.2 補足への回答です。

初めに申し上げましたようにここでできる回答は大筋でしかありません。HTAやJScriptなどで検索すれば様々な情報が得られます。自己責任で情報を選択・活用し、不便な点を改良するとよいでしょう。

>欲をいえば、ファイル名に.xlsをつけなくても実行してくれるとうれしいですが。

拡張子を除いた入力に対して".xls"を連結してやればよいですね。JScriptの文字列は + 記号で連結できます。コードはあえて控えておきます。

>しかしながら、システムに影響するとセキュリティゼロが言っていますが大丈夫でしょうか？

大丈夫じゃありません！　というのは冗談ですが、例えばスクリプトを誤ってシステムのファイルを上書きしてしまったら…ということを考えると危険です。スクリプトの内容を調べてから許可するようにしましょう。

ウィルスセキュリティゼロについては　デジタルライフ > ウィルス対策　のカテゴリを検索されるとよいでしょう。

SHIMAPEE · Answer

まず、このプログラムを掲示板のやりとりとスペースで完結させるのは不可能でしょうと申し上げておきます。

しかし大筋を示すことはできると思いまして、私の勉強のためHTML Applicationsで書いてみました。

ソースをExcelCopy.htaのような名前を付けて保存し、下記の手順で操作してみて下さい。Windows XP SP2で試しました。

(1)ダブルクリックして起動すると、テキストボックス一つと[開く]ボタン、[保存]ボタンの画面が現れます。
(2)テキストボックスに元のExcelファイルのフルパスを入力します。
(3)[開く]ボタンを押すとExcelファイルが開かれます。Excelは更新してもよいですが閉じないで下さい。
(4)[保存]ボタンを押すと、元のExcelファイルと同じフォルダに"A.xls"の名前で保存されます。Excelは自動的に閉じられます。

なお、繰り返しますがこれは大筋でしかありません。テキストボックスを増やすことはもちろん、大量のエラーチェックを入れる必要があります。また、もっと画面をアプリケーションらしくカッコよくすることもできるでしょう。

示された仕様にもいろいろ疑問があります。例えばなぜ"6"というマジックナンバーなのか、ボックスに入力させるのは面倒ではないか（ファイル名を表示して選択させた方が良くないか）、Excelを表示する必要はあるのか、既に"A","B"というファイルがあったらどうするのか、などなど。

HTAを作成してみて不明な点を抜書きして示して頂ければ、別の回答が付くかもしれません。

<HTML>
<HTA:APPLICATION ID="oHTA" APPLICATIONNAME="ExcelCopy" SCROLL="no"
INNERBORDER="no" MAXIMIZEBUTTON="no" MINIMIZEBUTTON="no" SINGLEINSTANCE="yes" />
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=x-sjis">
<TITLE>Excelコピー</TITLE>
<SCRIPT>
var Wsh = new ActiveXObject("WScript.Shell");
var Fs = new ActiveXObject("Scripting.FileSystemObject");
var oExcel;
function go_open(){
oExcel = new ActiveXObject("Excel.Application");
oExcel.Visible = true;
oBooks = oExcel.WorkBooks.Open(document.Form1.txt1.value);
}
function go_save(){
oExcel.ActiveWorkbook.SaveAs(
Fs.BuildPath(Fs.GetParentFolderName(document.Form1.txt1.value), "A.xls"));
oExcel.Quit();
Wsh.Popup("Excelファイルを保存しました。");
}
</SCRIPT></HEAD><BODY>
<FORM NAME="Form1">
Excelファイルを指定して下さい。<input type="text" id="txt1" size="100">
<p>
<input type="button" value="開く" onClick="go_open()" />
<input type="button" value="保存" onClick="go_save()" />
</p>
</BODY></FORM></HTML>

EXCELファイルを保存するプログラムについて

ANo.1 お礼への回答です。

この回答への補足

ANo.2 補足への回答です。

まず、このプログラムを掲示板のやりとりとスペースで完結させるのは不可能でしょうと申し上げておきます。

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング