gpt4 book ai didi

excel2access vbs脚本

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 26 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章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 。

最后此篇关于excel2access vbs脚本的文章就讲到这里了,如果你想了解更多关于excel2access vbs脚本的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com