|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
错误原因是EXCEL一个单元格内的字符达到700多个。
INSERT INTO SELECT时会出错。
最好不要修改用户的数据习惯,如果能从技术层面解决最好,不行的话跳过也可以接受,怎么跳过呢?
或者怎么修改字段长度定义呢?
- Set cnn = CreateObject("ADODB.Connection")
- cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties='Excel 12.0;imex=0';Data Source=" & ThisWorkbook.Path & "\标准格式EXCEL.xlsb"
- SQL = "INSERT INTO [Sheet1$] SELECT * FROM [Excel 12.0;Database=" & ThisWorkbook.Path & "\原始数据.xlsb].[Sheet1$] "
- Set rs = cnn.Execute(SQL)
- cnn.Close
- Set rs = Nothing
- Set cnn = Nothing
复制代码 |
|