名前
題名
▼ Mr.XRAYさん > ▼ koujiさん，こんにちは． > > > wEditName := Copy(wPath, 1 , Length(wPath)-4); > > objBook.SaveAs (wEditName + '.csv' > > // ,xlcsv > > ); > > xlcsvのところがコメントアウトになっていますが，xlcsvを指定しないと > csvでは保存しません．Excelファイルで保存することになります． > 開発環境(Windows,Delphi,Excelのバージョン)はどうなっていますか． > > 以下の環境で確認しました． > Windows XP(SP2) + Delphi7 Pro + Excel2000 > Excelを非表示で実行(この方が高速)していますが，表示する必要がなければ > M & IさんのXBiffを利用するとものすごく高速になりますよ． > > http://homepage3.nifty.com/m-and-i/tips/tipspage.htm#component > http://mrxray.on.coocan.jp/bbs/DelphiBBS/mrxray_delphifan_coffe.cgi?tree=s1661 > > unit Unit1; > > interface > > uses > Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, > Dialogs, StdCtrls; > > type > TForm1 = class(TForm) > Button1: TButton; > OpenDialog1: TOpenDialog; > procedure Button1Click(Sender: TObject); > private > { Private 宣言 } > public > { Public 宣言 } > end; > > var > Form1: TForm1; > > implementation > > {$R *.dfm} > > uses ComObj,Excel2000; > > procedure TForm1.Button1Click(Sender: TObject); > var > objExcel : OleVariant; > objBook : OleVariant; > wPath : String; > wEditName : String; > begin > //Excelオブジェクト生成 > objExcel := CreateOleObject('Excel.Application'); > objExcel.Visible := False; > objExcel.DisplayAlerts := False; > > OpenDialog1.InitialDir := ExtractFileDir(ParamStr(0)); > try > if OpenDialog1.Execute then begin > //ExcelBook オープン > wPath := OpenDialog1.FileName;// Trim(MltEdit1.Value); > try > objBook := objExcel.WorkBooks.Open(wPath); > except > on EOleSysError do begin > MessageBox(Handle,'指定されたファイルを開けません。','警告',MB_OK); > objExcel.Quit; > objExcel := unAssigned; > exit; > end; > end; > > //拡張子を変更するだけならこれでOK > wEditName := ChangeFileExt(wPath,'.csv'); > objBook.SaveAs (wEditName,xlcsv); > end; > finally > Screen.Cursor := crDefault; > objExcel.Quit; > objExcel := unAssigned; > end; > end; > > end.
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link