推广 热搜: 韩版  还可  格式  氢气  制作工艺  避暑山庄  收购ACF  求购ACF  回收ACF  液压阀 

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

   日期:2023-04-14     浏览:24    评论:0    
核心提示:【分享成果,随喜正能量】禅由静中悟,德由谦中生,福来自于清俭,摒除妄念和祸患,生命才会更和顺。。 我给VBA的定义:VBA是个人小型自动化处理的有效工具。利用好了,可以大大提高自己的劳动效率,而且可

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

我给VBA的定义:VBA是个人小型自动化处理的有效工具。利用好了,可以大大提高自己的劳动效率,而且可以提高数据的准确度。我推出的VBA系列教程共十套(本文的最后附有VBA教程目录和VBA工具目录),现在已经全部完成。

如果您VBA是入门阶段,可以选择7.1.3.9教程,第7套教程是入门,第1套教程是入门后的提高,第3套教程字典是必备的VBA之精华,第9套教程是实用的典型案例讲解。如果您有了一定的VBA基础可以根据自己的需要,进行教程的选择。教程提供的程序源码文件就如一座大型的代码库支持着大家的工作。同时还有实用的资料送给学员。

VBA是面向对象编程的语言,博大精深。很多朋友咨询英语和VBA的关系,这套《VBA即用型代码手册(汉英)》集合了众多的案例,案例我用汉语和英语同时发布,学员从中可以更好的领会和掌握VBA中用到的一些英语。今日的内容:VBA代码手册:从Excel文件创建Word表

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

第六章 Word对象及示例

Word Objects and Macro Examples

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

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

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

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

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

【分享成果,随喜正能量】我20多年的VBA实践经验,全部浓缩在下面的各个教程中:

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

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

,
原文链接:http://www.8178.org/news/show-35221.html,转载和复制请保留此链接。
以上就是关于vba操作excel 常用的对象及方法 VBA代码手册从Excel文件创建Word表全部的内容,关注我们,带您了解更多相关内容。
 
标签: 教程 文件 代码
打赏
0相关评论

推荐资讯
网站首页  |  VIP套餐介绍  |  关于我们  |  联系方式  |  手机版  |  版权隐私  |  SITEMAPS  |  网站地图  |  排名推广  |  广告服务  |  积分换礼  |  网站留言  |  RSS订阅  |  违规举报