怎么创建表格word文档(怎么创建表格然后打出来)

【分享成果，用正能量快乐】禅是从静中悟出的，德是从谦中生出的，快乐是从俭中得来的。如果你摆脱了妄想和邪恶，生活会更顺利。。

我对VBA的定义:VBA是个人小规模自动处理的有效工具。善用可以大大提高你的劳动效率和数据的准确性。我已经推出了十套VBA教程(本文末尾附有VBA教程目录和VBA工具目录)，目前已经全部完成。

如果你处于VBA的起步阶段，你可以选择7.1.3.9教程。第七个教程是开始，第一个教程是开始后的改进，第三个教程字典是VBA的精华，第九个教程是实用的典型案例讲解。如果你有一定的VBA基础，你可以根据自己的需要来选择课程。教程提供的程序源代码文件就像一个庞大的代码库，支撑着大家的工作。同时，还有给学生的实用材料。

VBA是一种面向对象的编程语言，博大精深。许多朋友问英语和VBA的关系。这套VBA现成代码手册(中英文版)收集了很多案例，我用中英文两种语言发布，学生从中可以更好地了解和掌握VBA使用的一些英语。今天的内容:VBA代码手册:从Excel文件创建Word表格

第六章 Word对象及示例

Word对象和宏示例

16 从Excel文件创建Word表Create Word Table From Excel File

Sub mynzMakeTablefromExcelFile()

Dim oExcelApp，oExcelWorkbook，oExcelWorksheet，oExcelRange

Dim nNumOfRows一样长

Dim nNumOfCols As Long

Dim strFile作为字符串

昏暗的餐桌& # 39；单词表

Dim oRow As Row & # 39字行

Dim oCell As Cell & # 39word表格单元格

尺寸x一样长，y一样长

strFile = ThisDocument。路径& & # 34；\ BookSample.xlsx & # 34'更改到实际路径

set oExcelApp = CreateObject(& # 34；Excel。应用& # 34；)

oExcelApp。可见=真

设置oExcelWorkbook = oExcelApp。workbooks . Open(strFile)& # 39；打开工作簿并将其分配给变量

set oExcelWorksheet = oExcelWorkbook。工作表(1)& # 39；将第一个工作表分配给变量

设置oExcelRange = oExcelWorksheet。范围(& # 34；a1:C8 & # 34；)

nNumOfRows = oExcelRange。行数。计数

nNumOfCols = oExcelRange。列数

ActiveDocumentRange.InsertParagraphAfter

Set oTable = ActiveDocument。tables . Add(Range:= active document。Paragraphs.Last.Range，NumRows:=nNumOfRows，NumColumns:=nNumOfCols，_

DefaultTableBehavior:= wd word 9 tablebehavior，AutoFitBehavior:= _

wdAutoFitFixed)& # 39；创建表并将其分配给变量

对于x = 1到nNumOfRows

对于y = 1到nNumOfCols

oTable。Cell(x，y).Range.Text = oExcelRange。单元格(x，y)。价值

下一年

下一个x

oExcelWorkbook。关闭假

oExcelApp。放弃

用oTable。行(1)。范围

. Shading.Texture = wdTextureNone

. shading . foreground pattern color = wdcolor automatic

. shading . background pattern color = wdcolorrough

以…结尾

末端接头

本节内容参考程序文件：Chapter06.docm

【分享成果，快乐正能量】我20多年的VBA实战经验全部浓缩在以下教程中:

【分享成果，用正能量快乐】人生有许多不如意，世间万事如意，一颗赤子之心淡泊处之。心若澄明，万物不沾；心不苦，一切都无所谓。。