爱问知识人 爱问教育 医院库

如何批量插入excel工作表

搜索
我要提问
首页
电脑/网络
办公软件

如何批量插入excel工作表

现在由于工作需要，要求在大量excel文件中的某两个工作表中间插入同一种格式的工作表，由于excel文件较多，一个一个文件打开插入工作量大，可不可以批量插入，请各位大侠不吝赐教！！！

PS：假设，我有100个EXCEL文件，名称分别为1.xls,2.xls......100.xls 每个文件中对应Sheet1、Sheet2、Sheet3工作表，要求在Sheet2、Sheet3工作表中间插入一个工作表Sheet4。

0***
回答
提交回答
好评回答
  • 2010-04-06 16:47:42 
    Sub AddNewSht()
    Dim Fl, i%
    Fl = Application.GetOpenFilename("Excel文件,*.xls", , "请选择要添加工作表的工作簿", , True)
    For i = 1 To UBound(Fl)
        Workbooks.Open Fl(i)
        With ActiveWorkbook
            .Sheets.Add before:=Sheets("Sheet3")
            .Close True
        End With
    Next
End Sub

    一***

    2010-04-06 16:47:42

    187 78 评论
    分享
    提交评论
展开更多答案

类似问题

换一换

  • 办公软件 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新资料 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
问题大全
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 0-9
主题大全
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 0-9
关于我们 爱问协议 帮助中心

Copyright © 1996-2019 IASK Corporation, All Rights Reserved

返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选)：

放弃 确定报告