VB 合并excel文件问题?-CSDN论坛

⋅用C#如何获得某一文件夹下的某类文件的路径. ⋅NET第三方组件打包发布问题? ⋅用VB6.0生成目录对话框后如何指定初始目录. 更多帖子 关注空间博客 w1984721 本版专家分：17 结帖率 89.11%: 我想把一个Excel 文件中的两个sheet(sheet1,sheet2),合并到一个新的Excel文件中的一个sheet中(sheet1).

要合并sheet1,和sheet2的数据区域是不可知的,合并到新文件的sheet1中,
合并后在新文件的sheet1中数据区域是连续的,也就是sheet1数据区域结束后.接着下面就是sheet2的数据区域.可能有点难,哪位大哥写个范例代码看.
获取EXCEL的单元格区域的方法在下面:供大家参考.
Dim A1 As String
Dim A2 As String
Dim Columns As Long
Dim Rows As Long

Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = False '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("D:\a.xls")
Set xlSheet = xlBook.Worksheets(1) '打开EXCEL工作表
Rows = xlBook.Worksheets(1).UsedRange.Rows.Count
Columns = xlBook.Worksheets(1).UsedRange.Columns.Count
A1 = xlSheet.UsedRange.Cells(1, 1).Address
A2 = xlSheet.UsedRange.Cells(Rows, Columns).Address

xlSheet.Range(A1, A2).Copy
...
下面怎么写我就不知道了,希望高手赐教.

0 2009-07-28 00:33:15

回复数 10 只看楼主引用举报楼主

⋅[原创]认识个网友叫“青春回味” ⋅【散分】旅游顺利归来 ⋅【散分】一不小心上月技术分竟得了个911 更多帖子 关注空间博客 孤独剑_LPZ 本版专家分：33628 红花 2009年12月 VB大版内专家分月排行榜第一 黄花 2010年6月 VB大版内专家分月排行榜第二 蓝花 2010年5月 VB大版内专家分月排行榜第三 2009年11月 VB大版内专家分月排行榜第三: 两个sheet(sheet1,sheet2),数据格式（字段）是否一样？

0 2009-07-28 00:40:17

只看TA 引用举报 #1 得分 0

w1984721 本版专家分：17: 不一样的!

0 2009-07-28 14:51:56

只看TA 引用举报 #2 得分 0

⋅BAT文件无法导出CSV ⋅版主来看一下，为什么日志文件一直在增加 ⋅WINDOW不可以多主一从设定吗？ 更多帖子 关注空间博客 lxq19851204 本版专家分：8430: 不一样有难度呀,不懂,顶一下先.

0 2009-07-28 17:08:27

只看TA 引用举报 #3 得分 0

