vba查询数据库条数超过表格最大行数，怎么将剩下的数据写入新的sheet

比如你想把c:\faxls中sheet1中的数据导入sqlserver的[人员情况]表

sheet1中A:姓名；B:年龄；D:性别

'连接数据库

Set xlApp = CreateObject("ExcelApplication")

Set xlbook = xlAppWorkbooksOpen("C:\faxls")

Set xlsheet = xlbookWorksheets(1)

i=1

While xlsheetCells(i, 1) <> ""

sql="insert into 人员情况(姓名,年龄,性别) values('"&xlsheetCells(i, 1)&"','xlsheetCells(i, 2)','xlsheetCells(i, 4)')"

connexecute sql

i=i+1

wend

Set xlsheet = Nothing

Set xlbook = Nothing

xlappquit

使用Variant数据异常。

如果需要使用空值，请使用Variant数据类型，使用Nz（）函数指定要用于Null的值。

在VBA中，唯一可以包含Null的数据类型是Variant。当字段的值分配给非变量时，都必须考虑该字段可能为空的可能性。

以上就是关于vba查询数据库条数超过表格最大行数，怎么将剩下的数据写入新的sheet全部的内容，包括:vba查询数据库条数超过表格最大行数，怎么将剩下的数据写入新的sheet、excel vba读取access数据库记录空值出错、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！