VBA SQL删除所有数据？

north00 · 发表于 2023-2-14 19:45

请教高手：

SQL = "DELETE FROM [Sheet1$]" 这句话为何不能删除工作表Sheet1中的所有已存在的记录？

谢谢！

lss001 · 发表于 2023-2-14 20:06

SQL暂时不支持删除
可以使用工作表方法：
Sheet1.UsedRange.Delete

语虚何以言知 · 发表于 2023-2-14 21:41

虽然excel可以使用access查询语法,但是有些命令还是不通用的

例如建表删表

north00 · 发表于 2023-2-14 23:05

lss001 发表于 2023-2-14 20:06
SQL暂时不支持删除
可以使用工作表方法：
Sheet1.UsedRange.Delete

非常感谢！
就是因为不想直接打开另外的工作簿，所以才用SQL方法的。

那么，是否可以用UPDATE的方法变通一下，将所有的数据区域皆赋值为空值，即""？

north00 · 发表于 2023-2-14 23:06

语虚何以言知发表于 2023-2-14 21:41
虽然excel可以使用access查询语法,但是有些命令还是不通用的

例如建表删表

非常感谢！
就是因为不想直接打开另外的工作簿，所以才用SQL方法的。

那么，是否可以用UPDATE的方法变通一下，将所有的数据区域皆赋值为空值，即""？

lss001 · 发表于 2023-2-15 08:12

north00 发表于 2023-2-14 23:05
非常感谢！
就是因为不想直接打开另外的工作簿，所以才用SQL方法的。

'清空工作表可使用以下语句
' 注意应先修改连接字符串中IMEX的值为0
'→IMEX＝0

'sql清空Sheet1表格：
sql = "Drop Table [Sheet1$]"

cui26896 · 发表于 2023-2-15 10:37

lss001 发表于 2023-2-15 08:12
'清空工作表可使用以下语句
' 注意应先修改连接字符串中IMEX的值为0
'→IMEX＝0

实测了一下，可以清除表中的所有数据，但原有的格式，颜色和划线清除不了。

north00 · 发表于 2023-2-15 13:06

lss001 发表于 2023-2-15 08:12
'清空工作表可使用以下语句
' 注意应先修改连接字符串中IMEX的值为0
'→IMEX＝0

非常感谢！

这是个很好的办法，但经实测好像有点小瑕疵使得Drop指令更像是ClearContents，而不是删除记录行。因为我按照这个方法试了一下，目的Excel表格（A.xlsx）中的原有的12行数据都被清除掉了，然后再用Insert Into指令朝目的Excel表格（A.xlsx）中写入5行数据，然后在用另外一个软件去调用目的Excel表格（A.xlsx）发现仍有12行数据，只不过后7行是空白行。。。。

请问，这种有办法去解决吗？谢谢！

north00 · 发表于 2023-2-15 13:07

cui26896 发表于 2023-2-15 10:37
实测了一下，可以清除表中的所有数据，但原有的格式，颜色和划线清除不了。

类似ClearContents，但不是delete整行的数据，我也测试过了

lss001 · 发表于 2023-2-15 13:17

本帖最后由 lss001 于 2023-2-15 13:19 编辑

north00 发表于 2023-2-15 13:06
非常感谢！

这是个很好的办法，但经实测好像有点小瑕疵使得Drop指令更像是ClearContents，而不是删除 ...

需要先关闭当前连接
写入与获取数据时再重新连接

		自动登录	找回密码
密码			免费注册

[求助] VBA SQL删除所有数据？