[求助]我这段代码是查找excel中标签的但是执行不进去呀 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]我这段代码是查找excel中标签的但是执行不进去呀

共有4499人关注过本帖树形打印复制链接主题：[求助]我这段代码是查找excel中标签的但是执行不进去呀

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106167 积分：539952 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/3/1 23:00:00 [显示全部帖子]

execl文件发上来测试

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106167 积分：539952 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/3/2 8:57:00 [显示全部帖子]

没看懂您要计算什么？分页？生成报表后是不会有任何设计时模板的标签的，比如<End>是不存在的。

如果要计算合计，应该在Foxtable的表格里计算，然后通过变量绑定：http://www.foxtable.com/webhelp/scr/1391.htm

上传生成之后的报表，并标注一下要什么效果

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106167 积分：539952 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/3/2 9:58:00 [显示全部帖子]

那么为什么不通过模板直接生成一个文件？而是生成100个文件再合并为一个？

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106167 积分：539952 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/3/2 11:12:00 [显示全部帖子]

合并不同的Excel到同一个工作薄

Dim dlg As New OpenFileDialog

dlg.Filter= "Excel文件|*.xls" '设置筛选器

dlg.MultiSelect = True

If dlg.ShowDialog = DialogResult.OK Then

Dim App As New MSExcel.Application

try

Dim Wb As MSExcel.Workbook = App.WorkBooks.open("f:\test.xls")

Dim ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Dim rg As MSExcel.Range = ws.Cells(ws .UsedRange.Rows.Count+1,1)

app.DisplayAlerts = False

Dim Wb2 As MSExcel.Workbook

For Each file As String In dlg.FileNames

Wb2 = App.WorkBooks.open(file)

Dim Ws2 As MSExcel.WorkSheet = Wb2.WorkSheets(1)

Dim Rg2 As MSExcel.Range = Ws2.UsedRange

rg2.Copy

rg.PasteSpecial()

rg = ws.Cells(ws .UsedRange.Rows.Count+1,1)

Wb2.Close

Wb.Save

Wb.Close

App.Quit

catch ex As Exception

App.Quit

End try

End If

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106167 积分：539952 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/3/2 11:58:00 [显示全部帖子]

参考：http://www.foxtable.com/webhelp/scr/2121.htm

创建新的工作簿。如下面的代码，就将新建一个工作簿，该工作簿的第一个工作表的名称改为hhh，同时在A1单元格写入“hhh123”，然后保存为D:\123.xls。

Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Add
Wb.WorkSheets(1).name = "hhh"
Wb.WorkSheets(1).range("A1").Value = "hhh123"
Wb.SaveAs("d:\123.xls")
App.Quit

需要说明的是，在创建新工作簿后，该工作簿就成为活动工作簿。