excel2access vbs脚本
导读：收集整理的这篇文章主要介绍了excel2access vbs脚本，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下: '脚本说明 'code by NP 'outDa...
收集整理的这篇文章主要介绍了excel2access vbs脚本，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下: '脚本说明
'code by NP
'outDateFile变量为要写入的数据库名字
'Tables变量为Access数据库中的表名
'ROW变量为Access数据库中的列名
'Excel中的数据，直接为要写入的数据，不需要标题一类的
'例如：要写入数据库的列名为
' 系别|班别|姓名|学号|性别|政治面貌|出生年月|身份证号码|家庭地址|生源地毕业学校
'而Excel文件中，只需要以下面的例子开头就行了
' 城建系|城建0001|韦XX|071010100111|女|团员|1981/11|451111111111111111|广西xxxxxxxxx|xxxx学校
'数据和列名要对的上号！
'脚本直接双击，更具提示操作
If WScript.arguments.Count > 0 Then InXlsFile = WScript.arguments(0)
If InXlsFile = "" Then
InXlsFile = CreateObject("Excel.Application").GetOPEnFilename("Excel Files (*.xls), *.xls")
If VARType(Filename) = vbBoolean Then
Wscript.Echo "Excel2Access。" & vbCr & vbLf & vbCr & vbLf & "用法: Excel2Access filename.xls 或在对话框中打开Excel文件。"
WScript.QuIT
End If
End If
outDateFile="Excel2Access.mdb" '要转换的数据库名字
Tables="学生信息表" '要创建以及写入的表名
Row="系别,班别,姓名,学号,性别,政治面貌,出生年月,身份证号码,家庭地址,生源地毕业学校" '要创建以及写入的列名,用逗号隔开
Set Fso=CreateObject("Scripting.FileSystemObject")
If Fso.FileExists(outDateFile) Then
Call Writemdb
Else
Set DB = CreateObject("ADOX.CataLOG")
DB.Create("PRovider=Microsoft.Jet.OLEDB.4.0; Data Source="& outDateFile)
Set ADOXTable = CreateObject("ADOX.Table")
ADOXTable.Name = Tables
For each s In Split(Row, ",", -1, 1)
ADOXTable.Columns.Append s,202 ' 字符串
Next
DB.Tables.Append ADOXTable
Set DB=Nothing
Call Writemdb
End If
Set Fso = Nothing
Sub Writemdb()
Set objExcel = CreateObject("Excel.Application")
Set objWorkBook = objExcel.Workbooks.Open(InXlsFile)
Set Conn=CreateObject("ADODB.Connection")
ConnStr="DBQ="& outDateFile& "; Driver={ Microsoft Access Driver (*.mdb)} ; "
Conn.Open ConnStr
Rows=objExcel.ActiveSheet.UsedRange.Rows.Count
Columns=objExcel.ActiveSheet.UsedRange.Columns.Count
For i= 1 To rows
tmp=""
For j =1 To Columns
If Len(objExcel.Cells(i,j).Value) > 0 Then
If j> Columns Then
tmp=tmp& "'"& objExcel.Cells(i,j).Value& "',"
Else
tmp=tmp& "'"& objExcel.Cells(i,j).Value& "'"
'wscript.Echo "Insert Into "& Tables& "("& row& ") Values("& tmp& ")"
Conn.Execute "Insert Into "& Tables& "("& Row& ") Values("& tmp& ")"
End If
Else
Exit For
End If
Next
Next
objWorkbook.Close
objExcel.Quit
Conn.Close
Set Conn=Nothing
Set objWorkbook=Nothing
Set objExcel=Nothing
wscript.Echo "处理完毕，请检查是否正常导入"
End Sub
您可能感兴趣的文章:
- VBS教程：属性-DateLastAccessed 属性
- ACCESS的参数化查询,附VBSCRIPT(ASP)和C#(ASP.NET)函数
- vbs生成ACCESS数据里所有表的字段
- UserAccessList 集合的功能(VBA)
- 读取Access数据库的vbscript代码打包下载
- VB6实现连接Access数据库的ADODB代码实现方法
- VB使用ADO操作Access数据库
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： excel2access vbs脚本
本文地址： https://pptw.com/jishu/609780.html