• 大小: 1MB
    文件类型: .zip
    金币: 1
    下载: 0 次
    发布日期: 2023-08-30
  • 语言: C#
  • 标签: excel  access  

资源简介

C#将excel导入到access,各种你们想要的功能都有,一条条读取,单元格合并,干扰数据,仔细看

资源截图

代码片段和文件信息

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using Microsoft.Office.Interop.Excel;
using Microsoft.Office.Interop.Access;
using ADOX;
using System.Diagnostics;
using System.Collections;
using System.IO;
using System.Data.OleDb;


namespace access
{
    public partial class Form1 : System.Windows.Forms.Form
    {
        public Form1()
        {
            InitializeComponent();
        }
        private string mdbPath = “F:\\Database.mdb“;
        private string sheetname = “Sheet1$“;

        private void Form1_Load(object sender EventArgs e)
        {
            string[] tables = { “报价数据库“ “防护类合同明细汇总表“ “非标类合同明细汇总表“ “生产通知非标“ “生产通知“ };
            for (int i = 0; i < tables.Length; i++)
            {
                tableBox.Items.Add(tables[i]);
            }
            if (!File.Exists(mdbPath))
            {
                ADOX.Catalog catalog = new Catalog();
                catalog.Create(“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=“ + mdbPath + “;Jet OLEDB:Engine Type=5“);
            }


            //string dbName = “E:\\Temp\\“ + DateTime.Now.Millisecond.ToString() + “.mdb“;
            //ADOX.Catalog cat = new ADOX.CatalogClass();
            //cat.Create(“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=“ + dbName + “;“);
        }

        private void button1_Click(object sender EventArgs e)
        {



            FolderBrowserDialog fbd = new FolderBrowserDialog();
            fbd.Description = “请选择文件夹“;
            fbd.SelectedPath = “F:\\SQL和Oracle\\Acess数据库\\“;
            if (fbd.ShowDialog() == DialogResult.OK)
            {
                string filePath = fbd.SelectedPath;
                PathBox.Text = filePath;
            }
        }

        private void button2_Click(object sender EventArgs e)
        {
            if (PathBox.Text.Length == 0 || tableBox.Text.Length == 0)
            {
                MessageBox.Show(“请选择需要导入的Execl文件和和Access数据库“);
            }
            else
            {
                CreatDaoru();
            }
        }
        private void CreatDaoru()
        {
            DirectoryInfo dirInfo = new DirectoryInfo(PathBox.Text);
            FileSystemInfo[] fsInfo = dirInfo.GetFileSystemInfos(“*.xls“);
            foreach (FileSystemInfo fsinfo in fsInfo)
            {
                System.Data.DataTable dt = GetExcelDatatable(fsinfo.FullName “[“ + sheetname + “]“);
                dataGridView1.ClearSelection();
                dataGridView1.DataSource = dt;
                List name = new List();
                List type = new List();
                if (dt.Rows.Count > 0)
                {
                    for (int i = 0; i < dt.Columns.Count; i++)
                    {
                        name.Add(dt.Columns[i].ToStr

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2015-09-14 09:08  access\
     目录           0  2015-09-16 19:57  access\access\
     文件        6482  2015-09-16 20:06  access\access\Form1.Designer.cs
     文件       24568  2015-09-16 20:06  access\access\Form1.cs
     文件        5814  2015-09-16 20:06  access\access\Form1.resx
     文件         487  2015-09-14 09:08  access\access\Program.cs
     目录           0  2015-09-14 09:08  access\access\Properties\
     文件        1362  2015-09-14 09:08  access\access\Properties\AssemblyInfo.cs
     文件        2862  2015-09-14 09:08  access\access\Properties\Resources.Designer.cs
     文件        5612  2015-09-14 09:08  access\access\Properties\Resources.resx
     文件        1091  2015-09-14 09:08  access\access\Properties\Settings.Designer.cs
     文件         249  2015-09-14 09:08  access\access\Properties\Settings.settings
     文件        4877  2015-09-14 15:05  access\access\access.csproj
     目录           0  2015-09-14 09:08  access\access\bin\
     目录           0  2015-09-14 15:55  access\access\bin\Debug\
     文件      126976  2015-09-14 15:55  access\access\bin\Debug\Interop.ADODB.dll
     文件       12800  2015-09-14 15:55  access\access\bin\Debug\Interop.ADOMD.dll
     文件       36864  2015-09-14 15:55  access\access\bin\Debug\Interop.ADOX.dll
     文件     1612592  2007-10-10 09:49  access\access\bin\Debug\Microsoft.Office.Interop.Access.dll
     文件     1276720  2007-10-10 09:49  access\access\bin\Debug\Microsoft.Office.Interop.Excel.dll
     文件       17920  2015-09-16 19:57  access\access\bin\Debug\access.exe
     文件       36352  2015-09-16 19:57  access\access\bin\Debug\access.pdb
     文件       11592  2015-09-17 08:54  access\access\bin\Debug\access.vshost.exe
     文件         490  2009-06-11 05:14  access\access\bin\Debug\access.vshost.exe.manifest
     文件       65536  2007-10-10 09:49  access\access\bin\Debug\dao.dll
     文件      416544  2007-10-10 09:49  access\access\bin\Debug\office.dll
     目录           0  2015-09-14 09:08  access\access\obj\
     目录           0  2015-09-16 19:57  access\access\obj\Debug\
     文件      126976  2015-09-14 15:55  access\access\obj\Debug\Interop.ADODB.dll
     文件       12800  2015-09-14 15:55  access\access\obj\Debug\Interop.ADOMD.dll
     文件       36864  2015-09-14 15:55  access\access\obj\Debug\Interop.ADOX.dll
............此处省略12个文件信息

评论

共有 条评论