⋅用户 namedajipai 在问答区恶意刷贴 ⋅服务器时间不准！ ⋅[BUG报告](IE8)论坛页头多出多余显示 更多帖子 关注空间博客 Tiger_Zhao 本版专家分：129858 红花 2017年3月 VB大版内专家分月排行榜第一 2016年12月 VB大版内专家分月排行榜第一 2016年5月 VB大版内专家分月排行榜第一 2016年1月 VB大版内专家分月排行榜第一 2015年12月 VB大版内专家分月排行榜第一 2015年11月 VB大版内专家分月排行榜第一 2015年10月 MS-SQL Server大版内专家分月排行榜第一 2015年9月 VB大版内专家分月排行榜第一 2015年9月 MS-SQL Server大版内专家分月排行榜第一 2015年8月 VB大版内专家分月排行榜第一 2015年8月 MS-SQL Server大版内专家分月排行榜第一 2015年7月 VB大版内专家分月排行榜第一 2015年7月 MS-SQL Server大版内专家分月排行榜第一 2015年6月 VB大版内专家分月排行榜第一 2015年5月 VB大版内专家分月排行榜第一 2015年4月 VB大版内专家分月排行榜第一 2015年3月 VB大版内专家分月排行榜第一 2015年2月 VB大版内专家分月排行榜第一 2014年11月 VB大版内专家分月排行榜第一 2014年9月 VB大版内专家分月排行榜第一 2014年8月 VB大版内专家分月排行榜第一 2014年7月 VB大版内专家分月排行榜第一 2013年7月 VB大版内专家分月排行榜第一 2013年4月 VB大版内专家分月排行榜第一 2010年2月 VB大版内专家分月排行榜第一 2010年1月 VB大版内专家分月排行榜第一 2009年11月 VB大版内专家分月排行榜第一 2009年9月 VB大版内专家分月排行榜第一 2009年8月 VB大版内专家分月排行榜第一 2009年7月 VB大版内专家分月排行榜第一 2009年4月 VB大版内专家分月排行榜第一 2009年3月 VB大版内专家分月排行榜第一 2009年2月 VB大版内专家分月排行榜第一 2009年1月 VB大版内专家分月排行榜第一 2008年6月 VB大版内专家分月排行榜第一 2007年12月 VB大版内专家分月排行榜第一 2007年10月 VB大版内专家分月排行榜第一 2007年9月 VB大版内专家分月排行榜第一 黄花 2016年11月 VB大版内专家分月排行榜第二 2016年1月 MS-SQL Server大版内专家分月排行榜第二 2015年12月 MS-SQL Server大版内专家分月排行榜第二 2015年11月 MS-SQL Server大版内专家分月排行榜第二 2015年5月 MS-SQL Server大版内专家分月排行榜第二 2015年4月 MS-SQL Server大版内专家分月排行榜第二 2015年1月 VB大版内专家分月排行榜第二 2015年1月 MS-SQL Server大版内专家分月排行榜第二 2014年12月 VB大版内专家分月排行榜第二 2014年11月 MS-SQL Server大版内专家分月排行榜第二 2014年9月 MS-SQL Server大版内专家分月排行榜第二 2013年8月 VB大版内专家分月排行榜第二 2013年6月 VB大版内专家分月排行榜第二 2013年5月 VB大版内专家分月排行榜第二 2010年4月 VB大版内专家分月排行榜第二 2010年3月 VB大版内专家分月排行榜第二 2008年12月 VB大版内专家分月排行榜第二 2008年8月 VB大版内专家分月排行榜第二 2008年7月 VB大版内专家分月排行榜第二 2007年11月 VB大版内专家分月排行榜第二 蓝花 2017年1月 MS-SQL Server大版内专家分月排行榜第三 2015年6月 MS-SQL Server大版内专家分月排行榜第三 2015年3月 MS-SQL Server大版内专家分月排行榜第三 2015年2月 MS-SQL Server大版内专家分月排行榜第三 2014年12月 MS-SQL Server大版内专家分月排行榜第三 2014年10月 VB大版内专家分月排行榜第三 2014年10月 MS-SQL Server大版内专家分月排行榜第三 2014年8月 MS-SQL Server大版内专家分月排行榜第三 2013年9月 VB大版内专家分月排行榜第三 2013年3月 VB大版内专家分月排行榜第三 2012年5月 VB大版内专家分月排行榜第三 2012年4月 VB大版内专家分月排行榜第三 2010年10月 VB大版内专家分月排行榜第三 2010年8月 VB大版内专家分月排行榜第三 2010年7月 VB大版内专家分月排行榜第三 2009年5月 VB大版内专家分月排行榜第三 2008年9月 VB大版内专家分月排行榜第三 2008年4月 VB大版内专家分月排行榜第三 2008年2月 VB大版内专家分月排行榜第三

Option Explicit



Sub Main()

    Dim xlApp       As Object

    Dim xlBook      As Object

    Dim xlBookNew   As Object

    Dim xlSheet1    As Object

    Dim xlSheet2    As Object

    Dim xlSheetNew  As Object



    Set xlApp = CreateObject("Excel.Application")

    xlApp.Visible = False

    Set xlBook = xlApp.Workbooks.Open("D:\a.xls")

    Set xlSheet1 = xlBook.Sheets(1)

    Set xlSheet2 = xlBook.Sheets(2)



    xlSheet1.Copy

    Set xlBookNew = xlApp.Workbooks(xlApp.Workbooks.Count)

    Set xlSheetNew = xlBookNew.Sheets(1)



    xlSheet2.Activate

    xlSheet2.UsedRange.Copy

    xlSheetNew.Activate

    xlSheetNew.Cells(xlSheetNew.UsedRange.Rows.Count + 1, 1).Select

    xlSheetNew.Paste



    xlBookNew.SaveAs "D:\a-new.xls"

    Set xlSheetNew = Nothing

    xlBookNew.Close False

    Set xlBookNew = Nothing



    Set xlSheet1 = Nothing

    Set xlSheet2 = Nothing

    xlBook.Close False

    Set xlBook = Nothing



    xlApp.Quit

    Set xlApp = Nothing

