通过VBA将EXCEL的数据传给WORD

3-你每次只需打开Excel文件，执行代码给个思路，读取你用Excel写入的那个文本文件，调用Word中的替换功能，如果要代码，写入文本文件，再打开Word文档，读取文本文件就行，把Word里的abcdefg替换成为abcdefg+文本文件里的内容就行了，请再联系.1-在Excel中用VBA把表格中的内容一行一行的写入一个文本文件中2-在Word中用VBA写入代码...

如何Word中用VBA打开Excel表格,读取其中的内容写入到Word

可用CreateObject函数创建对EXCEL的引用，然后就可打开EXCEL工作簿，将表格中的数据复制到WORD中，参考代码如下：Set xlapp = CreateObject(＂excel.application＂)With xlapp.Open（＂带路径的EXCEL文件名＂）.Sheets(1).Range(＂A1:H8＂).Copy'粘贴到WORD指定位置End Withxlapp.Quit

在Excel中,通过VBA往word表格里写数据时,如何根据内容增加或者...

可以通过word的table对象对word表格进行操作。

下面的代码在Excel的Vba中运行，运行前先添加Microsoft Word XX.0 Object Library的引用，其中XX.0根据你安装的Office 版本不同而不同，一般来试Office Word 2003 是11.0,Office Word 2013 是15.0 。

Sub toWord()Dim wordApp As New Word.ApplicationwordApp.Visible = TrueDim wordDoc As Word.DocumentDim wordTable As Word.TableSet wordDoc = wordApp.Documents.Add '新建一个文档Set wordTable = wordDoc.Tables.Add(wordDoc.Range(), 1, 1, wdWord9TableBehavior, wdAutoFitWindow） '文档中插入一个表格Dim r As Long, c As LongFor r = 1 To ActiveSheet.UsedRange.Rows.CountIf r > wordTable.Rows.Count ThenwordTable.Rows.Add '表格插入行End IfFor c = 1 To ActiveSheet.UsedRange.Columns.CountIf c > wordTable.Columns.Count ThenwordTable.Columns.Add '表格插入列wordTable.Columns.AutoFitEnd IfwordTable.Cell(r, c).Range.Text = Cells(r, c) Next cNext rwordTable.AutoFitBehavior wdAutoFitWindowEnd Sub

怎么在excel 里用vba新建word文档并写入文字,表格,图片

Dim Worddocument As Word.ApplicationSet Worddocument = CreateObject(＂word.application＂)With Worddocument.Documents.Add '打开一份文档.Visible = True '汇话状态打开end with以上打开一个新的word文档

vba如何把word表格内容填到excel里

如果说填写，这个比较复杂，而且很难实现，因为word的VBA都是跟跟键盘操作，和界面操作有关的。

所以，如果可能，可以考虑用VBA来复制表格，然后粘贴到EXCEL中，对于比较简单的表格，内容是可以完全匹配的。

首先，你要知道如何用键盘来选择整个表格，然后复制，把这些操作录制下来，然后复制代码。

。

如果你是要从EXCEL 的VBA 入手，那么你需要在VBA引用中添加WORD Libary 11.0 如果是从WORD的VBA入手，那么就要添加EXCEL LIBARY 11.0 (OFFICE 2007 是 12.0)然后就是需要知道EXCEL中粘贴的代码，如果我记得不错的话，是：cells(1,1).paste这个，你也可以通过录制来得到。

如果你需要知道具体的操作方案，你当然也应该吧分数提高。

。

。

VBA Word中怎么用VBA选取表格中的表格

展开全部使用VBA操作Word表格一、生成表格Private Sub CreateTable(mRows As Integer, mColumns) Dim mRange As RangeSet mRange = ActiveDocument.RangemRange.SetRange Start:=ActiveDocument.Range.End, End:=ActiveDocument.Range.EndSet 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 = wdLineStyleSingleBorders(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 = 0For i = 0 To SelfGenTable.Columns.Count - 1 If j > 2 Then j = 0 End IfSelfGenTable.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 IntegerDim tmpStr(0 To 1) As String '临时字符串 If Len(mStr) > mLen ThenDo While Len(mStr) > mLen tmpStr(0) = Left(mStr, mLen)mStr = Right(mStr, Len(mStr) - mLen)tmpStr(1) = tmpStr(1) + tmpStr(0) + vbCrLf LooptmpStr(1) = tmpStr(1) + mStr ElsetmpStr(1) = mStr

如何用VBA将excel中的数据转化成word文档

步骤一、先进入Excel表格，然后选中需要导入到Word文档中的区域，按下 Ctrl+C 复制；步骤二、打开Word，然后选择菜单栏的“编辑”中的“选择性粘贴”，在“形式”下面选中“Microsoft Office Excel 工作表 对象”然后确定；此时，就已经把编辑好的Excel表格导入到Word中了，有的人这时肯定会说，这还不是和Word中表格没什么却别啊！确实，就这样用肉眼看，根本就看不错这个表格和Word中做的表格有什么不一样之处；区别肯定是有的，不信你双击表格看看，会是什么效果，没错把，导入的表格和Excel中的表格一模一样，当然，这个表格也可以自由拖动它的长和宽，还可以运用Excel中的公式呢！

转载请注明出处51数据库 » excel vba将数据写入word表格