在VBA中，如何创建一个新表？

[longji]

我在Execl中处理数据，最后要将这些数据写入一个表中。要求：
1、表的名字可以自定义。
2、如果存在同名的表，将其删除。
3、创建的字段有char(40),double(保留两位小数)，百分比(形如：**.**%可*.**%的形式。
谢谢!!

[popsoft]

sheet.new

[hhjjhjhj]

Sheets.Add
Sheets("Sheet4").Select
Sheets("Sheet4").Name = "表名"
Selection.NumberFormatLocal = "0.00_ "
Range("B1").Select
Selection.NumberFormatLocal = "0.00%"
表只能先加入再改名
表只能手工删除，用宏删除也会出现对话框。

[longji]

谢谢各位!!时分感谢!!收获很大，但我的问题还是没有完全解决。打开这个数据库以后，我如何才能判断是否有我要建的表存在呢？比如我要建立一个lfy200208，我如果要是只写一个建表语句肯定是不行的。我建表前首先要判断这个表是否存在，然后在做处理。请问如何做这个判断？

[longji]

谢谢各位!是我没说清楚。我要把Execl中的表(共14个)写到一个SQL Server7.0数据库中去，用VBA在数据库中新建一个表，数据库用手工创建。我的想法是这样的：每次更改数据的时候把数据库中的表删除，改完了以后，再把Execlk中的表写入数据库。(因为我不知道怎么只把改过的东西写入数据库)，然后我在另一个Execl应用中查询这个数据库中的表。

[zephyr_zhao]

你用什么数据库?

[zephyr_zhao]

conn.Execute "CREATE TABLE tablename (FIELD1 VARCHAR2(20), FIELD2 FLOAT)"

删除表
conn.Execute "drop TABLE tablename "

[tripofdream]

禁止出现对话框:
Application.DisplayAlerts = False

[tripofdream]

sql="if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[YourTableName]') and OBJECTPROPERTY(id, N'IsUserTable') = 1) drop table [dbo].[YourTableName] else CREATE TABLE [dbo].[YourTableName] (FIELD1 VARCHAR2(40), FIELD2 FLOAT)"
conn.Execute sql

[longji]

SQL Server7.0

[longji]

十分感谢!是不是VBA中SQL语句与SQL Server7.0中的不完全一样？有一些好象在VBA中用不了啊。

[zephyr_zhao]

不会的
只要你用了SQL SERVER的Driver,就可以用SQL Server的语句了
和VBA没什么关系的

[longji]

是在SQL SERVER 中把DREVER选为SQL Server吗？还是在VBA中写上DREVER为SQL Server?

[tripofdream]

后者