VB6.0读取excel数据存储到access中,在线等!~~~~
发布网友
发布时间:2022-04-22 05:45
我来回答
共1个回答
热心网友
时间:2023-11-01 10:26
Dim excel_app As New Excel.Application
Dim excel_sheet As Excel.Worksheet
dim obcnn As New ADODB.Connection
Dim newfield(1 to 10) As String
Dim row As Integer
Dim list As Integer
Dim fso As New FileSystemObject
Dim i As Integer
Dim j As Integer
obcnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:data Source=" c:\my.mdb"
obcnn.Open
If CommonDialog1.FileName = "" Then Exit Sub
excel_app.Workbooks.Open FileName:=CommonDialog1.FileName
'判断EXCEL文档是的版本是否在8以上,是否是单表版本
If Val(excel_app.Application.Version) >= 8 Then
Set excel_sheet = excel_app.ActiveSheet
Else
Set excel_sheet = excel_app
End If
'将EXCEL记录头导入ACESS数据库
row = 6'从第6行开始读
list = 1
i = 0
do while trim$(excel_sheet.Cells(row, list))<>"" '当记录为空时退出
Do While list <= 10'excel表数据有10列
newfield(list) = Trim$(excel_sheet.Cells(row, list))
list=list+1
loop
obcnn.Execute "insert into mymdb values('" & newfield(1) &"','" & newfield(2) &"',…………'" & newfield(10) &"')
row=row+1
loop
VB6.0读取excel数据存储到access中,在线等!~~~
Set excel_sheet = excel_app.ActiveSheet Else Set excel_sheet = excel_app End If '将EXCEL记录头导入ACESS数据库 row = 6'从第6行开始读 list = 1 i = 0 do while trim$(excel_sheet.Cells(row, list))<>"" '当记录为空时退出 Do While list <= 10'excel表数据有10列 newfield(...
vb6.0怎么把excel的数据导入到access中?能给个源码么 谢谢
在一个表单中添加一个命令按钮command1,添加代码如下:Private Sub Command1_Click()Dim cn As Connection Dim rs As Recordset Dim sql As String Dim n As Long, m As Long Set cn = New Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _"Data Source=" & App.Path & "\...
vb6.0 Excel数据导入Access不能任意路径
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\data.mdb"你这里限制了,只有当前目录的data.mdb,所以上面也是提示找不到.mdb啊。
用vb6.0写一个将Excel数据导入access中的程序
App.Path & "\db.mdb"--你的VB程序在哪运行,就在哪儿生成mdb 'App.Path = Application Path ExportExcelSheetToAccess "authors", "E:\abc.xls", "bcd", App.Path & "\db.mdb"
vb6.0怎么读取excel表中内容
’用CommonDialog可以解决选定打开.xls文件问题 然后就是读取进去 哈哈 保存代码如下 '添加command控件一个 CommonDialog,MSFlexGrid控件一个 Private Sub Command1_Click() On Error Resume Next Dim fileadd As String CommonDialog1.ShowOpen CommonDialog1.Filter = "xls文件(*.xls)|*.xls" '选择...
各位大侠,VB6.0能引进Exl中的数据进行编程不
然后就可以编程了吧!其实我就用Access导入Excel的表格,用的是Access的自带的功能。方法如下:打开Access,文件—>获取外部数据—>导入,然后按部就班做就行。注意,导入Excel的数据表的字段最后与Access的字段相同,免去了许多麻烦。导入数据后,你想怎么处理数据都行!
vb6.0+access释放excel的问题(Adodc连接access—DataGrid显示—Common...
'保存、关闭Excel对象,并从内存中注销 newsheet.SaveAs CommonDialog1.FileName MsgBox "恭喜~ 数据导出成功!", 64 + 0 + 4096, "提示"gbxls:newbook.Close newxls.Quit Set newsheet = Nothing Set newbook = Nothing Set newxls = Nothing '错误处理 Exit Sub wzcw:MsgBox "由于未知错误...
vb6.0逐列读取excel的数据
m as long for i = 1 to 2 '用m存储每一列最后一个单元格的Row值 m = wb.sheets(1).cells(wb.sheets(1).rows.count,i).end(3).row arr = wb.sheets(1).cells(1,i).resize(m).value '将每一列的数据读取到arr中 NextEnd Sub ...
vb6.0如何读取excel工作表的内容?
strSQl = "select * from [" & strSheetName & "]" 取掉“&”字符
vb6.0编写程序读取excel文件(在电脑没有装excel软件的情况下)_百度知 ...
'打开Excel 的一个sheet rsXL.Open "[报表数据导入$]", cnXL, adOpenStatic, adLockOptimistic, adCmdTable If rsXL.EOF Then Exit Function '读取单元格C1 a=rsXL(2)'读取单元格D3 rsXL.MoveNext rsXL.MoveNext a=rsXL(3)用上述方式打开Excel对表的数据有一定要求。第一行将作为字段名称而被...