EXCEL表格,根据里面的数值如何自动生成图表
第一步:点击菜单栏插入-柱形图(根据用户自己需求,可以选择各种图形)。
如图:第二步选择数据区域。
如图:第三步:对系统生成的图标进行位置等调整后得到如图所示的结果。
当然,如果用vba做的话,只要一个按钮或者执行宏就可以了。
如果经常要做类似的图标,可以自己来编写宏代码。
...
excel用vba自动生成word
Sub GenDocfromExcel()'excel控制word,生成新文件,插入图片和文件名,保存'office 2003, VBA工具/引用中要勾选Microsoft Word 11.0 Object Library'office 2007, VBA工具/引用中要勾选Microsoft Word 12.0 Object Library'...Range("A1:B13").Copy '复制当前内容Dim WordApp As Word.Application '定义变量Set WordApp = CreateObject("Word.Application") '生成WORD对象WordApp.Documents.Add '新建文件WordApp.Selection.Paste '粘贴fn$ = "D:\" & Range("b1") '生成文件名WordApp.ActiveDocument.SaveAs fn$ '保存文件WordApp.Quit '退出Set WordApp = Nothing '取消变量End Sub...
怎么vba实现word表格批量转为excel
注:vba偶并不太熟(偶一般是用c#和delphi的),VBA只是稍有了解,以下代码大部分是偶google到的内容拼出来的。
。
。
。
。
如下,使用时先更改test下的docpath和xlspath路径设定,docpath即你的word的目录,此目录包括子目录下的所有doc将被读取,xlspath即输出目录,需要存在 在VBA窗口中,先在视图下显示立即窗口以观察进度,程序最后的输出类似这样 正在读取[1]:->D:\1\Resume.doc 正在生成:->d:\2\Resume 正在读取[2]:->D:\1\简历(简).doc 正在生成:->d:\2\简历(简) 正在读取[3]:->D:\1\计数器说明.doc 正在生成:->d:\2\计数器说明 共耗时0分41秒 Option Explicit Dim docpath As String, xlspath As String'ResultFlag=0 获取路径'ResultFlag=1 获取文件名'ResultFlag=2 获取扩展名 Public Function SplitPath(FullPath As String, ResultFlag As Integer) As String Dim SplitPos As Integer, DotPos As Integer SplitPos = InStrRev(FullPath, "\") DotPos = InStrRev(FullPath, ".") Select Case ResultFlag Case 0 SplitPath = Left(FullPath, SplitPos - 1) Case 1 If DotPos = 0 Then DotPos = Len(FullPath) + 1 SplitPath = Mid(FullPath, SplitPos + 1, DotPos - SplitPos - 1) Case 2 If DotPos = 0 Then DotPos = Len(FullPath) SplitPath = Mid(FullPath, DotPos + 1) Case Else Err.Raise vbObjectError + 1, "SplitPath Function", "Invalid Parameter!" End Select End Function Public Function FileFolderExists(ByVal strFullPath As String) As Boolean On Error GoTo EarlyExit If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True EarlyExit: On Error GoTo 0 End Function Sub Test() '使用双字典,旨在提高速度 Dim MyName, Dic, Did, I, T, F, TT, MyFileName, Doc, Ke Dim count As Integer count = 0 T = Time docpath = "D:\1\" xlspath = "d:\2\" Set Dic = CreateObject("Scripting.Dictionary") '创建一个字典对象 Set Did = CreateObject("Scripting.Dictionary") Dic.Add (docpath), "" I = 0 Do While I Ke = Dic.keys '开始遍历字典 MyName = Dir(Ke(I), vbDirectory) '查找目录 Do While MyName "" If MyName "." And MyName ".." Then If (GetAttr(Ke(I) & MyName) And vbDirectory) = vbDirectory Then '如果是次级目录 Dic.Add (Ke(I) & MyName & "\"), "" '就往字典中添加这个次级目录名作为一个条目 End If End If MyName = Dir '继续遍历寻找 Loop I = I + 1 Loop 'Did.Add ("文件清单"), "" '以查找D盘下所有EXCEL文件为例 For Each Ke In Dic.keys MyFileName = Dir(Ke & "*.doc") Do While MyFileName "" Doc = Ke & MyFileName Did.Add (Doc), "" count = count + 1 Debug.Print "正在读取[" & count & "]:->" & Doc doc2xls (Doc) MyFileName = Dir Loop Next ' For Each Sh In ThisWorkbook.Worksheets ' If Sh.Name = "XLS文件清单" Then ' Sheets("XLS文件清单").Cells.Delete ' F = True ' Exit For ' Else ' F = False ' End If ' Next 'If Not F Then ' Sheets.Add.Name = "XLS文件清单" 'End If 'Sheets("XLS文件清单").[A1].Resize(Did.Count, 1) = WorksheetFunction.Transpose(Did.keys) TT = Time - T Debug.Print "共耗时" & Minute(TT) & "分" & Second(TT) & "秒" End Sub Sub doc2xls(filename As String) Dim xlApp As Object, xlSheet As Object, outfile As String, c As Object Set xlApp = CreateObject("Excel.Application") Set xlSheet = xlApp.Workbooks.Add.Sheets(1) Dim Wapp As Object, Doc As Object, GetDocText As Object 'Word Application 对象、Document 对象 Set Wapp = CreateObject("Word.Application") '创建Word Application 对象 Set Doc = Wapp.Documents.Open(filename, ReadOnly:=True) '打开文档,返回一个文档对象'xlSheet.Range("A1") = Doc.Content.Text Doc.Application.Selection.WholeStory ''''全选 Doc.Application.Selection.Copy ''''''''''复制 xlSheet.Range("A1").Select xlSheet.Paste outfile = xlspath + Replace(SplitPath(filename, 1), ".doc", ".xls") Debug.Print "正在生成:->" & outfile xlSheet.Parent.SaveAs outfile xlApp.Quit Set xlSheet = Nothing Set xlApp = Nothing Wapp.Quit Set Doc = Nothing Set Wapp = Nothing End Sub
Excel 产生图表的数据源发生变化后,图表会怎样?
点击“生成word”按钮,是不是跳出word了先关掉刚才生成的word;Word ,输入下列代码。
按F8,运行程序,进入代码编辑区。
在引用对话框中找到MicroSoft ,当然我这里是MicroSoft Word 14。
在窗口中添加一个按钮,将文字改为“生成word”。
双击生成“生成word”按钮.0 Object Library,都无所谓;11.0 Object Library然后勾选,点击打开按钮。
进入工程》》引用菜单 如下的方法请参考: 首先打开VB软件,在新建工程对话框中选择“标准exe”,然后再输入以下代码 ...
EXCEL根据表格生成图表的问题
我们已经习惯了使用Word来编辑文档,使用Excel来处理数据生成数据图表。
虽然在较早版本的Word中同样具有生成数据图表的功能,但是多少显得有些单薄。
Word2007在数据图表方面作了很大改进,只要您不是需要复杂的数据分析,Word2007完全可以帮您在数据图表的装饰和美观方面进行专业级的处理。
笔者对Word2007图表处理功能简单试用之后发现其提供的强大的样式库真的可以与想象完美融合,制作出美轮美奂、变化万千的精美图表。
下面以一个简单的实例来说明Word2007图表的制作过程,权当是抛砖引玉,希望广大读者举一反三,使用好这个功能。
Word2007图表制作的顺序是:选择图表类型—整理原始数据—图表设计—图表布局—图表格式。
所有的内容Word均独立完成,不需要另外借助Excel。
1.选择图表类型首先需要根据数据的特点选择适当的图表。
点击“插入—图表”,弹出“创建图表”窗口。
由于选择的例子是一个压力随温度变化的组数据,为了反映出变化趋势,需要选择数据类型中的XY散点图,由于是等间隔截取的数据,所以我们采用平滑的曲线段来将它们串联。
2.整理原始数据确定图表类型后,屏幕会发生一系列变化,请耐心等待。
屏幕右侧会出现根据您选择的图表类型而内置的示例数据。
广大用户在以往的操作过程中往往会遇到生成图表与理想类型不符的问题,原因大多是在数据格式方面有了差错。
所以示例数据的目的就是引导您按照格式进行数据录入。
在您改动数据的时候,左侧的图表会实时显示数据信息,这是Word2007的一大特点,很是直观。
这时,上方的工具区也转换为图表相关,接下来我们将重点使用它们来修饰图表草表和数据。
实例共有两项数据:“温度”和“压力”。
利用工具栏上“编辑数据源”可以调出数据编辑窗口,在这里对图表数据区域、数据切换和添加、删除等细节进行操作。
直到左侧图表窗口出现我们期望的图形草图。
3.图表设计图表设计主要是“快速布局”和“快速样式”,操作方式很简单。
保持图表的选中状态,在缩略图显示的功能键上单击即可。
快速样式主要是根据图表类型而进行的美化设计。
在折线类型中就提供了多达60种内置样式,一定有一款适合您。
经过这两项处理,图表的样子就大体有眉目了,还需要在细节上再下下功夫,下面进入图表布局的设置。
...
转载请注明出处51数据库 » word vba 生成图表