Foxtable(狐表)用户栏目专家坐堂 → 选择excel文件 删除指定行与列 并新增列与赋值 然后怎么合并到狐表中呢?


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

主题:选择excel文件 删除指定行与列 并新增列与赋值 然后怎么合并到狐表中呢?

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


加好友 发短信
等级:超级版主 帖子:109728 积分:558356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/9/22 9:25:00 [显示全部帖子]

1、execl文件的第一行必须是列名,不能有合并单元格,不能有多行标题:http://www.foxtable.com/webhelp/topics/2280.htm
2、execl文件的列名必须完全和Foxtable表格的列名一致

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


加好友 发短信
等级:超级版主 帖子:109728 积分:558356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/9/22 11:04:00 [显示全部帖子]

说明execl文件里没有【202208AJT15_下属各单位检查1-8月】这个名称的sheet

               Rg.Value = s3
            Next
msgbox(f3)
            Wb.SaveAs(f3)          ‘当选择多个文件的时候,这里只会有一个文件保存了,没有对应跟上面的Book.Save(f2)保存的数量一样’
            App.Visible = False
        catch ex As exception
 msgbox(ex.message)
        finally
            app.quit
        End try

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


加好友 发短信
等级:超级版主 帖子:109728 积分:558356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/9/22 11:15:00 [显示全部帖子]

msgbox(11)
            Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(f2)
            Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
msgbox(s1)
            Dim Values() As String
            Values = s1.Split(".")
msgbox(Values.length)
            bm=Values(0)
msgbox(bm)
            Ws.Name = bm
msgbox(Ws.Name)

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


加好友 发短信
等级:超级版主 帖子:109728 积分:558356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/9/22 11:34:00 [显示全部帖子]

msgbox(bm) 这里弹出什么?是不是有空值,或者重名?
            Ws.Name = bm
msgbox(Ws.Name)

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


加好友 发短信
等级:超级版主 帖子:109728 积分:558356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/9/22 14:05:00 [显示全部帖子]

不能使用纯数字做列名

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


加好友 发短信
等级:超级版主 帖子:109728 积分:558356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/9/22 16:07:00 [显示全部帖子]

直接用execl vba按指定的行列导入数据就行了:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=65686&skin=0

一会儿XLS.Book、一会儿vba,一会儿Merger,搞那么多花样干啥!

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


加好友 发短信
等级:超级版主 帖子:109728 积分:558356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/9/22 16:55:00 [显示全部帖子]

去掉XLS.Book的代码,完全使用vba处理

 回到顶部