【分享成果，随喜正能量】禅由静中悟，德由谦中生，福来自于清俭，摒除妄念和祸患，生命才会更和顺。。
我给VBA的定义：VBA是个人小型自动化处理的有效工具。利用好了，可以大大提高自己的劳动效率，而且可以提高数据的准确度。我推出的VBA系列教程共十套(本文的最后附有VBA教程目录和VBA工具目录)，现在已经全部完成。
如果您VBA是入门阶段，可以选择7.1.3.9教程，第7套教程是入门，第1套教程是入门后的提高，第3套教程字典是必备的VBA之精华，第9套教程是实用的典型案例讲解。如果您有了一定的VBA基础可以根据自己的需要，进行教程的选择。教程提供的程序源码文件就如一座大型的代码库支持着大家的工作。同时还有实用的资料送给学员。
VBA是面向对象编程的语言，博大精深。很多朋友咨询英语和VBA的关系，这套《VBA即用型代码手册（汉英）》集合了众多的案例，案例我用汉语和英语同时发布，学员从中可以更好的领会和掌握VBA中用到的一些英语。今日的内容：VBA代码手册:从Excel文件创建Word表
Word Objects and Macro Examples
16 从Excel文件创建Word表Create Word Table From Excel FileSub mynzMakeTablefromExcelFile()
Dim oExcelApp, oExcelWorkbook, oExcelWorksheet, oExcelRange
Dim nNumOfRows As Long
Dim nNumOfCols As Long
Dim strFile As String
Dim oTable As Table 'word table
Dim oRow As Row 'word row
Dim oCell As Cell 'word table cell
Dim x As Long, y As Long
strFile = ThisDocument.Path & "\BookSample.xlsx" 'change to actual path
Set oExcelApp = CreateObject("Excel.Application")
oExcelApp.Visible = True
Set oExcelWorkbook = oExcelApp.Workbooks.Open(strFile) 'open workbook and asign it to variable
Set oExcelWorksheet = oExcelWorkbook.Worksheets(1) 'asign first worksheet to variable
Set oExcelRange = oExcelWorksheet.Range("A1:C8")
nNumOfRows = oExcelRange.Rows.Count
nNumOfCols = oExcelRange.Columns.Count
ActiveDocument.Range.InsertParagraphAfter
Set oTable = ActiveDocument.Tables.Add(Range:=ActiveDocument.Paragraphs.Last.Range, NumRows:=nNumOfRows, NumColumns:=nNumOfCols, _
DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed) 'create table and asign it to variable
For x = 1 To nNumOfRows
For y = 1 To nNumOfCols
oTable.Cell(x, y).Range.Text = oExcelRange.Cells(x, y).Value
Next y
Next x
oExcelWorkbook.Close False
oExcelApp.Quit
With oTable.Rows(1).Range
.Shading.Texture = wdTextureNone
.Shading.ForegroundPatternColor = wdColorAutomatic
.Shading.BackgroundPatternColor = wdColorYellow
End With
End Sub
- 本节内容参考程序文件：Chapter06.docm
【分享成果，随喜正能量】我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
【分享成果，随喜正能量】人生多有不如意，世间事尽人意，一颗清净心淡看风云。心若明镜，万物侵而不染；心若不苦，百绪千头自淡然。。
,
