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_NAM
4、E“).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 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=“ & ThisWorkbook.Path & “出仓数据库“ & shsql = “select * from “ & aa & “$a2:af5000 where 款号简称
