通用Excel导入工具V1,PHP导入导出Excel代码

1.VB高效导入Excel二零零一和Excel二零零七文书到MSHFlexGrid控件显示

一.导入

通用Excel导入工具V1.0 

2.从前也可能有Excel导入通用作用,但速度有一点慢一会把三种完结格局都提供出为参谋相比较。

  导入需求运用能读取Excel的零部件,英特网也有比较好的机件,这里享用本身利用的:下载 
提取码:vxyn。(注意八个公文有引用关系)

运用验证

一、原通用导入excel文件到MSHFlexGrid控件如下:

<?php
//传入要导入的Excel的文件名
function import_to_DB($filename) {
  require_once'reader.php';
  $data = new Spreadsheet_Excel_Reader();   //创建读取Excel的对象
  $data->setOutputEncoding('utf-8');  //设置读取Excel内容后输出的字符编码
  $data->read("data/Excel/{$filename}.xls");
  $db = mysql_connect('localhost', '用户名', '密码') or die("Could not connect to database."); //连接数据库  
  mysql_query("set names 'uft8'"); //输出中文  
  mysql_select_db('数据库名'); //选择数据库  
  error_reporting(E_ALL ^ E_NOTICE);
  for ($i = 1; $i <= $data->sheets[0]['numRows']; $i++) {
    echo $data->sheets[0]['cells'][$i][列数];
    //这里可以把每一行相应列的值插到数据库中,如:
    /*
    $sql="insert "表名" values(对应项...)";
    mysql_query($sql);
    可加上错误判断
    */ 
  } 
?>    

   
有的时候候大家的数额贮存在Excel中(非常是对于客户来讲更爱好使用Excel搜聚一些常用数据),而系统又必要那些数据来拍卖别的工作,那么此时我们就
要求将那一个数量导入到数据库中。不过鉴于Excel的样式各样各样,因而老是导入时都不能够不书写比非常多双重的代码。很明白对于三个软件开采者做这么些重复劳动是
一件很无趣的事情。那么怎样来寻觅一种通用的办法吧?后天大家就看一下什么样化解这些主题材料。 

Public Function DRExcel(fd As MSHFlexGrid, CD1 As CommonDialog) As Boolean   '导入Excel文件函数  20120621孙广乐Dim file_name As StringDim xlApp As New Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.worksheetDim xlQuery As Excel.QueryTableDim r   'r为行数Dim i, jOn Error GoTo a:file_name = ""fnum = FreeFileCD1.Flags = &H2With CD1  .Flags = cdlOFNHideReadOnly & cdlOFNOverwritePrompt  ' 设置过滤器  .Filter = "xls文档|*.xls|xlsx文档|*.xlsx"        '只能导入xls这种文件格式   ' 指定缺省的过滤器  .FilterIndex = 1  '.ShowSave  .ShowOpen  file_name = .filenameEnd WithIf file_name = "" Then       '判断文件是否存在  DRExcel = False  Exit FunctionEnd If    Set xlApp = CreateObject("Excel.Application")Set xlBook = NothingSet xlSheet = NothingSet xlBook = xlApp.Workbooks().AddSet xlSheet = xlBook.Worksheets("sheet1")'xlApp.Visible = TrueSet xlBook = xlApp.Workbooks.Open(file_name)Set xlSheet = xlBook.Worksheets(1)    '测列数j = 1Do While xlSheet.Cells(1, j) <> "" j = j + 1Loopi = 1Do While xlSheet.Cells(i, 1) <> "" i = i + 1LoopIf j = 1 Or i = 1 Then  MsgBox "不允许导入空表!"  DRExcel = False  Exit FunctionEnd Iffd.Visible = Truefd.rows = i - 1fd.Cols = j - 1    For i = 1 To fd.rows       For j = 1 To fd.Cols  '列数         fd.TextMatrix(i - 1, j - 1) = xlSheet.Cells  Next jNext i    'xlApp.Application.Visible = TruexlBook.ClosexlApp.Quit   '"交还控制给Excelfd.ColAlignment(0) = 0 '物品代码MsgBox "完成导入"fd.FixedRows = 1fd.FixedCols = 0CD1.filename = ""DRExcel = Truea:End Function

简单的说,能够读出表格中每一行中的相应列$data->sheets[0][行][列]的值,插入操作就好办了。

   总体规划设计思路 

二、新点子,高效把excel文件导入到MSHFlexGrid控件。这几个丰硕火速。如下:

通用Excel导入工具V1,PHP导入导出Excel代码。二.导出

    设
计通用Excel的指标就是为着制止双重工作,也就是说不必因为Excel的体裁、数据等转移而再一次从零做起、重复劳动。由此大家就亟须抽出三个通用的东
西出来,使用时只供给关切相关的政工而不必过度关怀相关excel操作和存储。再简单一点正是包裹共同点,暴漏天性点。思虑到这种场馆,我们得以动用安顿文件的法子来消除这几个难题。在陈设文件中大家配置Excle要导入的表、字段等新闻,在进展导入时再依据配置文件将数据导入到数据库中。那样一来,在供给举行Excel导入时只要求为有个别或多少个excel配置三个xml文件,然后调用相关的类就能够达成全体excel导入职业了。 

FGrid1.FixedCols = 0Dim file_name As Stringfile_name = ""CD1.Flags = &H2With CD1  .Flags = cdlOFNHideReadOnly & cdlOFNOverwritePrompt  ' 设置过滤器  .Filter = "xls文档|*.xls|xlsx文档|*.xlsx"        '只能导入xls这种文件格式   ' 指定缺省的过滤器  .FilterIndex = 1  '.ShowSave  .ShowOpen  file_name = .filenameEnd WithIf file_name = "" Then       '判断文件是否存在    MsgBox ("选择的文件已经不存在了")  Exit SubEnd IfDim excelid As Excel.Application    Set excelid = New Excel.Application    excelid.Workbooks.Open (file_name)        excelid.ActiveWindow.SplitRow = 0    excelid.ActiveWorkbook.save    excelid.ActiveWorkbook.Close    excelid.QuitDim CHART1 As New ADODB.Connection, chart2 As New ADODB.Recordset    CHART1.CursorLocation = adUseClient        If Right(file_name, 5) = ".xlsx" Then 'excel2007版本以上        CHART1.Open "Provider=Microsoft.ACE.OLEDB.12.0;Persist Security Info=False;Data Source=" & file_name & ";Extended Properties='Excel 12.0;HDR=Yes'"    Else        CHART1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & file_name & ";Extended Properties='Excel 8.0;HDR=Yes'"    End If    Dim rs As ADODB.Recordset    Set rs = CHART1.OpenSchema(adSchemaTables)    Dim ls_name As String    ls_name = rs.Fields(2).Value '取哪个sheet页数据    chart2.Open "select * From [" & ls_name & "]", CHART1, adOpenKeyset, adLockOptimistic    Set FGrid1.DataSource = chart2Set CHART1 = NothingSet chart2 = Nothing    

  导出能够选择MIME协议轻易导出表格文件,不用重视任何组件。按如下格式设置header就可以导出Excel,相同的时候浏览器举行下载

   
补充表明:通用的局限性 

header('Content-type: text/html; charset=utf-8');
header("Content-type:application/vnd.ms-excel;charset=UTF-8"); //application/vnd.ms-excel指定输出Excel格式
header("Content-Disposition:filename=表格文件名.xls"); //输出的表格名称

    在
这里说澳优下,即便大家统一盘算的是贰个通用的Excel导入程序,不过此间的”通用”只是相对来讲的,并非考虑了全体Excel的景况,因为Excel的
设计景况卓殊的纷纷两种,要将有所的处境都考虑进去是一个漫漫的历程。程序这几天有的时候不思念包含计算行的事态(能够蕴含合併行、代码表字段等)。

一体化代码如下:

    安顿文件设计 

<?php 
header('Content-type: text/html; charset=utf-8');
header("Content-type:application/vnd.ms-excel;charset=UTF-8"); 
header("Content-Disposition:filename=表格文件名.xls");
$conn = mysql_connect("localhost","root","数据库密码") or die("不能连接数据库");
mysql_select_db("数据库名", $conn);
mysql_query("set names 'UTF-8'");
$sql="select * from 表名 where 条件";

$result=mysql_query($sql);
echo "表头1\t表头2\t表头3\n";
while($row=mysql_fetch_array($result)){
  echo $row[0]."\t".$row[1]."\t".$row[2]."\n";
}
?>

    思量使用xml配置的法子来统一希图通用Excel导入,如何设计好xml就成了设计的要害。对于单表导入(三个Excel首要导入到两个数据库表中,不免除牵
扯其余代码表的景况)大家的配备文件无论以数据库为根基设计(重要基于数据库表结构)依然以Excel(主要依靠Excel格式设计)为根基设计都能够,
但借使是多表导入(也正是一个Excel能够导入到几张表中的景色)思考其复杂依旧以数据库为底蕴越发适用。基于此种思索,大家全部配置规划会以数据库
表结构为根基来规划。最后的安排文件设计样举个例子下:  

此处其实\t正是换格,\n就是换行。在一个网页中安装那些php文件的链接,当点击时浏览器会活动把传过来的流保存为Excel文件。

<?xml version="1.0"?>
<Config EndTag="RowBlank" HeaderIndex="1" DataIndex="2" WorkSheetCount="0">  
    <Table Name="" DeleteRepeat="true" ExcludedColumns="" >      
        <Column IsPrimaryKey="" ColumnName="" HeaderText="" Required="true" DataType="number" DataLength="100" DefaultValue="" Comment="">      
            <CodeTalbe Name="" PrimaryKey=""  ReferenceColumn="" Condition=""/>
        </Column>      
    </Table>
</Config>

PHPExcel 是用来操作Office Excel
文书档案的三个PHP类库,它根据微软的OpenXML规范和PHP语言。可以行使它来读取、写入区别格式的电子手表格

 

导出类

Config节点

PHPExcel类导出excel,同一时间对PHPExcel做了些轻易管理,基本上能够知足数码导出excel的效应

   
Config节点位于最外层,代表全部配置。其属性EndTag(数据读取的终结标记,举个例子”RowBlank”代表空行甘休,在读取Excel时遇见某行未有任何数据的情事则视为甘休;也可以为某些列地址(如C),在导入时到了此列为空就能终止导入操作);

代码如下:

   
HeaderIndex代表excel表头对应的行值,约等于标题行(暗许从1从头)。

<?php
//载入PHPExcel类
require './phpexcel/PHPExcel.php';
//创建一个excel对象实例
$objPHPExcel = new PHPExcel();
//设置文档基本属性
$objProps = $objPHPExcel->getProperties();
$objProps->setCreator("Lao Mao");
$objProps->setLastModifiedBy("Lao Mao");
$objProps->setTitle("Office XLS Test Document");
$objProps->setSubject("Office XLS Test Document, Demo");
$objProps->setDescription("Test document, generated by PHPExcel.");
$objProps->setKeywords("office excel PHPExcel");
$objProps->setCategory("Test");
//设置当前的sheet索引,用于后续的内容操作。
//一般只有在使用多个sheet的时候才需要显示调用。
//缺省情况下,PHPExcel会自动创建第一个sheet被设置SheetIndex=0
$objPHPExcel->setActiveSheetIndex(0);
//设置当前活动sheet的名称
$objActSheet = $objPHPExcel->getActiveSheet();
$objActSheet->setTitle('测试Sheet');
//设置单元格内容www.jb51.net
//这里的数据可以从数据库中读取,然后再做循环处理
$objPHPExcel->getActiveSheet()->SetCellValue('A1', 'a1');
$objPHPExcel->getActiveSheet()->SetCellValue('A2', 'a2');
$objPHPExcel->getActiveSheet()->SetCellValue('A3', 'a3');
$objPHPExcel->getActiveSheet()->SetCellValue('A4', 'a4');
$objPHPExcel->getActiveSheet()->SetCellValue('A5', 'a5');
$objPHPExcel->getActiveSheet()->SetCellValue('B1', 'b1');
$objPHPExcel->getActiveSheet()->SetCellValue('B2', 'b2');
$objPHPExcel->getActiveSheet()->SetCellValue('B3', 'b3');
$objPHPExcel->getActiveSheet()->SetCellValue('B4', 'b4');
$objPHPExcel->getActiveSheet()->SetCellValue('B5', 'b5');
$objPHPExcel->getActiveSheet()->SetCellValue('C1', 'c1');
$objPHPExcel->getActiveSheet()->SetCellValue('C2', 'c2');
$objPHPExcel->getActiveSheet()->SetCellValue('C3', 'c3');
$objPHPExcel->getActiveSheet()->SetCellValue('C4', 'c4');
$objPHPExcel->getActiveSheet()->SetCellValue('C5', 'c5');
//输出文档
$objWriter = new PHPExcel_Writer_Excel5($objPHPExcel);
//设置header头部信息,并输出到浏览器
//header('Content-Type: application/vnd.ms-excel');
//header("Content-Disposition:attachment; filename=demo.xls");
//header('Cache-Control: max-age=0');
//$objWriter->save('php://output');
//保存至某一位置
$objWriter->save(dirname(__FILE__) . '/demo.xls');

   
DataIndex表示数据行开头行索引(从2始发)。

导入excel的方法:

   
WorkSheetCount代表对此任何Excel文件,假若其包罗七个专业表,则会依附所设的值管理前多少个职业表,属性值为0,则会管理凡职业表,默以为0。 

代码:

Table节点

<?php
//载入PHPExcel类
include(dirname(__FILE__).'/phpexcel/PHPExcel.php');
$Obj = new PHPExcel_Reader_Excel5();
$Obj->setReadDataOnly(true);
//读取demo.xls文件
$phpExcel = $Obj->load(dirname(__FILE__).'/output.xls');
//获取当前活动sheet
$objWorksheet = $phpExcel->getActiveSheet();
//获取行数
$highestRow = $objWorksheet->getHighestRow();
//获取列数
$highestColumn = $objWorksheet->getHighestColumn();
$highestColumnIndex = PHPExcel_Cell::columnIndexFromString($highestColumn);
//循环输出数据 www.jb51.net
$data = array();
for($row = 1; $row <= $highestRow; ++$row) {
 for($col = 0; $col < $highestColumnIndex; ++$col) {
 $val = $objWorksheet->getCellByColumnAndRow($col, $row)->getValue();
 $data[$row][$col] = trim($val);
 }
}
echo '<pre>';
print_r($data);
echo '</pre>';

   
Table节点位于Config节点内,对应数据库中的表,能够有多少个;

然则这种措施有难题,老版本的excel有个数据上限,最多65536行数据,那时大家就不只怕通过excel来促成大数目标导出,
但我预计也非常少个有那样作者多少吧,当然假如有能够思考使用csv来操作

   
Name属性对应要导入的表名称;

如上所述正是本文的全体内容了,希望我们能够欣赏。

   
DeleteRepeat属性表示是不是删除重复行(倘若为true则会依照主键先删除重复行再施行插入操作);

澳门葡京备用网址,你只怕感兴趣的篇章:

  • 依据PHP导出Excel的小经验
    完美化解乱码难题
  • php导入导出excel实例
  • php中程导弹出多少到excel时数字变为科学计数的化解措施
  • 依照php导出到Excel或CSV的详解(附utf8、gbk
    编码转换)
  • php将数据库导出成excel的点子
  • PHP导出MySQL数据到Excel文件(fputcsv)
  • php导出excel格式数据难题
  • PHP达成导出带样式的Excel
  • PHP使用PHPexcel导入导出数据的形式
  • php中通用的excel导出方法实例

   
ExcludedColumns表示排除列,八个列名使用”,”分割(这么些字段不会导入)。 

Column节点

   
Column节点位于Table节点内,对列的对应安插,日常有八个(注意对于excel中尚无的列,而数据库表必要导入的,也须求配置Column节点,此时HeaderText为空或不配备HeaderText属性);

   
IsPrimarykey属性表示是不是为主键(当Table节点配置DeleteRepeat为ture时必须最少钦命八个Column节点的   
IsPrimaryKey为true,此属性是为delete条件做图谋的[有望它不是真正的主键]);

   
ColumnName表示对应的列名;

   
HeaderText代表对应的Excel列头(在依附Excel小名导入时依据此值分明导入的列);

   
Required钦赐此列是不是为必需导入的列(如若安顿为true,excel中此列为空并且未有安插私下认可值则会抛出拾叁分);

   
DataType为数据类型(譬喻string、number、datetime用于数据校验);

    DefaultValue
为默许值(注意其值不自然是钦命的字符值,能够是”马克斯”、”NewID”、借使钦点为“WO智跑KSHEETNAME”则取当前职业薄的称号做为其值,
假若为马克斯,那么此列必得为数值类型,此时在导入的时候若是急需采纳暗许值,就能够在原来数据库表中此列最大值的底蕴上加上1导入到数据库中,假诺为
NewID在导入的时候须要选用暗中认可值系统就能够自动生成Guid值);

   
Comment是此列的表明。 

CodeTable节点

   
在Column节点中还足以安插CodeTable节点,表示代码表。

   
Name属性值表示援用表的表名称;

   
PrimaryKey指待援引主表的主键,也便是子表的外键,Column配置节点的ColumnName属性值应该与CodeTable节点的PrimaryKey属性值设置一至,如以下配置:

style=”background: #ffff00;”><Column ColumnName=”CategoryID” HeaderText=”商品种类” DefaultValue=””>

style=”background: #ffff00;”>   <CodeTalbe Name=”Categories” PrimaryKey=”CategoryID”  ReferenceColumn=”CategoryName”/>

style=”background: #ffff00;”></Column>

    ReferenceColumn
表示对应代码字段关联合具名称列,正是大家导入时所依照的excel对应值(比如CategoryID对应CategoryName,那么
ReferenceColumn正是CategoryName,往往Excel中也许寄存的是看似于CategoryName的东西并非CategoryID,而导入操作时索要CategoryID)。 

导入实例证实:

图一 待导入Excel文件,可同期导入多少个工作薄(WorkSheet)

 澳门葡京备用网址 1

图二 设置导入法规

澳门葡京备用网址 2

图三 使用支付的导入工具进行导入

澳门葡京备用网址 3

图四 导入达成后入库的数目

澳门葡京备用网址 4

 

相关文章

发表评论

电子邮件地址不会被公开。 必填项已用*标注

*
*
Website