[求助]execl工作簿内容合并 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]execl工作簿内容合并

共有3560人关注过本帖树形打印复制链接主题：[求助]execl工作簿内容合并

有点蓝

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

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

Post By：2019/11/13 14:14:00 [显示全部帖子]

Dim Rg2 As MSExcel.Range = Ws2.Range(i3 & ":" & i3 & "," & i1 & ":" & i2) '引用不连续的多行，添加标题行

Rg = Ws.Range("1:1,3:3,5:5") '引用不连续的多行

有点蓝

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

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

Post By：2019/11/13 15:06:00 [显示全部帖子]

ElseIf e.Form.Controls("CheckBox07").checked

If i1 = Nothing Or i2 = Nothing Or i3 = Nothing Then

msgbox("请录入工作表标题行或起始行或结束行!")

Else

If i = 0 Then

Dim Rg2 As MSExcel.Range = Ws2.Range(i3 & ":" & i3 & "," & i1 & ":" & i2) '引用不连续的多行，添加标题行

Rg2.Copy

Else

Dim Rg2 As MSExcel.Range = Ws2.Range(i1 & ":" & i2)'引用连续的多行

Rg2.Copy

End If

rg.PasteSpecial()

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

Wb2.Close

i= i+1

保存为xlsx文件

主题：[求助]execl工作簿内容合并