Foxtable(狐表)用户栏目专家坐堂 → Merger 合并Excel表名的问题


  共有13753人关注过本帖树形打印复制链接

主题:Merger 合并Excel表名的问题

帅哥哟,离线,有人找我吗?
czy
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2010/7/17 23:33:00 [显示全部帖子]

这个不能判断吧。

不知道都加上$行不行(反正我的电脑一定得加,不然就出错)


 回到顶部
帅哥哟,离线,有人找我吗?
czy
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2010/7/17 23:38:00 [显示全部帖子]

从系统菜单的导入和合并来看,老六应该是可以让它能判断的,因为这两个功能的选择指定的表都带$符号。

 回到顶部
帅哥哟,离线,有人找我吗?
czy
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2010/7/18 1:28:00 [显示全部帖子]

问题是我们不能用代码获取Excel工作表带$符号的名称。

 

如下面两种方式返回的都是不带$符号的工作表名称:

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "销售管理.xls")
For Each Ws As MSExcel.WorkSheet In Wb.Sheets
    Output.Show(Ws.Name)
Next
App.Quit

 

 

 

Dim Book As New XLS.Book(ProjectPath & "销售管理.xls")
Dim Sheet As XLS.Sheet
For i As Integer = 0 To Book.Sheets.Count -1
    Output.Show(Book.Sheets(i).Name)
Next


 回到顶部
帅哥哟,离线,有人找我吗?
czy
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2010/7/18 12:38:00 [显示全部帖子]

以下是引用狐狸爸爸在2010-7-18 9:34:00的发言:

建立一个Excel数据源,然后:

 

 

Dim lst As List(Of String)
lst = Connections("数据源名称").GetTableNames
For Each
nm As String In lst
    Output.Show(nm)

Next

[此贴子已经被作者于2010-7-18 9:34:35编辑过]

 

这方法可行。


 回到顶部