excel多个文件批量删除第一列的内容,但保留表头

Posted 2023-04-17

如题，我有许多个文件需要上载到系统，第一列的内容我不需要，但是表头要留着，也就是列要保留，请问各位大神如何处理。先谢过各位大神。

参考技术A 将excel表格中最后一页的表头去除，而保留其他页的方法：直接选中最后一页的表头，然后右击删除。或者使用分页预览的功能。点击“视图”选项卡，然后点击“分页预览”（见上图截图）把最后一页的表头直接删除，即可。 参考技术B 将excel表格中最后一页的表头去除，而保留其他页的方法：直接选中最后一页的表头，然后右击删除。或者使用分页预览的功能。点击“视图”选项卡，然后点击“分页预览”（见上图截图）把最后一页的表头直接删除，即可。 参考技术C 1.
另存为新文件。
2.
删除不需要的列，保留
表头
。
3.
上传到系统。

OleDB读取Myxls生成的Excel文本，结果只能读取到第一列的值

利用第三方插件Myxls生成了excel文本，然后用OleDB方式连接该Excel文本，读取数据，结果只能读取到第一列的值。
将该Excel文本打开，另存一份，再用OleDB去读数据，就能够读取到所有的，说明OleDB连接及读取方式不存在问题，应该是Excel本身的原因。
是不是第三方插件导致的Excel格式问题导致不能读取，如何解决呢？谢谢

参考技术A OLEDB....

先创建连接对象:
set cnt=CreateObject("ADODB.Connection")

再连接
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=YES';Data Sourece='x:\xxxx.xls'

然后执行
rec = cnt.Execute ("Select * from [Sheet1$] where ....")

关于提到的：Excel 另存一份就能正常打开嘛……
目前想到两个思路：
1、确认下 MyXls 输出的 xls 文件版本，然后修改 OLEDB 的 ConnectionString
2、如果 MyXls 输出的文件确实和 Excel 另存的不大一样的话，可以考虑写个 VBA 代码来完成 Excel 另存的操作。