vb数据如何导入excel表

1.vb6.0,如何把数据导入excel

假设你的两个数据为m,n

Dim D_Ex As Object

Dim D_ExBook As Object

Dim D_ExSheet As Object

Set D_Ex = CreateObject("Excel.Application")

Set D_ExBook = D_Ex.Workbooks.Open(FullName) 'FullName 是你excel的地址及文件名，如"C:\1.xls"。

Set D_ExSheet = D_ExBook.Worksheets(1)

D_Ex.Visible = False true也行，false看不见excel

D_Ex.Cells(i , 1).Value=m

D_Ex.Cells(i , 2).Value=n i是你循环的次数，循环一次i加1

D_ExBook.Save 保存

D_ExBook.Close 关闭

D_Ex .Quit 退出

就是这些，个人建议不要每次都打开和关闭excel，你可以在程序开始的时候打开excel，在不需要存数据的时候关闭，节省内存。也可以把数据存入一个TXT内，统一转换。

2.vb

VB读写EXCEL表： VB本身的自动化功能可以读写EXCEL表，其方法如下： 1、在工程中引用Microsoft Excel类型库： 从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9。

0 Object Library(EXCEL2000)，然后选择"确定"。 表示在工程中要引用EXCEL类型库。

2、在通用对象的声明过程中定义EXCEL对象： Dim xlApp As Excel。Application Dim xlBook As Excel。

WorkBook Dim xlSheet As Excel。 Worksheet 3、在程序中操作EXCEL表常用命令： Set xlApp = CreateObject("Excel。

Application") '创建EXCEL对象 Set xlBook = xlApp。Workbooks。

Open（"文件名"） '打开已经存在的EXCEL工件簿文件 xlApp。Visible = True '设置EXCEL对象可见（或不可见） Set xlSheet = xlBook。

Worksheets（"表名"） '设置活动工作表 xlSheet。 Cells(row, col) =值 '给单元格（row,col）赋值 xlSheet。

PrintOut '打印工作表 xlBook。Close (True) '关闭工作簿 xlApp。

Quit '结束EXCEL对象 Set xlApp = Nothing '释放xlApp对象 xlBook。 RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏 xlBook。

RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏 4、在运用以上VB命令操作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它操作，也能够关闭EXCEL，同时也可对EXCEL进行操作。 但在EXCEL操作过程中关闭EXCEL对象时，VB程序无法知道，如果此时使用EXCEL对象，则VB程序会产生自动化错误。

形成VB程序无法完全控制EXCEL的状况，使得VB与EXCEL脱节。 下面是一个例子，你琢磨一下： 在VB中，建立一个FORM，在其上放置两个命令按钮，将Command1的Caption属性改为EXCEL,Command2的Caption属性改为End。

然后在其中输入如下程序： Dim xlApp As Excel。Application '定义EXCEL类 Dim xlBook As Excel。

Workbook '定义工件簿类 Dim xlsheet As Excel。Worksheet '定义工作表类 Private Sub Command1_Click（) '打开EXCEL过程 If Dir("D:\temp\excel。

bz") = "" Then '判断EXCEL是否打开 Set xlApp = CreateObject("Excel。Application") '创建EXCEL应用类 xlApp。

Visible = True '设置EXCEL可见 Set xlBook = xlApp。 Workbooks。

Open("D:\temp\bb。xls") '打开EXCEL工作簿 Set xlsheet = xlBook。

Worksheets(1) '打开EXCEL工作表 xlsheet。Activate '激活工作表 xlsheet。

Cells(1, 1) = "abc" '给单元格1行驶列赋值 xlBook。RunAutoMacros (xlAutoOpen) 运行EXCEL中的启动宏 Else MsgBox ("EXCEL已打开") End If End Sub Private Sub Command2_Click() If Dir("D:\temp\excel。

bz") "" Then '由VB关闭EXCEL xlBook。RunAutoMacros (xlAutoClose) '执行EXCEL关闭宏 xlBook。

Close (True) '关闭EXCEL工作簿 xlApp。 Quit '关闭EXCEL End If Set xlApp = Nothing '释放EXCEL对象 End End Sub 如果还有不明白的地方，可给我留言。

3.如何将EXCEL表中的数据传入VB将EXCEL(成绩表)的数据全

总体来说，有三个办法。

你要经过的程序有三个：Excel、VB和Access。你的最终目的是把表导进去，这样，三个环节各有各的方法。

第一种：Excel宏 Sub AddToAccess() ' ' AddToAccess Macro ' On Error GoTo Error1 Dim conn As New ADODB。 Connection conn。

Open "Provider=Microsoft。Jet。

OLEDB。4。

0;Data Source=F:\a\ b" Dim sql As String, i As Integer ''创建表'失败，不支持SQL语句 'sql = "create table users(" & Cells(1, 1) & " char(20)," & Cells(1, 2) & " char(20))" 'conn。 Execute sql For i = 2 To 3 '表中数据到第三行截止 sql = "insert into users values('" & Cells(i, 1) & "','" & Cells(i, 2) & "')" conn。

Execute sql Next MsgBox "成功！" Exit Sub Error1: MsgBox "错误" & vbCrLf & Err。Description Err。

Clear End Sub 相关表已附件，这种较为简便，缺点是不能随时使用，因为系统对宏有限制，不能随意使用，不知道怎么改，望高手指教。 第二种：VB内 该方法楼上已介绍，不再复述。

有时间再写，今天累得慌。 第三种：Access 你会发现Access内有导入导出的工具，选择插入表，然后导入表，之后选择类型为xls，然后是向导。

自己应该会了吧？。

4.VB中记录的数据怎么导入到EXCEL中

dim ii as string '定义一个变量为ii

ii=1'设定ii的值为1

Dim ex1 As Object

Dim exwbook As Object

Dim exsheet As Object

Set ex1 = CreateObject("excel.application")

Set exwbook = Nothing

Set exsheet = Nothing

Set exwbook = ex1.Workbooks().Add

Set exsheet = exwbook.Worksheets("sheet1")

ex1.Visible = True '以上代码是运行excel并新建一个文档

ex1.Range("a" & ii).Value=textbox.text '把textbox中的数据逐条记录到EXCEL中的A列，一条记录一行

ii=val(ii)+1'每记录一条记录，excel行数+1

当然你直接把上面的代码放到timer控件里是不行的，要灵活运用啊