㈠ 如何实现从一个Excel表格中输入数据自动生成另外几个Excel文档
你把这几个文件都打开，在Excel2里，比如点中A1，输入=，然后同时按Ctrl和Tab键可以在不同的Excel里切换，切换到Excel1时，鼠标点A1，回车。这时Excel的A1单元格就引用了Excel1的A1单元格，存盘。实现你的功能了。如是而已。
㈡ 如何利用Excel表格中的数据批量生成文档
万能的vba可以实现。下面这段代码所实现的功能就是从EXCEL读取数据后批量生成word文档的。Dim gjzArr(1 To 100, 1 To 2) '1-关键字 2-值Dim gjzGs As IntegerDim gjzZD 'key-关键字 item-序号Sub scbG(x As Integer) On Error GoTo err Dim lastHH As Integer Dim I As Integer, J As Integer Dim MB As String Dim TName As String Dim hzMc As String Dim wordApp Dim myDoc Dim Str1 As String, Str2 As String Application.ScreenUpdating = False gjzGs = 0 Set gjzZD = CreateObject("SCRIPTING.DICTIONARY") '读取B列的值 Call dqsJ(2) '读取D列的值 Call dqsJ(4) '读取F列的值 Call dqsJ(6) MB = Trim(Range("P2").Text) hzMc = Split(MB, ".")(1) TName = ThisWorkbook.Path & "\报告\" & gjzArr(gjzZD("B7"), 2) & "." & hzMc FileCopy MB, TName Set wordApp = CreateObject("word.application") wordApp.Visible = True Set myDoc = wordApp.DOCUMENTS.Open(TName) myDoc.Unprotect Password:="123456" myDoc.Activate With wordApp.ActiveWindow.View .ShowRevisionsAndComments = False .RevisionsView = wdRevisionsViewFinal End With Dim Bj As Boolean With wordApp '关键字替换 For J = 1 To gjzGs ' Str1 = "&" & gjzArr(J, 1) & Space(1) Str2 = gjzArr(J, 2) Bj = True Do While Bj .Selection.HomeKey Unit:=wdStory '光标置于文件首 If .Selection.Find.Execute(Str1) Then '查找到指定字符串 .Selection.Text = Str2 '替换字符串 Else Bj = False End If Loop Next J End With '写入表格内容 Dim myTable '表一填写 Set myTable = myDoc.Tables(1) myTable.Range.Cells(2).Range.Text = gjzArr(gjzZD("B24"), 2) '房屋权证号 myTable.Range.Cells(4).Range.Text = gjzArr(gjzZD("B20"), 2) '房屋所有权人 myTable.Range.Cells(6).Range.Text = gjzArr(gjzZD("B26"), 2) '产别 myTable.Range.Cells(8).Range.Text = gjzArr(gjzZD("B21"), 2) & gjzArr(gjzZD("B22"), 2) & gjzArr(gjzZD("B23"), 2) '房屋坐落 myTable.Range.Cells(18).Range.Text = gjzArr(gjzZD("B27"), 2) '幢号 myTable.Range.Cells(19).Range.Text = gjzArr(gjzZD("B28"), 2) '房号 myTable.Range.Cells(21).Range.Text = gjzArr(gjzZD("B29"), 2) '总层数 myTable.Range.Cells(22).Range.Text = gjzArr(gjzZD("B30"), 2) '所在层数 myTable.Range.Cells(23).Range.Text = gjzArr(gjzZD("B31"), 2) '建筑面积 myTable.Range.Cells(27).Range.Text = gjzArr(gjzZD("B25"), 2) '房屋共有人 If myDoc.Revisions.Count >= 1 Then myDoc.Revisions.AcceptAll myDoc.Protect Password:="123456", NoReset:=False, Type:=wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False myDoc.Save myDoc.Close wordApp.Quit Application.ScreenUpdating = True MsgBox ("报告已经完成") Exit Suberr: MsgBox ("同名文件已经打开，请关闭后重新运行！")End SubSub dqsJ(Lh As Integer) Dim lastHH As Integer If Lh <= 1 Then MsgBox ("不可选择小于等于1的列") Exit Sub End If lastHH = Cells(1000, Lh – 1).End(xlUp).Row For I = 1 To lastHH If Trim(Cells(I, Lh – 1).Text) <> "" Then gjzGs = gjzGs + 1 myT1 = Replace(Cells(I, Lh).Address, "$", "") myT2 = Cells(I, Lh).Text gjzZD.Add myT1, gjzGs gjzArr(gjzGs, 1) = myT1 gjzArr(gjzGs, 2) = myT2 End If Next IEnd Sub
㈢ excel先输入数据后怎么自动生成表格
文件 页面设置 工作表 勾选 网格线 或 选择单元格区域 CTRL+1 边框 进行相应的设置 确定
㈣ 如何将excel中新录入一行“每个数据”自动填写到word中指定位置并生成新的word文档
咨询记录 · 回答于2021-11-11
㈤ 如何根据excel表格中的数据自动创建文件夹
在文字前增加1列，内容为md（不含空格）然后将这两列内容复制到记事本文本中，然后选择文件==》另存为将文件保存为a.bat然后将这个文件复制到需要的目录，然后运行即可。
㈥ 怎么把Excel中每一栏的文字自动批量生成word文档
使用word的邮件合并功能，可以做到，步骤如下：
将excel文档保存
㈦ 如何在一个设定的Excel表格内输入内容，在另一个表格对应项自动生成对应数据
需要用VBA编一个小程序。录入界面需要增加一个确认按钮。录入完一个信息，按确认，程序自动在汇总表中插入新的一行。程序不难，简单实现的话用不了几行代码。如果再加入输入值合法性判断，就会稍复杂点。如果这个工作是一次性的，我觉得直接在汇总表里录入更简单。
㈧ 如何根据excel表格中的数据自动创建文件夹
这个要用代码奥，函数没这个功能
㈨ 如何将excel每次输入的数据，生成新的一份WORD文件（word文件是以表格形式反映）
1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）；
2、键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”；
3、粘贴下面的代码：
Option Explicit
Sub SplitPagesAsDocuments()
Dim oSrcDoc As Document, oNewDoc As Document
Dim strSrcName As String, strNewName As String
Dim oRange As Range
Dim nIndex As Integer
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set oSrcDoc = ActiveDocument
Set oRange = oSrcDoc.Content
oRange.Collapse wdCollapseStart
oRange.Select
For nIndex = 1 ToActiveDocument.Content.Information(wdNumberOfPagesInDocument)
oSrcDoc.Bookmarks("page").Range.Copy
oSrcDoc.Windows(1).Activate
Application.Browser.Target = wdBrowsePage
Application.Browser.Next
strSrcName = oSrcDoc.FullName
strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
fso.GetBaseName(strSrcName) & "_" & nIndex &"." & fso.GetExtensionName(strSrcName))
Set oNewDoc = Documents.Add
Selection.Paste
oNewDoc.SaveAs strNewName
oNewDoc.Close False
Next
Set oNewDoc = Nothing
Set oRange = Nothing
Set oSrcDoc = Nothing
Set fso = Nothing
MsgBox "结束！"
End Sub
4、键入F5运行，看到“完成！”结束。
㈩ excel中如何将单元格数据按条件自动生成
Excel是我们经常使用的办公软件，那么在excel中，如何将单元格数据按条件自动生成呢？这也就是说，在excel中有许多数据，但我妈们想要把满足一定的条件的单元格数据进行自动生成，该怎么办呢？我们一齐起来看一下吧。
那么excel有哪些好处呢？Excel作为当今比较流行的办公软件之一，可谓来说是非常强大的，并且每一个职场人都应该必备的一个技能。因为excelt在功能上比较全面，它几乎可以处理各种各样的数据，并且对数据进行各种各样的处理。还有就是excel拥有丰富的数据处理函数以及丰富的绘制图表功能，丰富的数据处理函数可以完成更多的操作，而丰富的绘制图表功能可以更多的满足客户的需要。另外就是这个软件比较基础，学起来比较简单，几乎对于每个人来说，没有什么门槛。
这是小编关于excel的解释。
未经允许不得转载：山九号 » excel填数据后自动生成文件|如何根据excel表格中的数据自动创建文件夹
