名前
題名
▼ koujiさん > はじめまして、 > delphiをはじめて間もないものです。 > > 今回、エクセルデータを読み込んでDBへ更新をしているのですが > エクセルデータが、15000件ほどあり時間が掛かってしまうため > 1度CSVへ変換をして、やろうと思っております。 > > 現在 > > objExcel := Null; > try > //Excel起動 > objExcel := CreateOleObject('Excel.Application'); > objExcel.Visible := False; > except > on EOleSysError do begin > MessageBox(Handle,'Excelが起動できません。','警告',MB_OK); > objExcel := unAssigned; > Exit; > end; > end; > try > //ExcelBook オープン > wPath := Trim(MltEdit1.Value); > objBook := objExcel.WorkBooks.Open(wPath); > except > on EOleSysError do begin > MessageBox(Handle,'指定されたファイルを開けません。','警告',MB_OK); > objExcel.DisplayAlerts := False;//メッセージダイアログを表示しない > objExcel.Quit; > objExcel := unAssigned; > Exit; > end; > end; > try > wEditName := Copy(wPath, 1 , Length(wPath)-4); > objBook.SaveAs (wEditName + '.csv' > // ,xlcsv > ); > finally > Screen.Cursor := crDefault; > objExcel.DisplayAlerts := False; > objExcel.Quit; > objExcel := unAssigned; > end; > > > ※wpathは、Diialogで選択しています。 > > ここまでは、分るのですが、 > セーブしたものを開こうとすると > 「テキストファイルではありません」とでてしまい > 開けません。 > > 本当に初歩ですが、切羽詰っているので > ご教授のほどよろしくお願いいたします。 >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link