vba操作excel 常用的对象及方法 VBA代码手册从Excel文件创建Word表

【分享成果，随喜正能量】禅由静中悟，德由谦中生，福来自于清俭，摒除妄念和祸患，生命才会更和顺。。

我给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

Sub 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实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】人生多有不如意，世间事尽人意，一颗清净心淡看风云。心若明镜，万物侵而不染；心若不苦，百绪千头自淡然。。