取出excel中的所有sheet表名的sql语句怎么写？

2007-12-19 05:25:52 379 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

PowerDesigner导出数据表结构到Excel 一个表一个Sheet 带链接目录 (sheet是表名） 1. 先逆向导入你的sql https://mp.csdn.net/console/editor/html/90756202 2.选中需要导出的表，执行脚本 Option Explicit Dim rowsNum rowsNum = 0 '----------------------------------------------------------... 阅读详情

一个excel文件中有多个sheet 如何用sql取出所有表名来？

...全文

利用VBA遍历Excel所有sheet的例子下面是利用VBA遍历Excel sheet的例子，可以用于Excel的批量处理。 Sub Insert_CodeString() Dim fs, ft As Object Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim Sql As ... 阅读详情

jxwa_wzw

MS-SQL Server 34,876 成员 254,635 内容

+ 关注 + 加入社区

切换为时间正序

kingmax54212008 2007-12-26

打赏
举报

select * from OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\Reporttemplate\PPVAPO.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')

读取某个Sheet的数据：[Sheet1$]加左右中括号，Sheet1表示Sheet名，不知道为什么要加美元符$，反正不加不行。

chuifengde 2007-12-26

打赏
举报

1.用vb写一个工程名为GetSheet，类为GetS的dll
代码如下：

Option Explicit



Dim Ex As New Excel.Application

Dim Wk As New Excel.Workbook



Public Function GetSheetName(PathT As String) As String

Dim I As Integer

Dim StrName As String



StrName = ""



Set Wk = Ex.Workbooks.Open(PathT)

If Wk.Worksheets.Count < 1 Then

    StrName = ""

Else

    For I = 1 To Wk.Worksheets.Count

          StrName = StrName & Wk.Worksheets(I).Name & "|"

    Next

End If

Wk.Save

Ex.Quit

Set Wk = Nothing

Set Ex = Nothing

GetSheetName = StrName

End Function

2.注册dll并用sql调用

declare @objC int,@hr int

declare @x varchar(100)



exec @hr=master..sp_OACreate 'GetSheet.getS',@objC output

if @hr<>0

begin	

	set @hr=1

	goto Error

end



exec @hr=master..sp_OAMethod @objC,'GetSheetName',@x out,'e:\test.xls'

if @hr<>0 

begin

	set @hr=2

	goto Error

end



select '表名为：'+@x

exec master..sp_OAdestroy @objc

Error:

   print 'error: ' +ltrim(@hr)

   exec master..sp_OAdestroy @objc

--result

/*-------------- 

Sheet1|Sheet2|Sheet3|Sheet4|

*/

ojuju10 2007-12-20

打赏
举报





select * from  OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',

'Data Source="c:\Reporttemplate\PPVAPO.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]

yiyi_wx 2007-12-20

打赏
举报

up 帮顶

云中客 2007-12-20

打赏
举报

关注这个问题！！

云中客 2007-12-20

打赏
举报

SQL语句可以实现吗，没有做过

不过利用其他的编程工具可以实现

Limpire 2007-12-19

打赏
举报

我也想知道，帮你顶

jxwa_wzw 2007-12-19

打赏
举报

to Limpire

应该是有办法读取出来的呀

Limpire 2007-12-19

打赏
举报

所有Sheet的表名，应该是读不出来的。

楼上的都是读取某个Sheet的数据：[Sheet1$]加左右中括号，Sheet1表示Sheet名，不知道为什么要加美元符$，反正不加不行。

jxwa_wzw 2007-12-19

打赏
举报

提示 odbc 驱动程序不支持所需的属性

记录集打开的时候提示这个错误

jxwa_wzw 2007-12-19

打赏
举报

to happy
我去测试下可以的话马上回来结贴

-狙击手- 2007-12-19

打赏
举报

--如果接受数据导入的表已经存在

insert into 表 select * from 

OPENROWSET('MICROSOFT.JET.OLEDB.4.0'

,'Excel 5.0;HDR=YES;DATABASE=c:\test.xls',sheet1$)



--如果导入数据并生成表

select * into 表 from 

OPENROWSET('MICROSOFT.JET.OLEDB.4.0'

,'Excel 5.0;HDR=YES;DATABASE=c:\test.xls',sheet1$)

jxwa_wzw 2007-12-19

打赏
举报

因为我要用程序通过 odbc 取出来并显示在我程序中

-狙击手- 2007-12-19

打赏
举报

SELECT * 

FROM OpenDataSource( ’Microsoft.Jet.OLEDB.4.0’, 

  ’Data Source="c:\test.xls";User ID=Admin;Password=;Extended properties=Excel 5.0’)...xactions

取出excel中的所有sheet表名的sql语句怎么写？

相关推荐