Topic: Example Converter File Excel to Other Multiple Converter
+ Multiple Converter File By Folder+Sub Folder
Open Code
var
apppath : string;
procedure Form1_TableGrid1_OnChange (Sender: TObject);
begin
Form1.TableGrid1.BestFitColumns(bfboth);
end;
procedure Form1_Button3_OnClick (Sender: TObject; var Cancel: boolean);
Var
i : integer ;
begin
SelectDirectory('Saveto Excel Files','',Form1.Edit2.Text,True,True);
IF Form1.TableGrid1.RowCount > 0 Then
Begin
For i := 0 To Form1.TableGrid1.RowCount -1 Do
Begin
Form1.TableGrid1.Cells[3,i] :=
Form1.Edit2.Text+'\'+
ExtractFileName(Form1.TableGrid1.Cells[1,i])+Form1.TableGrid1.Cells[2,i] ;
Form1.TableGrid1.Cells[4,i] := 'Wait';
End;
End;
end;
procedure Form1_Button2_OnClick (Sender: TObject; var Cancel: boolean);
var
sl : TStringlist ;
i : Integer ;
begin
SelectDirectory('Source Excel Files','',Form1.Edit1.Text,True,True);
IF Form1.Edit1.Text <> '' Then
Begin
sl := Tstringlist.create;
sl.text := GetFilesList(Form1.Edit1.Text ,'*.xls*',true);
For i := 0 To sl.count - 1 DO
sqlexecute('insert into converter_list (source) values ("'+
escape_special_characters(sl[i])+'");');
Form1.TableGrid1.dbUpdate;
sl.Free;
End;
end;
procedure Form1_ComboBox1_OnChange (Sender: TObject);
var
i : integer ;
begin
Form1.Edit3.Text := SQLExecute('SELECT description FROM converter_type WHERE id = '+ IntToStr(Form1.ComboBox1.dbItemID) ) ;
Form1.Edit4.Text := SQLExecute('SELECT value FROM converter_type WHERE id = '+ IntToStr(Form1.ComboBox1.dbItemID) ) ;
Form1.Edit5.Text := SQLExecute('SELECT extension FROM converter_type WHERE id = '+ IntToStr(Form1.ComboBox1.dbItemID) ) ;
For i:= 0 To Form1.TableGrid1.RowCount - 1 Do
Begin
Form1.TableGrid1.Cells[2,i] := Form1.Edit5.Text ;
End;
end;
procedure Form1_Button4_OnClick (Sender: TObject; var Cancel: boolean);
begin
Form1.Edit1.Clear ;
Form1.Edit2.Clear ;
Form1.Edit3.Clear ;
Form1.Edit4.Clear ;
Form1.Edit5.Clear ;
Form1.ComboBox1.ItemIndex := -1 ;
SQLExecute('DELETE FROM converter_list') ;
Form1.TableGrid1.dbUpdate ;
end;
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
ExcelFile : Variant;
WorkBook : Variant;
WorkSheet : Variant;
i : integer ;
begin
IF Form1.TableGrid1.RowCount >0 Then
Begin
For i := 0 To Form1.TableGrid1.RowCount - 1 Do
Begin
Form1.TableGrid1.ScrollToRow(i) ;
Form1.TableGrid1.Cells[4,i] := 'Process' ;
Form1.TableGrid1.BestFitColumns(bfboth);
ExcelFile := CreateOleObject('Excel.Application');
WorkBook := ExcelFile.WorkBooks.Open( Form1.TableGrid1.Cells[1,i] );
WorkSheet := WorkBook.WorkSheets.Item['Sheet1'];
WorkBook.SaveAs(Form1.TableGrid1.Cells[3,i], StrToInt(Form1.Edit4.Text) ) ;
WorkBook.Close;
ExcelFile.Quit;
Form1.TableGrid1.Cells[4,i] := 'OK' ;
Form1.TableGrid1.BestFitColumns(bfboth);
End;
end;
OpenFile(Form1.Edit2.Text );
End;
begin
apppath := ExtractFilePath(Application.ExeName);
end.
Screen
XlFileFormat enumeration (Excel) Link
https://docs.microsoft.com/en-us/office … fileformat
| Name | Value | Description | Extension |
| :-------------------------------- | :-------- | :---------------------------------------- | :----------------------- |
| **xlAddIn** | 18 | Microsoft Excel 97-2003 Add-In | *.xla |
| **xlAddIn8** | 18 | Microsoft Excel 97-2003 Add-In | *.xla |
| **xlCSV** | 6 | CSV | *.csv |
| **xlCSVMac** | 22 | Macintosh CSV | *.csv |
| **xlCSVMSDOS** | 24 | MSDOS CSV | *.csv |
| **xlCSVUTF8** | 62 | UTF8 CSV | *.csv |
| **xlCSVWindows** | 23 | Windows CSV | *.csv |
| **xlCurrentPlatformText** | -4158 | Current Platform Text | *.txt |
| **xlDBF2** | 7 | Dbase 2 format | *.dbf |
| **xlDBF3** | 8 | Dbase 3 format | *.dbf |
| **xlDBF4** | 11 | Dbase 4 format | *.dbf |
| **xlDIF** | 9 | Data Interchange format | *.dif |
| **xlExcel12** | 50 | Excel Binary Workbook | *.xlsb |
| **xlExcel2** | 16 | Excel version 2.0 (1987) | *.xls |
| **xlExcel2FarEast** | 27 | Excel version 2.0 far east (1987) | *.xls |
| **xlExcel3** | 29 | Excel version 3.0 (1990) | *.xls |
| **xlExcel4** | 33 | Excel version 4.0 (1992) | *.xls |
| **xlExcel4Workbook** | 35 | Excel version 4.0. Workbook format (1992) | *.xlw |
| **xlExcel5** | 39 | Excel version 5.0 (1994) | *.xls |
| **xlExcel7** | 39 | Excel 95 (version 7.0) | *.xls |
| **xlExcel8** | 56 | Excel 97-2003 Workbook | *.xls |
| **xlExcel9795** | 43 | Excel version 95 and 97 | *.xls |
| **xlHtml** | 44 | HTML format | *.htm; *.html |
| **xlIntlAddIn** | 26 | International Add-In | No file extension |
| **xlIntlMacro** | 25 | International Macro | No file extension |
| **xlOpenDocumentSpreadsheet** | 60 | OpenDocument Spreadsheet | *.ods |
| **xlOpenXMLAddIn** | 55 | Open XML Add-In | *.xlam |
| **xlOpenXMLStrictWorkbook** | 61 (&H3D) | Strict Open XML file | *.xlsx |
| **xlOpenXMLTemplate** | 54 | Open XML Template | *.xltx |
| **xlOpenXMLTemplateMacroEnabled** | 53 | Open XML Template Macro Enabled | *.xltm |
| **xlOpenXMLWorkbook** | 51 | Open XML Workbook | *.xlsx |
| **xlOpenXMLWorkbookMacroEnabled** | 52 | Open XML Workbook Macro Enabled | *.xlsm |
| **xlSYLK** | 2 | Symbolic Link format | *.slk |
| **xlTemplate** | 17 | Excel Template format | *.xlt |
| **xlTemplate8** | 17 | Template 8 | *.xlt |
| **xlTextMac** | 19 | Macintosh Text | *.txt |
| **xlTextMSDOS** | 21 | MSDOS Text | *.txt |
| **xlTextPrinter** | 36 | Printer Text | *.prn |
| **xlTextWindows** | 20 | Windows Text | *.txt |
| **xlUnicodeText** | 42 | Unicode Text | No file extension; *.txt |
| **xlWebArchive** | 45 | Web Archive | *.mht; *.mhtml |
| **xlWJ2WD1** | 14 | Japanese 1-2-3 | *.wj2 |
| **xlWJ3** | 40 | Japanese 1-2-3 | *.wj3 |
| **xlWJ3FJ3** | 41 | Japanese 1-2-3 format | *.wj3 |
| **xlWK1** | 5 | Lotus 1-2-3 format | *.wk1 |
| **xlWK1ALL** | 31 | Lotus 1-2-3 format | *.wk1 |
| **xlWK1FMT** | 30 | Lotus 1-2-3 format | *.wk1 |
| **xlWK3** | 15 | Lotus 1-2-3 format | *.wk3 |
| **xlWK3FM3** | 32 | Lotus 1-2-3 format | *.wk3 |
| **xlWK4** | 38 | Lotus 1-2-3 format | *.wk4 |
| **xlWKS** | 4 | Lotus 1-2-3 format | *.wks |
| **xlWorkbookDefault** | 51 | Workbook default | *.xlsx |
| **xlWorkbookNormal** | -4143 | Workbook normal | *.xls |
| **xlWorks2FarEast** | 28 | Microsoft Works 2.0 far east format | *.wks |
| **xlWQ1** | 34 | Quattro Pro format | *.wq1 |
| **xlXMLSpreadsheet** | 46 | XML Spreadsheet | *.xml |
My Visual Database : I Love You
Easy For Beginner Student For Me
Easy For Beginner Student For Me