如何把读出来的数据填充到EXCEL内，用C#写

眼袋小美

我通过VSTO把web service里面的数据读取出来后，要将整个数据填充到Excel里面，怎么写呢？
就是自动填充。

lipton

http://club.excelhome.net/thread-941805-3-1.html

大致上和24楼的代码差不多。

或者是控件的数据动态绑定。

你起码有一个简单的代码段，和你的调试环境，别人才能帮你。

眼袋小美

public partial class ThisWorkbook
    {
        private void ThisWorkbook_Startup(object sender, System.EventArgs e)
        {
            #region the third method:load the dataset into the worksheet

            EHR.eHREmployeeSnapDataSoapClient HR = new EHR.eHREmployeeSnapDataSoapClient();
            DataSet ds = HR.GetFinancialData();
            MessageBox.Show("一共有 " + ds.Tables[0].Rows.Count.ToString() + " 行数据。"+ds.Tables[0].Columns.Count.ToString()+"列数据。");
            
            
            #region 获取web接口中的标题
            //int colIndex = 1;
            //foreach (DataColumn col in ds.Tables[0].Columns)
            //{            
              
            //    this.Application.Cells[1,colIndex] = col.ColumnName;
            //    colIndex++;
            //}

            int 列数 = 0;
            int 行数 = 1;
            //显示第一行列标题
            foreach (DataColumn col in ds.Tables[0].Columns)
            {
                列数++;
                this.Application.Cells[行数, 列数] = col.ColumnName;

            }
            //从第2行起逐行显示数据
            行数++;
            foreach (DataRow dr in ds.Tables[0].Rows)
            {
                for (int i = 1; i <= 列数; i++)
                {
                    this.Application.Cells[行数, i] = dr.ItemArray[i - 1];

                }
                行数++;
                if (行数 >5000)
                    break;
#endregion
            }

            #endregion
         }
}



这个写进去很慢，怎么解决呢？

lipton

方法之一：
把dataset的数据转到数组，然后一次性赋值。
代码在 windows7 + office2010测试通过
测试环境vs2010，NET4.0.

1. public void DemoAccess()
   
2.         {
   
3.             Excel.Worksheet sh;
   
4.             sh = this.Application.ActiveSheet;
   
5. 
   
6.             string strCnn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\\myFile\\罗斯文.accdb;Jet OLEDB:Database Password=";
   
7.             string strSql = "SELECT * FROM 客户";
   
8. 
   
9.             DataSet ds = new DataSet();
   
10.             OleDbConnection Cnn = null;
    
11.          
    
12.             Cnn = new OleDbConnection(strCnn);
    
13.             OleDbCommand myCommand = new OleDbCommand(strSql, Cnn);
    
14.             OleDbDataAdapter myDataAdapter = new OleDbDataAdapter(myCommand);
    
15.             try
    
16.             {
    
17.                 Cnn.Open();
    
18.                 myDataAdapter.Fill(ds);
    
19.             }
    
20.             catch (Exception ex)
    
21.             {
    
22.                 MessageBox.Show(ex.Message);
    
23.                 return;
    
24.             }
    
25.             finally
    
26.             {
    
27. 
    
28.                 Cnn.Close();
    
29.             }
    
30. 
    
31.             DataTable table = ds.Tables[0];
    
32.             int r = table.Rows.Count;
    
33.             int c =table.Columns.Count;
    
34.             object[,] objarr = new object[r, c];
    
35.             try
    
36.             {
    
37.                         
    
38.                 for (int i = 0; i < r; i++)
    
39.                 {
    
40.                     for (int j = 0; j < c; j++)
    
41.                     {
    
42.                         objarr[i, j] = table.Rows[i].ItemArray[j];
    
43.                     }
    
44.                 }
    
45.                 Excel.Range  rng;
    
46.                 //定义范围
    
47.                 rng = sh.Range[sh.Cells[2,1],sh.Cells[r,c]];
    
48.                 //数组赋值工作表范围
    
49.                 rng.Value2 = objarr;
    
50.             }
    
51.             catch (Exception ex)
    
52.             {
    
53.                 MessageBox.Show(ex.Message);
    
54.                 return;
    
55.             }
    
56.          }

复制代码

xd3210

有没有类似cells(x,y).copyfromrecordset rst

眼袋小美

lipton 发表于 2013-4-25 13:58
方法之一：
把dataset的数据转到数组，然后一次性赋值。
代码在 windows7 + office2010测试通过

你好，我用你的测试看了一下，我用的是windows7+office2007+vs2008
编译的时候发现sh=this.Application.ActiveSheet; 无法将类型“object”隐式转换为“Microsoft.Office.Interop.Excel.Worksheet”。存在一个显式转换(是否缺少强制转换?)
sh.range也提示错误，这个是怎么回事呢？

lipton

眼袋小美 发表于 2013-4-25 16:29
你好，我用你的测试看了一下，我用的是windows7+office2007+vs2008
编译的时候发现sh=this.Application. ...

第二个问题：rng = sh.Range[sh.Cells[2,1],sh.Cells[r,c]];
vs2008可能是
rng = sh.get_Range[sh.Cells[2,1],sh.Cells[r,c]];

lipton

xd3210 发表于 2013-4-25 14:25
有没有类似cells(x,y).copyfromrecordset rst

我只知道控件的数据绑定，和数组赋值。

眼袋小美

lipton 发表于 2013-4-25 17:11
第二个问题：rng = sh.Range[sh.Cells[2,1],sh.Cells[r,c]];
vs2008可能是
rng = sh.get_Range[sh.Cell ...

嗯,这个问题我已经解决了,谢谢!

发布还没有学会,正在研究中.

lipton

眼袋小美 发表于 2013-4-25 16:29
你好，我用你的测试看了一下，我用的是windows7+office2007+vs2008
编译的时候发现sh=this.Application. ...

试一试：
Excel.Worksheet sh= ((Excel.Worksheet)Application.ActiveSheet);