1、1, 包含空值的记录 f13 is null http:/ Properties=Excel 8.0;hdr=no;Data Source=“ extended properties=excel 8.0;“ extended properties=excel 8.0;“ extended properties=excel 8.0;hdr=no;data source=“ extended properties=excel 8.0;hdr=no;data source=“ Extended Properties =Excel 8.0;HDR=no;Data Source= “ extended
2、properties=excel 8.0;data source=“ extended properties=excel 8.0;hdr=no;data source=“ Extended Properties=Excel 12.0;hdr=no;data source=“ extended properties=excel 8.0;hdr=no;data source=“ extended properties=excel 8.0;hdr=no;data source=“ extended properties=excel 8.0;hdr=no;data source=“ extended
3、properties=excel 8.0;hdr=no;data source=“ Extended Properties=Excel 8.0;“.CursorLocation = adUseClient.OpenEnd WithSet rs = cnn.OpenSchema(adSchemaTables)Do Until rs.EOFIf Right(rs.Fields(“TABLE_NAME“).Value, 1) = “$“ ThenstrSheetName = Mid(rs.Fields(“TABLE_NAME“).Value, 1, Len(rs.Fields(“TABLE_NAME
4、“).Value) - 1)Exit DoEnd Ifrs.MoveNextLooprs.CloseSet rs = Nothingstrsql = “SELECT * INTO “ FROM“ _extended properties=excel 8.0;data source=“ “ _“ _“ _dbq=“ extended properties=excel 8.0;data source=“ extended properties=excel 8.0;data source=“ extended properties=excel 8.0;data source=“ extended p
5、roperties=excel 8.0;data source=“ extended properties=excel 8.0;data source=“ extended properties=excel 8.0;data source=“ extended properties=excel 8.0;data source=“ extended properties=excel 8.0;data source=“ extended properties=excel 8.0;data source=“ extended properties=excel 8.0;data source=“ Ex
6、tended Properties=Excel 8.0;hdr=no;Data Source=“ hdr=no中要加 hdr=no。22，SQL 不包含很多内容 问题http:/ OLEDB:Database Password=“ extended properties=excel 8.0;data source=“ extended properties=excel 8.0;hdr=no;data source=“ extended properties=excel 8.0;data source=“ extended properties=excel 8.0;data source=“ e
7、xtended properties=excel 8.0;data source=“ extended properties=excel 8.0;data source=“ Extended Properties=Excel 8.0;Data Source=“ hdr=yes;imex=1;data source=“ extended properties=excel 8.0;data source=“ Extended Properties=Excel 8.0;Data Source=“ & ThisWorkbook.FullNameSqlstr = “Select 定额编号,项目名称,单位,sum(数量), 标高,备注 From 计算稿$b3:l1000 where 定额编号 Arr(i - 1, 6) Thenr = r + 1ReDim Preserve Arr1(1 To r)Arr1(r) = iEnd IfNextFor j = 1 To rIf j “ And js = “ Thenjs = Format(Date, “yyyy-m-d“)ElseIf ks = “ And js “ Thenks = Format(“2009-1-1“, “yyyy-m-d“)End IfSet Cn = CreateObject(“Adodb.Connection“)
