DECLARE
    l_ddl   VARCHAR2 (32767);
BEGIN
    l_ddl      := REPLACE (
                      REPLACE (
                          DBMS_LOB.SUBSTR (DBMS_METADATA.get_ddl ('TABLE', 'ACTIVITY_LOG', 'OLDSCHEMA'))
                        , q'["OLDSCHEMA"]'
                        , q'["NEWSCHEMA"]'
                      )
                    , q'["OLDTABLSPACE"]'
                    , q'["NEWTABLESPACE"]'
                  );

    EXECUTE IMMEDIATE l_ddl;
END; 

通过其他方式，您可以从下面列出的命令获取表创建的ddl，并执行创建。

SELECT DBMS_METADATA.GET_DDL('TYPE','OBJECT_NAME','DATA_BASE_USER') TEXT FROM DUAL 

类型是表，程序等。

使用这个命令，您可以从数据库对象中获得大部分ddl。

我使用的方法，你接受了很多，但有人指出，它不复制约束(除了NOT NULL，我认为)。

如果你想复制完整的结构，一个更高级的方法是:

SET LONG 5000
SELECT dbms_metadata.get_ddl( 'TABLE', 'MY_TABLE_NAME' ) FROM DUAL;

这将为您提供完整的create语句文本，您可以根据需要对其进行修改以创建新表。你必须改变表的名字，当然还有所有的约束。

(你也可以在旧版本中使用EXP/IMP来做到这一点，但现在更容易了。)

编辑添加 如果您要查找的表在不同的模式中:

SELECT dbms_metadata.get_ddl( 'TABLE', 'MY_TABLE_NAME', 'OTHER_SCHEMA_NAME' ) FROM DUAL;

创建表xyz_new作为select * from xyz;

——这将创建表并复制所有数据。

Delete from xyz_new;

-这将有相同的表结构，但所有复制的数据将被删除。

如果你想克服答案中指定的限制: 如何在不复制数据的情况下创建Oracle表的副本?

简单地写一个查询:

create table new_table as select * from old_table where 1=2;

其中new_table是要创建的新表的名称，old_table是要复制其结构的现有表的名称，这将只复制结构。

Create table target_table 
As
Select * 
from source_table 
where 1=2;

Source_table是你要复制其结构的表。