vb如何把数据保存到excel

1.vb如何保存到excel

'首先要将“工程-引用”中的Mic… Excel…选中

Private Sub Command1_Click()

Dim S() As String, i As Integer, j As Integer

Dim xlApp

Dim xlBook

Dim xlSheet

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

xlApp.DisplayAlerts = False '不显示对话框

Set xlBook = xlApp.Workbooks.Open("c:\1.xls") '打开已经存在的EXCEL工件簿文件

'Set xlBook = xlApp.Workbooks.open("c:\1.xls", password:="123") '打开已经存在的含有密码的EXCEL工件簿文件

'Set xlBook = xlApp.Workbooks.Add '新建工件簿

xlApp.Visible = True '设置EXCEL对象可见（或不可见）

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

xlSheet.Cells(1, 1) = 1 '给单元格（row,col）赋值

'变量 = xlSheet.Cells(1, 1) '将单元格（row,col）中的值读取到一个变量

'xlSheet.Range("A1:B2").CopyPicture 1, 2 '将单元格A1至B2的内容复制到剪切板

'xlSheet.PrintOut '打印工作表

xlBook.SaveAs FileName:="c:\1.xls" '保存工作表，结束时一定别忘了保存

xlBook.Close (True) '关闭工作簿 这里的True表示退出时保存修改

xlApp.quit '结束EXCEL对象

Set xlApp = Nothing '释放xlApp对象

End Sub

2.如何将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，然后是向导。

自己应该会了吧？。