批量添加表格到电脑上 怎样批量建立工作表

一、如何将excel表格批量导入word表格

第一步：创建一个对照表，将excel表格的开始行号、结束行号、开始列号、结束列号以及word文档中表格的序号、开始行号、开始列号输入到对照表。

第二步：编制vba程序，读取对照表信息，根据对照表要求读取excel表格数据，写入到word的对应表格中。

下面是我曾经做过的例子，截取部分对照表信息以及部分程序代码供参考。

S_EXCEL= Cells(4, 3).Text'数据源EXCEL文件名

T_WORD= Cells(7, 3).Text'目标WORD文档名

DZB= Cells(5, 3).Text'对照表工作表名

Call exc_to_word(S_EXCEL, T_WORD, DZB)

Sub exc_to_word(S_EXCEL, T_WORD, DZB)

Dim wdoc As New Word.Application

Dim exc_beginColumn As Integer

Dim wod_tableNumber As Integer

Dim wod_beginColumn As Integer

Dim dataArr(1 To 500, 1 To 10)

Dim myDs'需要写入数据的WORD数据表

Dim XM(1 To 100)'存放表格的项目名称

'myPath="G:\EXCEL学习\猪八戒任务\EXCEL-TO-WORD\20151214\"

toolsB= ThisWorkbook.Name'保存当前工作簿名称

Set WB= ActiveWorkbook'数据源工作簿

Set MYS= ActiveWorkbook.Sheets(DZB)

导出路径文件名= ThisWorkbook.Path&"\"& T_WORD&".docx"

Set MYDOC= wdoc.Documents.Open(导出路径文件名)

Do While MYS.Cells(I, 1)> 0

exc_beginLine= MYS.Cells(I, 3)

exc_beginColumn= MYS.Cells(I, 4)

exc_endColumn= MYS.Cells(I, 5)

wod_tableNumber= MYS.Cells(I, 6)

wod_beginLine= MYS.Cells(I, 7)

wod_beginColumn= MYS.Cells(I, 8)

WOD_FILENAME= MYS.Cells(I, 10)

Set mYs2= WB.Worksheets(tableName)

For J= 1 To exc_endLine- exc_beginLine+ 1

XM(J)= mYs2.Cells(J+ exc_beginLine- 1, 1)

For K= 1 To exc_endColumn- exc_beginColumn+ 1

dataArr(J, K)= mYs2.Cells(J+ exc_beginLine- 1, K+ exc_beginColumn- 1)

Set myDs= MYDOC.Tables(wod_tableNumber)

L= myDs.Rows.Count'读取WORD表格行数

' If L- wod_beginLine+ 1< exc_endLine- exc_beginLine+ 1 Then

' WORD表格插入行，使其同excel表格行数相同一次插入多行没搞明白，故用此循环

Do While L- wod_beginLine+ 1< exc_endLine- exc_beginLine+ 1

'Set myTable= ActiveDocument.Tables(1)

'Set newrow= myTable.Rows.Add(BeforeRow:=myTable.Rows(1))

'Set mylastrow= myDs.Rows.Last- 1'从倒数第二行开始插入，以保持word格式的一致走不通！

Set mylastrow= myDs.Rows.Last

L= myDs.Rows.Count'读取WORD表格行数

' myDs.Rows.Add(exc_endLine- exc_beginLine+ 1)-(L- wod_beginLine+ 1)

' myDs.Cell(Row:=L- wod_beginLine+ 1, Column:=wod_beginColumn).Select

' Selection.InsertRowsBelow(exc_endLine- exc_beginLine+ 1)-(L- wod_beginLine+ 1)

For J= 1 To exc_endLine- exc_beginLine+ 1

myDs.Cell(Row:=wod_beginLine+ J- 1, Column:=1).Range= XM(J)

For J= 1 To exc_endLine- exc_beginLine+ 1

For K= 1 To exc_endColumn- exc_beginColumn+ 1

If Not IsError(dataArr(J, K)) Then

myDs.Cell(Row:=wod_beginLine+ J- 1, Column:=wod_beginColumn+ K- 1).Range.Text= VBA.Format$(dataArr(J, K),"#,###.00")

MYDOC.Close False'关闭word文档

Set MYDOC= Nothing'清空工作簿项目

二、如何给excel表格批量添加数据

有时我们需要将Excel中的数据批量加上新内容，具体操作方法见下面的介绍：

1、首先打开电脑上的excel文档，选中数据区域后点击鼠标右键，接着在弹出的菜单中选中【设置单元格格式】。

2、弹出单元格格式窗口，点击如图所示的【自定义】选项，然后再在【通用格式】后面加上需要的内容即可，具体操作参考下图。设置结束后，点击窗口最下方的【确定】按钮。

3、查看原来的数据区域，发现数据已经被成功添加。

1、同样选中数据区域，然后点击如图所示工具栏上的【查找替换】按钮，在弹出的菜单选中【替换】。

2、弹出如图所示的【查找替换】窗口，点击【特殊格式】下的【查找内容】来确定数据区域。

3、然后在【替换为】选项中设置要替换或添加的内容，并将【使用通配符】勾选上。再点击【全部查找替换】即可。

三、在EXCEL中如何批量插入表格

首先我们需要确定插入单元格的位置。

2、然后确定要插入好多个单元格（这里以4个单元格为例）。

3、然后我们需要其次点击鼠标右键。这一点很重要。

4、然后我们需要点击“插入”选项。这一点很重要

5、这样就得到了多行单元格。方法很简单，这样就可以在EXCEL中如何批量插入表格了。

四、怎样把一张表格的内容批量输入另外一张表格

1、您可以使用 Excel中的数据透视表功能来批量将一张表格的内容输入到另一张表格中。以下是具体步骤：

2、打开要输入内容的表格和要输入到的表格。

3、在要输入内容的表格中，选中所有要输入的数据。

4、在 Excel菜单栏中，依次选择“插入”->“数据透视表”。

5、在数据透视表对话框中，将要输入内容的表格范围选择为数据源，然后将要输入到的表格中的一个单元格作为位置放置到“行”或“列”中，确保在数据透视表中显示的数据与要输入的内容一致。

6、在要输入到的表格中，选中数据透视表中的数据区域。

7、在 Excel菜单栏中，选择“数据”->“从数据透视表中刷新”。

8、点击“确定”按钮，Excel将自动从数据透视表中获取数据，并将其输入到要输入到的表格中。

9、需要注意的是，数据透视表功能只适用于数据格式一致的表格之间的数据输入，如果要输入的数据格式与目标表格不一致，您可能需要进行额外的数据清理和格式调整工作。