End Sub

0 2009-07-29 10:09:29

只看TA 引用举报 #4 得分 20

weiyulin 本版专家分：407: 帮顶.....

0 2009-07-31 09:22:29

只看TA 引用举报 #5 得分 0

⋅2012.12.20，明天准备怎么过？ ⋅2012.12.20，散分啊! ⋅好长时间没来了，一点好玩的都没有 更多帖子 关注空间博客 cqq_chen 本版专家分：14014: 有意义吗？
Excel自己做这事多快！

0 2009-07-31 11:35:39

只看TA 引用举报 #6 得分 0

⋅冒个泡，给大家拜年了！ ⋅跨进程通讯中的权限问题 ⋅如休为视图的计算列加上NOT NULL约束？ 更多帖子 关注空间博客 lyserver 本版专家分：35604 红花 2009年6月 VB大版内专家分月排行榜第一 2009年5月 VB大版内专家分月排行榜第一 黄花 2010年12月 VB大版内专家分月排行榜第二 2010年11月 VB大版内专家分月排行榜第二 2009年7月 VB大版内专家分月排行榜第二: 查看我博客里《如何用VB实现Excel文件的自动合并》一文。

0 2009-07-31 12:10:42

只看TA 引用举报 #7 得分 0

⋅RedirectAttributes 如何在过滤器中使用 ⋅Java 代码实现 clubic 类型的验证码 ⋅Eclipse 报错org.apache.catalina.LifecycleException: Failed to start component。。 更多帖子 关注空间博客 yangguo8013 本版专家分：154: 引用 4 楼 tiger_zhao 的回复:
VB codeOptionExplicitSub Main()Dim xlAppAsObjectDim xlBookAsObjectDim xlBookNewAsObjectDim xlSheet1AsObjectDim xlSheet2AsObjectDim xlSheetNewAsObjectSet xlApp=CreateObject("Excel.Application")
    xlApp.Visible=FalseSet xlBook= xlApp.Workbooks.Open("D:\a.xls")Set xlSheet1= xlBook.Sheets(1)Set xlSheet2= xlBook.Sheets(2)

    xlSheet1.CopySet xlBookNew= xlApp.Workbooks(xlApp.Workbooks.Count)Set xlSheetNew= xlBookNew.Sheets(1)

    xlSheet2.Activate
    xlSheet2.UsedRange.Copy
    xlSheetNew.Activate
    xlSheetNew.Cells(xlSheetNew.UsedRange.Rows.Count+1,1).Select
    xlSheetNew.Paste

    xlBookNew.SaveAs"D:\a-new.xls"Set xlSheetNew=Nothing
    xlBookNew.CloseFalseSet xlBookNew=NothingSet xlSheet1=NothingSet xlSheet2=Nothing
    xlBook.CloseFalseSet xlBook=Nothing

    xlApp.QuitSet xlApp=NothingEnd Sub

我以前写过读取，老鸟写的可以尝试

0 2009-08-05 23:49:52

只看TA 引用举报 #8    得分 30

yangguo8013 本版专家分：154: 我帮你试过了，是把sheet1，sheet2的内容全部放到新的sheet里面了，并且是连贯的

0 2009-08-06 00:08:47

只看TA 引用举报 #9 得分 0

li_yaoming 本版专家分：152: 在excel中操作一下，录制成新的宏，然后把宏拷到程序中根据要求修改一下就可以了。

0 2009-08-06 10:11:51

只看TA 引用举报 #10 得分 0

VB 合并excel文件问题? [问题点数：50分，结帖人w1984721]