ACCESS的如何像EXCEL批量添加数据？

下面是对EXECL的基础 *** 作说明：

Set xlApp = CreateObject("Excel.Application")

‘激活EXCEL应用程序

xlApp.Visible = False ‘隐藏EXCEL应用程序窗口

Set xlBook = xlApp.Workbooks.Open(strDestination)

‘打开工作簿，strDestination为一个EXCEL报表文件

Set xlSheet = xlBook.Worksheets(1)

‘设定工作表

1、定义EXCEL对象变量

dim x as excel.application

2、VB中，启动EXCEL

set x=createobject("excel.application")

3、新建一个EXCEL工作簿

x.workbooks.add

4、选定工作表1

set xsheet=xbook.worksheets(1)

5、指定单元格，并赋值

xsheet.cell(1,1)=ret.fields(0)

6、指定EXCEL列宽

xsheet.column(1).columnwidth=10

7、RANGE（）函数，选定单元格区域

range(cells(1,1),cells(10,20))

8、设置EXCEL字体

xsheet.range(cells(1,1),cells(10,20)).font.name="黑体"

9、设置EXCEL为粗体

xsheet.range(cells(1,1),cells(10,20)).fontbold=true

10、设置EXCEL表格边框

xsheet.range(cells(1,1),cells(10,20)).borders.linestyle=xlcontinuous

11、运行时，显示EXCEL或隐藏EXCEL

x.visible=true

12、保存工作簿

xbook save

13、退出EXCEL

x.quit

14、交还控制权给EXCEL

set x=nothing

15、打印EXCEL表

x.active.window.selectedsheets.printout copies=numcopies

16、退出EXCEL时，不出现保存提示。

x.displayalerts=false

17、怎样运用EXCEL公式？

x.range("A3").formula= "=max(A1,A2)"

18、EXCEL代码获取技巧

打开EXCEL中的工具----宏----录制新宏，然后进行手工 *** 作，结束后把所录的宏代码贴进你的VB程序就行。

19、合并单元格代码

x.range("A2:A5").inergecells=true

20、自动调整列宽代码

x.column("A:I").autofit' a到 I列自动调整列宽

21、文本自动换行代码

x.rows(3).wraptext=true

22、设置字体颜色

x.rows(1).font.colorindex=4

23、打印预览代码

x.worksheets.printpreview

24、打开EXCEL文件

x.workbooks.open filename:="c:\my documents\my vb \lgx \dy.xls"

下面是如何从EXECL文件中读写数据：

使用Excel Sheet对象的技术可以处理可变数量的数据，并将结果最后送到你的Visual Basic 应用程序中。例子如下：

新建一个工程并在新建的窗体上放置两个TextBox控件和一个CommandButton控件及六个Label控件。建设中的窗体如图2所示。

程序代码如下：

Option Explicit

Private Sub Command1－Click()

Dim xObject As Object

Set xObject = CreateObject("Excel.Sheet")

Set xObject = xObject.Application.ActiveWorkbook.ActiveSheet

xObject.Range("A1").Value = Text1.Text ′将数值送入Excel的A1单元格

xObject.Range("A2").Value = Text2.Text ′将数值送入Excel的A2单元格

xObject.Range("A3").Formula = "=MAX(A1,A2)" ′将最大值送入A3单元格

xObject.Range("A4").Formula = "=ATAN(A1/A2)＊180/PI()" ′将反正切值送入A4单元格

′显示计算的结果

Label1.Caption = xObject.Range("A3").Value'从EXECL读出数值

Label2.Caption = xObject.Range("A4").Value

Set xObject = Nothing

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Label1.Caption = ""

Label2.Caption = ""

End Sub

该程序的作用是：首先在两个文本框（Text1和Text2）输入数值并分别将输入的数值送入Excel的"A1"和"A2"单元格中，然后用Excel中的"Max()"函数将计算的结果送入"A3" 单元格中；用反正切函数"ATAN()"进行计算并将结果送入"A4" 单元格中，最后输出。

有了以上说明，再加上你已经学会的ACCESS数据库 *** 作技术，就可以实现EXECL里的数据批量导入ACCESS了。

解决方法：

添加事务处理，把5000条插入作为一个事务

dataBase.beginTransaction() //手动设置开始事务

//数据插入 *** 作循环

dataBase.setTransactionSuccessful() //设置事务处理成功，不设置会自动回滚不提交

dataBase.endTransaction() //处理完成

将数据库「倒出来」：

sqlite3 film.db ".dump" >output.sql

利用输出的资料，建立一个一模一样的数据库（加上以上指令，就是标准的SQL数据库

备份了）：

sqlite3 film.db <output.sql

在大量插入资料时，你可能会需要先打这个指令：

begin

插入完资料后要记得打这个指令，资料才会写进数据库中：

commit

哈哈，多条时，把条件（Where）子句去掉嘛：

update 表 set 字段=ID

因为你的id是你的一个字段，字段A是另一个字段。就是说，要字段A的值等于字段id的值。

---