精华内容
下载资源
问答
  • 代码:Sub Click() WebBrowser1.Navigate "http://www.baidu.com" WebBrowser1.Silent = True End Sub 效果:------------------------------------------------------------------------------

    代码:

    Sub Click()
    
    WebBrowser1.Navigate "http://www.baidu.com"
    WebBrowser1.Silent = True
    End Sub 

    效果:


    ------------------------------------------------------------------------------


    展开全文
  • Delphi7.0将TDBGrid导入到Excel表中,测试程序先连接好SQLSERVER数据库,并将数据读取到TDBGrid中,然后再将数据从TDBGrid导入到Excel表中,为了测试方便,SQLSERVER数据库文件已经附源码包中。以下代码片断会有...
  • 先将excel表中的数据导入到dataview中2.然后将dataview中的数据导入到sql server中aspx源码: ...@ Page Language="C#" AutoEventWireup="true" CodeFile="Default.aspx.cs" Inherits="_Default" %>DOCTYPE...

    实现思路:

    1.先将excel表中的数据导入到dataview中

    2.然后在将dataview中的数据导入到sql server中

    aspx源码:

     

    <%@ Page Language="C#" AutoEventWireup="true"  CodeFile="Default.aspx.cs" Inherits="_Default" %>

    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

    <html xmlns="http://www.w3.org/1999/xhtml" >
    <head runat="server">
        
    <title>无标题页</title>
    </head>
    <body>  
        
    <form id="form1" runat="server">
        
    <div>
        
    <input id="File1" type="file" runat="server" />
            
    <asp:Button ID="btnUpload" runat="server" Text="导入" OnClick="btnUpload_Click" /><br />
            
    <asp:GridView ID="GridView1" runat="server">
        
    </asp:GridView>
        
    </div>
        
    </form>    
    </body>
    </html>

    .cs源码:

     

    using System;
    using System.Data;
    using System.Data.OleDb;
    using System.Data.SqlClient;
    using System.Configuration;
    using System.Web;
    using System.Web.Security;
    using System.Web.UI;
    using System.Web.UI.WebControls;
    using System.Web.UI.WebControls.WebParts;
    using System.Web.UI.HtmlControls;

    public partial class _Default : System.Web.UI.Page 
    {
        
    protected void Page_Load(object sender, EventArgs e)
        
    {

        }

        
    /// <summary>
        
    /// 实现excel中的数据导入sql数据库中
        
    /// 思路:1.先将excel中的数据导入dateview,然后将dateview中的数据导入sql数据库里面
        
    /// </summary>
        
    /// <param name="sender"></param>
        
    /// <param name="e"></param>

        protected void btnUpload_Click(object sender, EventArgs e)
        
    {
            
    //excel的链接字符串
            string sConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + File1.PostedFile.FileName.ToString() + ";" + "Extended Properties=Excel 8.0;";
            
    //建立excel的链接
            OleDbConnection objConn = new OleDbConnection(sConnectionString);
            objConn.Open();
            OleDbCommand objCmdSelect 
    = new OleDbCommand("select * from [Sheet1$]",objConn);
            OleDbDataAdapter objAdapter1 
    = new OleDbDataAdapter();
            objAdapter1.SelectCommand 
    = objCmdSelect;
            DataSet objDataset1 
    = new DataSet();
            objAdapter1.Fill(objDataset1, 
    "XLData");
            GridView1.DataSource 
    = objDataset1.Tables[0];
            GridView1.DataBind();
            DataTable dt 
    = objDataset1.Tables[0];
            DataView myView 
    = new DataView(dt);

            
    //sql server的数据库连接
            SqlConnection conn = new SqlConnection(ConfigurationManager.ConnectionStrings["ConStr"].ConnectionString);
            SqlCommand cmd 
    = conn.CreateCommand();
            cmd.CommandType 
    = CommandType.StoredProcedure;
            cmd.CommandText 
    = "Proc_Address";
            
    int count = 0;   //用来记录出错的条数
            try
            
    {
                
    foreach (DataRowView myDrv in myView)
                
    {
                    count
    ++;
                    
    //关闭上一次的sql连接
                    if (conn.State.ToString() != "Closed")
                    
    {
                        conn.Close();
                        
    //清空每一次的sql参数
                        cmd.Parameters.Clear(); 
                    }


                    SqlParameter paraCardNo 
    = cmd.Parameters.Add("@CardNo", SqlDbType.Char);
                    SqlParameter paraToAddress 
    = cmd.Parameters.Add("@ToAddress", SqlDbType.Char);
                    SqlParameter paraCCAddress 
    = cmd.Parameters.Add("@CCAddress", SqlDbType.Char);
                    SqlParameter paraYYYYMM 
    = cmd.Parameters.Add("@YYYYMM", SqlDbType.Char);
                    
    //表明是输出参数
                    paraCardNo.Direction = ParameterDirection.Input;
                    paraToAddress.Direction 
    = ParameterDirection.Input;
                    paraCCAddress.Direction 
    = ParameterDirection.Input;
                    paraYYYYMM.Direction 
    = ParameterDirection.Input;
                    
    //参数赋值
                    paraCardNo.Value = myDrv[0].ToString().Trim();
                    paraToAddress.Value 
    = myDrv[1].ToString().Trim();
                    paraCCAddress.Value 
    = myDrv[2].ToString().Trim();
                    paraYYYYMM.Value 
    = DateTime.Now.Year + DateTime.Now.Month;
                    conn.Open();
                    cmd.ExecuteNonQuery();  
    //写入sql数据库
                }

            }

            
    catch
            
    {
                Page.Response.Write(
    "alert('第"+count.ToString()+"数据出错!')");
                objConn.Close();            
    //关闭excel连接
            }

            objConn.Close();                
    //关闭excel连接
        }

    }

    存储过程“ Proc_Address”

     

    ALTER PROCEDURE Proc_Address 
        @CardNo 
    char(20),
        @ToAddress 
    char(50),
        @CCAddress 
    char(50),
        @YYYYMM 
    char(12)
    AS
        insert into EmailAddress (CardNo,ToAddress,CCAddress,YYYYMM) values (@CardNo,@ToAddress,@CCAddress,@YYYYMM)
            
        
    return
    展开全文
  • <p>Good evening, i am reading excel file with PHPExcel, it works fine but i dont know how to get styling from excel table. <p>I read that there is some getStyle() method in PHPExcel, but i am not ...
  • 使用python在excel表格增加新的sheet

    万次阅读 多人点赞 2018-07-18 17:15:43
    方法一:使用xlutils.copy import xlrd, xlwt from xlutils.copy import copy as xl_copy ...rb = xlrd.open_workbook('ex.xls', formatting_info=True) # make a copy of it wb = xl_copy(rb) #...

    方法一:使用xlutils.copy

    import xlrd, xlwt
    from xlutils.copy import copy as xl_copy
    
    # open existing workbook
    rb = xlrd.open_workbook('ex.xls', formatting_info=True)
    # make a copy of it
    wb = xl_copy(rb)
    # add sheet to workbook with existing sheets
    Sheet1 = wb.add_sheet('Sheet1')
    wb.save('ex.xls')

    方法二:使用openpyxl库

    import openpyxl
    wb=openpyxl.load_workbook(r'ex.xlsx')
    wb.create_sheet(title='Sheet2',index=0)
    wb.save(r'ex.xlsx')

     

    展开全文
  • setSheet(true); // for 1st row heading subject heading setting $objPHPExcel->getActiveSheet()->mergeCells("A1:B1")->setCellValueByColumnAndRow(0,1, "Subject"); $objPHPExcel->...
  • header("Content-Type: application/vnd.ms-excel"); $flag = false;foreach($data as $row) {if(!$flag) { echo implode("\t", array_keys($row)) . " "; $flag = true; } array_walk($row, 'cleanData'); ...
  • //将test4中表1的内容填进test31,接已有内容后面。.pro文件添加QT += axcontainer ,.h文件#include<QAxObject> //第一个test3 QAxObject excel3("Excel.Application"); excel3.set...
    //将test4中表1的内容填进test3表1中,接在已有内容后面。在.pro文件中添加QT += axcontainer ,在.h文件中#include<QAxObject>
        //第一个test3
        QAxObject excel3("Excel.Application");
        excel3.setProperty("Visible",true);
        QAxObject *workbook3 = excel3.querySubObject("WorkBooks");
        workbook3->dynamicCall("Open(const QString&)","D:\\test3.xlsx");
        QAxObject *work_book3;
        QAxObject *work_sheets3;
        QAxObject *work_sheet3;
        QAxObject *used_range3;
        QAxObject *rows3;
        QAxObject *column3;
        QAxObject *cell3;
        work_book3 = excel3.querySubObject("ActiveWorkBook");
        work_sheets3 = work_book3->querySubObject("Sheets");
        work_sheet3 = work_book3->querySubObject("Sheets(int)",1);
        used_range3 = work_sheet3->querySubObject("UsedRange");
        rows3 = used_range3->querySubObject("Rows");
        column3 = used_range3->querySubObject("Columns");
        int row_start3 = used_range3->property("Row").toInt();
        int row_count3 = rows3->property("Count").toInt();
    
    
        //第二个test4
        QAxObject excel4("Excel.Application");
        excel4.setProperty("Visible",true);
        QAxObject *workbook4 = excel4.querySubObject("WorkBooks");
        workbook4->dynamicCall("Open(const QString&)","D:\\test4.xlsx");
        QAxObject *work_book4;
        QAxObject *work_sheets4;
        QAxObject *work_sheet4;
        QAxObject *used_range4;
        QAxObject *rows4;
        QAxObject *column4;
        QAxObject *cell4;
        QVariant cell_value4;
        work_book4 = excel4.querySubObject("ActiveWorkBook");
        work_sheets4 = work_book4->querySubObject("Sheets");
        work_sheet4 = work_book4->querySubObject("Sheets(int)",1);
        used_range4 = work_sheet4->querySubObject("UsedRange");
        rows4 = used_range4->querySubObject("Rows");
        column4 = used_range4->querySubObject("Columns");
        int row_start4 = used_range4->property("Row").toInt();
        int column_start4 = used_range4->property("Column").toInt();
        int row_count4 = rows4->property("Count").toInt();
        int column_count = column4->property("Count").toInt();
    
    
        //用循环完成复制
        for(int i=row_start4;i<row_start4+row_count4;i++){
    
    
            for(int j=column_start4;j<column_start4+column_count;j++){
    
    
                cell4 = work_sheet4->querySubObject("Cells(int,int)",i,j);//获取单元格
                cell_value4 = cell4->property("Value");//获取单元格内容
                //获取单元格,注意是原有行的下一行
                cell3 = work_sheet3->querySubObject("Cells(int,int)",i+row_start3+row_count3-1,j);
                cell3->setProperty("Value",cell_value4);
    
    
            }
        }
        work_book3->dynamicCall("Save()");//保存文件

    转载于:https://www.cnblogs.com/littleqt/p/4999249.html

    展开全文
  • Export All works fine but when I use the functionality of datatable to select rows using "select:true", I have to use the CTRL Button to select multiple rows, and it works fine and exports data as ...
  • 我想每隔15行提取一段excel表中数据中的里面的一些数据,但是我没办法做到重复提取,数据如图<img alt="" height="566" src="https://img-ask.csdnimg.cn/upload/1615535986388.png" width="1430" /></p...
  • 工作上的 ActiveX 控件的 OLEObject 对象的属性和方法是相同的。这样,通过使用控件名称,Visual Basic 代码即可访问这些属性。下例选中复选框控件“MyCheckBox”,将其设为与活动单元格对齐,然后激活此控件。...
  • table.excel thead th, table.excel tbody th { background:#CCCCCC; border-style:ridge; border-width:1; text-align: center; vertical-align:bottom; } table.excel tbody th { text-align:center; width...
  • //请项目引用OWC11(COM组件)OWC11.SpreadsheetClass xlsheet =new OWC11.SpreadsheetClass(); //合并单元格 xlsheet.get_Range(xlsheet.Cells[1,1],xlsheet.Cells[1,14]).set_MergeCells(true); xlsheet....
  • //请项目引用OWC11(COM组件)OWC11.SpreadsheetClass xlsheet =new OWC11.SpreadsheetClass(); //合并单元格 xlsheet.get_Range(xlsheet.Cells[1,1],xlsheet.Cells[1,14]).set_MergeCells(true); xlsheet....
  • 在Excel ,vlook up 函数的使用

    千次阅读 2019-07-17 22:59:11
    在Excel ,vlook up 函数的使用 1.Vlook up (Lookup_value,Table_array,col_index_num,Range_lookup) 第一个参数:两张共有的字段 第二个参数:查找的范围(包含查找的值和结果) 第三个参数:结果在查找的范围...
  • C#导入Excel表

    2009-02-03 15:26:00
    <SYSTEM.WEB>添加<IDENTITY impersonate="true" /> using System; using System.Data; using System.Configuration; using System.Web; using System.Web.Security; using System.Web.UI; ...
  • 在Excel中判断单元格是否包含日期

    千次阅读 2014-03-28 16:06:53
    Excel中的系列“Is”类函数可以判断指定值并返回TRUE或FALSE,如ISNUMBER函数判断值是否为数字、ISTEXT判断值是否为文本等。但Excel没有提供一个判断日期的工作函数,如“IsDate”。如果要检测某单元格是否为日期...
  • 前25是第一张页面的,后25是第二张页面,循环页面的过程中导出到EXCEL表中是酱婶滴,看着第二个表头有点心塞塞,也就是其实我们只需要第一次循环的表头就OK了 设置to_excel的header不显示列名 然后,根据官方文档 ...
  • ## # 用Excel的VBA能够从Excel中读取数据,也能够实现数据写入到单元格,但是怎么实现一个Function实现先读取数据,再写到的其他单元格呢?**__ Public Function test1() As String Dim strArray() As ...
  • #region wpf启动excel表 //Excel.Workbooks objBooks; //Excel.Sheets objSheets; //Excel._Worksheet objSheet; //Excel.Range range; // // Instantiate Excel and start a new workbook. // objApp...
  • 1.读取Excel表中信息,for循环中写入word文档中 QAxWidget *word=new QAxWidget("Word.Application", 0, Qt::MSWindowsOwnDC);  word->setProperty("Visible", true);  // 获取所有的工作文档  ...
  • “=”等号在Excel中是非常重要的,如果要使用函数公式,离不开“=”等号,除此之外,还有3个超级实用技巧,你知道吗? 一、快速对比两列数据。 方法: 在目标单元格输入公式:=C3=D3。 解读: 如果比较的两个...
  • 按下"Alt+F11"键,打开的"Microsoft Bisual Basic"窗口,选择"插入——模块".,复制下面的代码,按F5键运行,就完成了批量取消隐藏工作。 Sub 批量取消隐藏工作() Dim i As Integer For i = 1 To ...
  • 导出Excel方法增加一个参数:_inputDownloadExcel('&lt;%=sgid %&gt;',true) true表示不进行校验,默认值是false 注:此方法需要更新raqsoftReport.jar 方法二: 重写导出...
  • Excel教程IF函数是根据指定的条件来判断其“真”(TRUE)、“假”(FALSE),从而返回相应的内容。  我们下面给出一个excel教程实例——“快速判断给定值是否指定区间”来讲解IF函数的用法。  本例数据...
  • 本人使用的是Excel2000,须项目里引用: 添加引用->Com->Microsoft Excel 9.0 Object Library 1 打开Excel dim myexcel as new Excel.Application() myexcel.visible=true 2 添加新的工作簿 myexcel.Workbooks.add()...
  • vb.net访问Excel(来自vb.net书)

    千次阅读 2006-08-15 17:23:00
    本人使用的是Excel2000,须项目里引用: 添加引用->Com->Microsoft Excel 9.0 Object Library 1 打开Excel dim myexcel as new Excel.Application() myexcel.visible=true 2 添加新的工作簿 myexcel.Workbooks.add()...
  • 对应的 IIS 应用程序池,“设置应用程序池默认属性”右击/“高级设置”/"启用32位应用程序",设置为 true。 (2)如果遇到“导入excel错误:外部不是预期的格式“ 解决方案: asp.net网站导出Excel文件...
  • 使用Excel中创建图表

    2014-01-22 22:22:06
    * _XLChart_ChartsGet:列举工作簿的图表和图表工作 * _XLChart_ObjectDelete:删除从图表对象 * _XLChart_TrendlineSet:添加一个新的趋势线或数据系列的现有趋势线的设置属性 更改的函数 =================...

空空如也

空空如也

1 2 3 4 5 ... 10
收藏数 189
精华内容 75
关键字:

在excel表中true