VB如何将Excel中的数据批量导入到Access中？

C#中如何将Excel中的数据批量导入到sql server？~

1.本文实现在c#中可高效的将excel数据导入到sqlserver数据库中,很多人通过循环来拼接sql，这样做不但容易出错而且效率低下，最好的办法是使用bcp，也就是System.Data.SqlClient.SqlBulkCopy 类来实现。不但速度快，而且代码简单，下面测试代码导入一个6万多条数据的sheet，包括读取（全部读取比较慢）在我的开发环境中只需要10秒左右，而真正的导入过程只需要4.5秒。
2.代码如下：
using System;
using System.Data;
using System.Windows.Forms;
using System.Data.OleDb;
namespace WindowsApplication2
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}

private void button1_Click(object sender, EventArgs e)
{
//测试，将excel中的sheet1导入到sqlserver中
string connString = "server=localhost;uid=sa;pwd=sqlgis;database=master";
System.Windows.Forms.OpenFileDialog fd = new OpenFileDialog();
if (fd.ShowDialog() == DialogResult.OK)
{
TransferData(fd.FileName, "sheet1", connString);
}
}

public void TransferData(string excelFile, string sheetName, string connectionString)
{
DataSet ds = new DataSet();
try
{
//获取全部数据
string strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + excelFile + ";" + "Extended Properties=Excel 8.0;";
OleDbConnection conn = new OleDbConnection(strConn);
conn.Open();
string strExcel = "";
OleDbDataAdapter myCommand = null;
strExcel = string.Format("select * from [{0}$]", sheetName);
myCommand = new OleDbDataAdapter(strExcel, strConn);
myCommand.Fill(ds, sheetName);

//如果目标表不存在则创建
string strSql = string.Format("if object_id('{0}') is null create table {0}(", sheetName);
foreach (System.Data.DataColumn c in ds.Tables[0].Columns)
{
strSql += string.Format("[{0}] varchar(255),", c.ColumnName);
}
strSql = strSql.Trim(',') + ")";

using (System.Data.SqlClient.SqlConnection sqlconn = new System.Data.SqlClient.SqlConnection(connectionString))
{
sqlconn.Open();
System.Data.SqlClient.SqlCommand command = sqlconn.CreateCommand();
command.CommandText = strSql;
command.ExecuteNonQuery();
sqlconn.Close();
}
//用bcp导入数据
using (System.Data.SqlClient.SqlBulkCopy bcp = new System.Data.SqlClient.SqlBulkCopy(connectionString))
{
bcp.SqlRowsCopied += new System.Data.SqlClient.SqlRowsCopiedEventHandler(bcp_SqlRowsCopied);
bcp.BatchSize = 100;//每次传输的行数
bcp.NotifyAfter = 100;//进度提示的行数
bcp.DestinationTableName = sheetName;//目标表
bcp.WriteToServer(ds.Tables[0]);
}
}
catch (Exception ex)
{
System.Windows.Forms.MessageBox.Show(ex.Message);
}
}

//进度显示
void bcp_SqlRowsCopied(object sender, System.Data.SqlClient.SqlRowsCopiedEventArgs e)
{
this.Text = e.RowsCopied.ToString();
this.Update();
}
}
}
3.上面的TransferData基本可以直接使用，如果要考虑周全的话，可以用oledb来获取excel的表结构，并且加入ColumnMappings来设置对照字段，这样效果就完全可以做到和sqlserver的dts相同的效果了。

