OPENDATASOURCE sheet表名称中 有 - 求救！

Question

SELECT * FROM OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0',
'Data Source=E:\测试.xls;
Extended Properties=Excel 8.0')...[客户群收入-合计$]
因为sheet 表名称中有 -   无法导入...
去掉- 则可以导入...表太多了 不想一个个去改名称 ，还有没有其他解决办法呢？

Answer 1

可以批量修改。CTRL+A鼠标对着一个文件，右键，重命名（如 a.xls),其它文件自动修改为 a(1).xls,a(2).xla....,a(n).xls

Answer 2

试了很久，在sql server 里没找到办法

Answer 3

Sub test()
Dim i As Integer
Dim MyArray(1 To 19) As StringMyArray(1) = "第一表"
MyArray(2) = "第二表"
MyArray(3) = "第三表"
MyArray(4) = "第四表"
MyArray(5) = "第五表"
MyArray(6) = "第六表"
MyArray(7) = "第七表"
MyArray(8) = "第八表"
MyArray(9) = "第九表"
MyArray(10) = "第十表"
MyArray(11) = "第十一表"
MyArray(12) = "第十二表"
MyArray(13) = "第十三表"
MyArray(14) = "第十四表"
MyArray(15) = "第十五表"
MyArray(16) = "第十六表"
MyArray(17) = "第十七表"
MyArray(18) = "第十八表"
MyArray(19) = "第十九表"For i = 1 To Sheets.Count
    Sheets(i).Name = MyArray(i)
Next i
End Sub 

Answer 4

在EXCEL里放上一个按钮, 双击按钮, 把上面的代码粘进去
一点按钮,所有的工作表改名

Answer 5

我看错了，参考：http://tieba.baidu.com/f?kz=215040280

Answer 6

Sub re_name_wst()
Dim ws_name As String, new_name As String
Dim n As Integer, i As Integer
n = ThisWorkbook.Worksheets.Count
For i = 1 To n
   ws_name = Worksheets(i).Name
   new_name = Replace(ws_name, "m", "f")
   Worksheets(i).Name = new_name
Next
End Sub 

Answer 7

http://blog.csdn.net/xys_777/archive/2010/07/22/5755410.aspx
openrowset可以了