excel如何用vba批量提取指定工作表

HI,请参考如下代码:

你可以分别指定某表格具体的单元格的值发布到不同表格的不同位置(同时设置格式,比如合并,字体,表格线,相当于打印到另外

一张表格)

按你要求的示例代码:

SHEET2CELLS(1,"C")=SHEET1CELLS(1,"A")'SHEET2假设就是你的B表'SHEET1假设就是你的A表

SHEET2CELLS(2,"C")=SHEET1CELLS(2,"A")

我设计的自用VBA以前也遇到你这个问题,

当时也查了不少资料(如还有疑问,欢迎加我的QQ:343375510)

1、首先双击打开PDF应用。

2、如图点击红圈里的“合并文件”，轻轻点击鼠标左键打开。

3、点击后出现如下图的d屏。

4、选中要计算页数的文件。

5、将文件拖拽到步骤四的d屏里。如图所示。

6、拖拽完成后点击红圈里的“下一步”。

7、点击“创建”。

8、最后就会看到已经在提取文件并计算了，左下角红圈里是计算后的页数显示，计算完成后选择右上角的“X”退出不保存即可。

GIF：

Sub AA()

    ApplicationScreenUpdating = False

    ApplicationDisplayAlerts = False

    Dim F, X, wb, bm

    F = ApplicationGetOpenFilename("EXCEL文件,xlsx,", 1, MultiSelect:=True)

    For X = 1 To UBound(F)

        Set wb = WorkbooksOpen(F(X))

        wbSaveAs Filename:=ApplicationSubstitute(F(X), "xlsx", "xls"), FileFormat:=xlExcel8

        wbClose False

    Next X

    MsgBox "处理完成，请查阅"

    ApplicationDisplayAlerts = True

    ApplicationScreenUpdating = True

End Sub

    ApplicationScreenUpdating = True

    End Sub

从你的，可以看出，数据是在WORD文件的表格中的，编个小程序可以解决，思路如下：

1、程序遍历指定文件下的所有DOC类文档，

2、打开找到的第一个文档，遍历文档中的每一个表格，

3、遍历表格中的每一个格子，与关键字进行比较，找出目标，其右侧的单元格中就是你要的字符串

4、程序新建EXCEL表格（这一步可以事先进行）

5、将找到的字符，输出到EXCEL表格中适当位置

6、循环直至文档未

7、循环直至文件夹中所有DOC文档全部处理完成

8----欢迎一起探讨（说明，我用的是C++，调用WORD，与EXCEL用的是ACTIVEX方法）

你右边的表中有7列，也就是7类，也许你没有完全放上来，你先确定有多少列，也就是多少种用地性质，

然后你的模板要做全，也就是说所有的用地性质都做成单元格，

--我认为你的模版做好后，汇总表上的一行，就对应模板做成后的一张表。。也就是汇总表有多少行，分表格就做多少个，每个分表格可以做成一个文件，分表格的文件名，就是地名，对应汇总边上每一行都有一个地名，

------------一张总表，每行做一张分表---------也就是一个工作簿，分出许多工作簿----

----------好了，下边可以编程了。。。。。。思路如下：

1、遍历汇总表的每一行，每一行中的每个单元格

2、某一行：第一个单元格为地名，将模板的表格复制一份改名为该地名，

3、将这一行中的其它单元格数据，写入到以 地名 命名的工作簿的相对应的单元格中

4、去汇总表的下一行，然重复步聚3,，直到最后一行

Public Sub printArea() ApplicationPrintCommunication = False With ActiveSheetPageSetup

printArea = "$A$1:$N$21"

FitToPagesWide = 1 FitToPagesTall = 0 End With ApplicationPrintCommunication = TrueEnd Sub

以上就是关于excel如何用vba批量提取指定工作表全部的内容，包括:excel如何用vba批量提取指定工作表、vba如何批量获取pdf页数、如何使用VBA代码批量将多个xlsx转换为xls格式等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！