如何利用vba程序在word中调用excel单元格中的数据
展开全部 '代码已经测试过,请注意保持良好习惯,及时采纳,谢谢。
Sub PasteToWordDoc()'' 需要引用MIcrosoft Word 12.0 Object Library(注:12.0是版本号,可以不同)'Application.ScreenUpdating = False '关闭屏幕刷新'Selection.CopyDim wdApp As Word.Application, wdDoc As Word.DocumentDim strDocPath As String '全路径文件名Dim blnNoWd As Boolean, blnNoWdd As BooleanOn Error Resume NextstrDocPath = "C:\Users\wine\Desktop\可ihikhoi年.docm" '如果与Excel工作薄同路径,采用这面的语句也可'strDocPath = ThisWorkbook.Path & "\可ihikhoi年.docm"'调用word程序对象Set wdApp = GetObject(, "Word.Application") '实例化word对象变量If wdApp Is Nothing Then '判断word程序是否正在运行Set wdApp = CreateObject("Word.Application")wdApp.Visible = FalseblnNoWd = TrueEnd If'调用word 文档对象Set wdDoc = wdApp.Documents(strDocPath)If wdDoc Is Nothing ThenSet wdDoc = wdApp.Documents.Open(Filename:=strDocPath, Visible:=flase)blnNoWdd = TrueElsewdDoc.ActivateEnd IfwdApp.Selection.PasteExcelTable False, False, FalsewdDoc.Save'恢复环境If blnNoWdd Then wdDoc.Close: Set wdDoc = NothingIf blnNoWd Then wdApp.Quit: Set wdApp = NothingApplication.ScreenUpdating = TrueOn Error GoTo 0End Sub
利用VBA在word中调用excel的数据 编译错误:方法和数据成员未找到
这是在EXCEL环境中直接引用EXCEL的语句。
在WORD中不能这样引用。
代码如下:Private Sub CommandButton1_Click()Dim xls As New Excel.ApplicationDim wk As New Excel.WorkbookDim sh As New Excel.WorksheetSet wk = xls.Workbooks.Open("d:\111.xls")Set sh = wk.Sheets("Sheet1")temp = sh.Range("A10")Set sh = Nothingwk.CloseSet wk = Nothingxls.QuitSet xls = NothingMsgBox tempEnd Sub
如何用VB调用WORD文档,请高手进,谢谢~!~
知道,不过不能直接读取,因为微软没有公布加密方式,所以要调用WORD来读取,然后获取它先在工程的引用里面加上Microsoft Word 11.0 Object LibraryDim 剪切板文本Dim Word文字处理系统界面 As Word.Application '建立一个word.application对象Dim Word文档 As Word.DocumentDim Word文档文本 As Word.Selection '在word文字处理系统中添加一个文档Set Word文字处理系统界面 = CreateObject("Word.Application") '选择对象Word文字处理系统界面.Visible = False '不显示word.application,即word文字处理系统界面Set Word文档 = Word文字处理系统界面.Documents.Open(文件路径)Set Word文档文本 = Word文字处理系统界面.SelectionWord文档文本.WholeStoryWord文档文本.Copy剪切板文本 = Clipboard.GetText(vbCFText) '放到text1中Text1.Text = 剪切板文本'Clipboard.SetData TempWord文档.Close '关闭文档Word文字处理系统界面.Application.QuitSet Word文字处理系统界面 = Nothing '清空变量Set Word文档文本 = Nothing'完成操作我通过剪切板来获取文本,因为这样可以保留格式(本人独创)如果直接获取也是可以的,不过格式全部丢失,所以我的方法会更好一点
怎样在Word中用VBA操作表格
展开全部 使用VBA操作Word表格 一、生成表格 Private Sub CreateTable(mRows As Integer, mColumns) Dim mRange As Range Set mRange = ActiveDocument.Range mRange.SetRange Start:=ActiveDocument.Range.End, End:=ActiveDocument.Range.End Set SelfGenTable = ActiveDocument.Tables.Add(Range:=mRange, NumRows:=mRows, NumColumns:=mColumns) End Sub 上面过程的作用是在活动文档的末尾插入一个mRows行,mColumns列的表格。
二、在读写表格中的单元格 写入单元格使用如下代码: TableObject.Cell(Row:=curRow, Column:=curColumn).Range.InsertAfter "文本" 上面代码的做用时在curRow行,curColumn列处插入字符“文本”。
其中TableObject为表格对象,如果使用了生成表格中的例子,那么可以用SelfGenTable来替代TableObject。
三、调整单元格对齐方式 水平对齐设置 Selection.ParagraphFormat.Alignment=水平对齐常数(具体的常数可以查看帮助文件的说明) 如何选择单元格? 选定特定单元格 TableObject.Cell(Row:=1,Column:=1).Select'选定单元格1,1 选定行 TableObject.Rows(i).Select'选定第i行 选定列 TableObject.Columns(i).Select'选定第i列 选定整个表格 TableObject.Select 首先执行表格元素选择程序,然后再使用Selection.ParagraphFormat.Alignment设置对齐方式。
垂直对齐方式 Selection.Cells.VerticalAlignment=垂直对齐常数 也是首先选择表格元素,可以使单个单元格,单个行、单个列或者整个表格。
似乎也可以同时选择多个单元格、多个行、多个列,有兴趣的朋友可以自行寻找答案。
四、设置表格边线类型 下面的代码对整个表格的所有边线设置成细实线: SelfGenTable.Select With Selection .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle .Borders(wdBorderRight).LineStyle = wdLineStyleSingle .Borders(wdBorderTop).LineStyle = wdLineStyleSingle .Borders(wdBorderHorizontal).LineStyle = wdLineStyleSingle Borders(wdBorderVertical).LineStyle = wdLineStyleSingle End With 同样是对Selection进行设置,所以可以依照上面的方法对特定的单元格、行或者列的边线样式进行分别设置,这里就不再列举了。
五、调整表格尺寸 下面的代码对一个六列的表格设置宽度,宽度采用百分比宽度,从左至右的宽度百分比依次为:30,10,10,30,10,10: Dim WidthP(0 To 2) As Integer Dim j As Integer dim i as Integer WidthP(0) = 30 WidthP(1) = 10 WidthP(2) = 10 j = 0 For i = 0 To SelfGenTable.Columns.Count - 1 If j > 2 Then j = 0 End If SelfGenTable.Columns(i + 1).PreferredWidthType = wdPreferredWidthPercent SelfGenTable.Columns(i + 1).PreferredWidth = WidthP(j) j = j + 1 Next 上面的代码通过Columns的PreferredWidthType属性设置表格列宽的形式,这里选择的是百分比列宽,可以根据自己的实际情况选择其他列宽形式,然后再设置相应的数值。
表格的行高请读者以此类推(实际上我还没设置过行高,都用自动生成的就够了) =============================================== 编写操作表格的程序时需要注意,Word表格的行列起始值为1,而不是0。
=============================================== 下面是一个拆分字符串的代码,当插入表格的文本过长时,可以设定一个长度,超过这个长度就进行回车,这样保证在设定的单元格宽度内能够写下长文本。
单元格的高度会自动调整以使文本能完整的显示,这也就是我为什么没有通过代码设置单元格高度的原因。
Private Function FoldText(mLen As Integer, mStr As String) As String '折叠文字函数,mLen为折叠前的文字长度,mStr为文字的内容 Dim i As Integer Dim tmpStr(0 To 1) As String '临时字符串 If Len(mStr) > mLen Then Do While Len(mStr) > mLen tmpStr(0) = Left(mStr, mLen) mStr = Right(mStr, Len(mStr) - mLen) tmpStr(1) = tmpStr(1) + tmpStr(0) + vbCrLf Loop tmpStr(1) = tmpStr(1) + mStr Else tmpStr(1) = mStr
Excel中运用wordVBA代码
不知道我说的沾不沾边。
你查的那个资料还需要设置一个引用,我把word里的内容输出到excel没用引用,就不行。
要设置对 Microsoft Excel 对象库的引用,请执行下列步骤: 在 Access 中,按 ALT+F11 切换到 Visual Basic 编辑器。
在工具菜单上,单击引用。
在引用框中,单击 Microsoft Excel 9.0 Object Library 复选框,然后单击确定。
设置引用后,可以使用“对象浏览器”查看所有 Microsoft Excel 的对象、属性和方法,包括通过 Application 对象可用的函数。
如何用VBA宏程序将excel中的内容批量复制到word文档中去
什么是宏?什么是安全风险?宏的用途是使常用任务自动化。
虽然有些宏仅仅是记录键击或鼠标单击操作,但开发人员可以使用代码编写功能更强大的 VBA (Visual Basic for Applications (VBA):Microsoft Visual Basic 的宏语言版本,用于编写基于 Microsoft Windows 的应用程序,内置于多个 Microsoft 程序中。
) 宏,这些宏可以在计算机上运行多条命令。
因此,VBA 宏会引起潜在的安全风险。
黑客可以通过某个文档引入恶意宏,一旦打开该文档,这个恶意宏就会运行,并且可能在计算机上传播病毒 (病毒:一种计算机程序或宏,通过在计算机文件中插入自身的副本而“感染”这些文件。
感染文件被装入内存后,病毒还要感染其他文件。
病毒通常带有有害的副作用。
)。
转载请注明出处51数据库 » vba excel调用word程序