我知道两个方法。
1、如果EXCEL数据不多可以用这个方法。workbooks.open(“路径")打开EXCEL，再逐个的用INSERT语句导入到ACCESS里面。
2、就是EXCEL本身也是一个数据库，第一行是字段，用连接数据库的方式连接EXCEL直接一条SQL导入到SQL。这对格式有点要求，就是第一行必须是字段，数据比较整齐。

Option Explicit

Dim data As New ADODB.Connection

Dim db As New ADODB.Recordset

Dim xlsApp As Excel.Application

Dim xlsBook As Excel.Workbook

Dim xlsSheet As Excel.Worksheet

Private Sub Command1_Click()

On Error GoTo ErrHandler

CommonDialog1.DialogTitle = "Open files"

CommonDialog1.Filter = "mdb files(*.mdb)|*.mdb"

CommonDialog1.Flags = 4  '取消 “以只读方式打开” 复选框

CommonDialog1.ShowOpen

CommonDialog1.CancelError = True

If Len(CommonDialog1.FileName) <= 4 Then

    Exit Sub

Else

    Text1.Text = CommonDialog1.FileName

End If

ErrHandler:

    Exit Sub

End Sub

Private Sub Command2_Click()

Dim NoExistF As New FileSystemObject

Dim i, j, k As Double

'Excel行i 列j，从第二行开始，去掉标题行

i = 2

j = 1

k = 1  'Access列号，第0列留着放主键

If NoExistF.FileExists(Text1.Text) = False Or NoExistF.FileExists(Text2.Text) = False Then

    MsgBox "文件不存在！", 16, "错误提示"

    Exit Sub

Else

    '打开Access数据库

    data.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Text1.Text & ";Persist Security Info=False"

    db.Open "select * From sheet", data, adOpenKeyset, adLockOptimistic  '数据库表的名字sheet

    '打开Excel数据表

    Set xlsApp = CreateObject("Excel.Application")   '创建EXCEL对象

    Set xlsBook = xlsApp.Workbooks.Open(Text2.Text)  '打开已经存在的EXCEL工件簿文件

    Set xlsSheet = xlsBook.Worksheets("Sheet1")      '设置活动工作表

    Do

        If xlsSheet.Cells(i, j) = "" Then    '姓名=空 的时候，结束循环

            Exit Do

        End If

        db.AddNew

        db.Fields(k) = xlsSheet.Cells(i, j)

        db.Fields(k + 1) = xlsSheet.Cells(i, j + 1)

        db.Fields(k + 2) = xlsSheet.Cells(i, j + 2)

        db.MoveNext

        i = i + 1

    Loop

End If

db.MovePrevious

db.Update

db.Close

data.Close

MsgBox "数据传输完毕！", , "提示"

Set xlsSheet = Nothing

xlsBook.Close

Set xlsBook = Nothing

xlsApp.Quit

Set xlsApp = Nothing

End Sub

Private Sub Command3_Click()

On Error GoTo ErrHandler

CommonDialog1.DialogTitle = "Open files"

CommonDialog1.Filter = "xls files(*.xls)|*.xls"

CommonDialog1.Flags = 4  '取消 “以只读方式打开” 复选框

CommonDialog1.ShowOpen

CommonDialog1.CancelError = True

If Len(CommonDialog1.FileName) <= 4 Then

    Exit Sub

Else

    Text2.Text = CommonDialog1.FileName

End If

ErrHandler:

    Exit Sub

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

End Sub

Access数据表有主键吗？

需要私信我

我可以帮你写

---

瓮安县18846405536： 如何将excel里的数据批量导入ACCESS,要用vb代码? - ？
闻段艾兰： 不用VB代码,手动导入可以用access的导入功能.方法:功能菜单->外部数据->Excel 然后按提示1、选择文件2、选择导入的Sheet名称3、首行是否包含标题4、选择索引5、添加主键6、导入到Access的表名7、完成

瓮安县18846405536： vb如何提取多个Excel文件中某个表格的某列数据到一个Excel表格里,如图,共有100多个表 - ？
闻段艾兰： 在工作表标签上击右键,查看代码.在VBE窗口中,点“插入”,模块.将以下代码粘贴到模块代码窗格中,ALT+F8运行该宏,就行了.附件中有样本.Sub 数据提取() For i = 2 To Worksheets.Count Sheets(1).Cells(Sheets(1).[a65536].End(3).Row + 1, 1) = Sheets(i).[D3] Sheets(1).Cells(Sheets(1).[b65536].End(3).Row + 1, 2) = Sheets(i).[e6] Next End Sub

瓮安县18846405536： VB 把Excel中的内容批量导入SQL数据库 - ？
闻段艾兰： strSQL = ＂INSERT INTO Family (字段一,字段二,字段三,...) SELECT (字段一,字段二,字段三,...) FROM OpenRowSet('microsoft.jet.oledb.4.0','Excel 8.0;HDR=Yes;database=＂ & CommonDialog1.FileName & ＂ ;','select * from [Sheet1$] ')＂ 把数据库中的除了 image 的其他字段都列出来.应该就可以了

瓮安县18846405536： VB中如何将EXCEL数据导入到内存 - ？
闻段艾兰： 要将数据从excel读入内存,就要把excel当成数据库.我一般用ado的方法.具体有四步:1、在工程->参考里将microsoft activex data object和microsoft excel xx.0 object library勾上2、连接数据库3、读取数据4、关闭连接 后面三步如下程序:...

瓮安县18846405536： 高分,怎样用vb把excel表中的数据导入数据库中 - ？
闻段艾兰： 以access 为例: 打开数据库, 找到【外部数据】 ,点击【excel】图标,选择文件即可导入!

瓮安县18846405536： 求通过excel文件批量导入vb自带数据库文件的代码,我只需要导入一列或者两列,希望有知道的能给个代码!! - ？
闻段艾兰： 如果是一次性的操作,直接用ACCESS打学习表.MDB,从EXCEL中直接把这两列数据复制、粘贴到表一中就行了,不用写代码这么麻烦.如果是经常性的操作,就需要写一个完整的程序.会比较复杂,需要操作数据库,还要操作EXCEL,这个建议你还是在网上找别人的源码,自己一点都没弄过的话会花不少时间.

瓮安县18846405536： vb怎么批量将excel文件导入到access(mdb)的表中? - ？
闻段艾兰： 我知道两个方法.1、如果EXCEL数据不多可以用这个方法.workbooks.open(“路径＂)打开EXCEL,再逐个的用INSERT语句导入到ACCESS里面.2、就是EXCEL本身也是一个数据库,第一行是字段,用连接数据库的方式连接EXCEL直接一条SQL导入到SQL.这对格式有点要求,就是第一行必须是字段,数据比较整齐.

瓮安县18846405536： 在VB中怎么把EXCEL中的数值传给数组 - ？
闻段艾兰： 你可以查阅一下有关VBA的库(此库在OFFICE的帮助文件中有详细说明和调用方法). 下面是推荐的方法,给你个参考: 我们写程序时,有很多的功能如果都要自己写会非常的麻烦,比如:我们调用打印和打印预览.如果自己写过的人都会明...

瓮安县18846405536： 求VB循环取excel表中的多个数据 - ？
闻段艾兰： 从你另外一个问题可以看出你的这个问题已经解决了. dim i() dim x,y as long y=1 x=1 '我觉得这里x应该为1,应为Cells(0,1)是不存在的 while y=1 if xlsheet.cells(x,1)=＂＂ then y=0 'x=x+1 '有点早了,后面的位置是对的 redim i(x-1) i(x-1)=xlsheet.cells(x,1) x=x+1 wend写EXCEL: y=1 for n=0 to x-1 xlsheet.cells(y,1)=i(n) y=y+1 next 这就对了

瓮安县18846405536： 把excel中的数据导入到VB中 - ？
闻段艾兰： 在VB中要想调用Excel,需要打开VB编程环境“工程”菜单中的“引用”项目,并选取项目中的“MicrosoftExcel 11.0 object library”项.由于你的Excel版本不同,所以这个选项的版本号也是不同的.因为EXCEL是以层次结构组织对象的,其...