• 广州市第十五届人大常委会会议网络直播 2019-04-20
  • “西瓜足迹”瞎掰与“晒的虚荣” 2019-04-20
  • 习近平两会“典”亮新时代 2019-04-07
  • 中国足球,就是笑博士的“责权利平滑对接”改革的必然结果! 2019-04-03
  • 重庆高校陆续公布招生计划、专业设置情况和新政策 2019-04-03
  • 新时代 新气象 新作为 2019-03-30
  • 《中国地方志佛道教文献汇纂》——开辟佛道教研究新领域 2019-03-29
  • 拉萨市墨竹工卡县全力打造“绿色矿山” 2019-03-29
  • 习近平要求把这项工作作为重大政治任务 2019-03-24
  • 充分发挥重要平台和有效载体作用 以特色小镇建设促进乡村振兴 2019-03-18
  • 脸每天都洗,但你真的洗对了吗? 2019-03-18
  • 港珠澳大桥珠海口岸停车场智慧停车系统启用在即 2019-03-14
  • 以实际行动诠释忠诚 以实干实政维护核心 2019-03-14
  • 天津市津南区严打校园周边“五毛食品” 2019-03-11
  • 设计众议院:新时代消费观念造就的全新第八代凯美瑞 2019-03-11
  • 批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
    [批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
    返回列表 发帖

    广东十一选五预测推算:[问题求助] 求助vbs中从Excel中获取数据,批量替换word中的文字

    求助各位大佬,本人需要将Excel的数据替换到word中,找到以下代码,结果打开vbs后出现脚本行错误字符代码源,请教各位大佬如何修改才能解决这个问题。代码如下
     广东十一选五计划软件 www.qe-ar.com 
    1. Const wdReplaceAll = 2
    2. Dim arrSheet()
    3. Dim nUsedRows, nUsedCols
    4. Dim wordPath, exelPath
    5. '将下面这一行代码的双引号中的内容替换成你的word文档地址
    6. wordPath = ("C:\Users\Administrator\Desktop\1.doc")
    7. '将下面这一行代码的双引号中的内容替换成你的excel文档地址
    8. exelPath = ("C:\Users\Administrator\Desktop\1.xls")
    9. Set objWord = CreateObject("Word.Application")
    10. objWord.Visible = True
    11. Set objDoc = objWord.Documents.Open(wordPath)
    12. Set objSelection = objWord.Selection
    13. objSelection.Find.Forward = TRUE
    14. objSelection.Find.MatchWholeWord = TRUE
    15. ReadExcelFile(exelPath)
    16. for i=0 to nUsedRows-1
    17.    objSelection.Find.Text = arrSheet(i,0)
    18.    objSelection.Find.Replacement.Text = arrSheet(i,1)
    19.    objSelection.Find.Execute ,,,,,,,,,,wdReplaceAll
    20. next
    21. Function ReadExcelFile(ByVal strFile)
    22.   ' Local variable declarations
    23.   Dim objExcel, objSheet, objCells
    24.   Dim nTop, nLeft, nRow, nCol
    25.   ' Default return value
    26.   ReadExcelFile = Null
    27.   ' Create the Excel object
    28.   On Error Resume Next
    29.   Set objExcel = CreateObject("Excel.Application")
    30.   If (Err.Number <> 0) Then
    31.     Exit Function
    32.   End If
    33.   ' Don't display any alert messages
    34.   objExcel.DisplayAlerts = 0  
    35.   ' Open the document as read-only
    36.   On Error Resume Next
    37.   Call objExcel.Workbooks.Open(strFile, False, True)
    38.   If (Err.Number <> 0) Then
    39.     Exit Function
    40.   End If
    41.   ' If you wanted to read all sheets, you could call
    42.   ' objExcel.Worksheets.Count to get the number of sheets
    43.   ' and the loop through each one. But in this example, we
    44.   ' will just read the first sheet.
    45.   Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)
    46.   ' Get the number of used rows
    47.   nUsedRows = objSheet.UsedRange.Rows.Count
    48.   ' Get the number of used columns
    49.   nUsedCols = objSheet.UsedRange.Columns.Count
    50.   ' Get the topmost row that has data
    51.   nTop = objSheet.UsedRange.Row
    52.   ' Get leftmost column that has data
    53.   nLeft = objSheet.UsedRange.Column
    54.   ' Get the used cells
    55.   Set objCells = objSheet.Cells
    56.   ' Dimension the sheet array
    57.   ReDim arrSheet(nUsedRows - 1, nUsedCols - 1)
    58.   ' Loop through each row
    59.   For nRow = 0 To (nUsedRows - 1)
    60.     ' Loop through each column
    61.     For nCol = 0 To (nUsedCols - 1)
    62.   ' Add the cell value to the sheet array
    63.   Dim varValue
    64. varValue = objCells(nRow + nTop, nCol + nLeft).Value
    65. If IsNumeric(varValue) Then
    66.     arrSheet(nRow, nCol) = FormatNumber(varValue, 2, vbTrue, vbUseDefault, vbUseDefault)
    67. Else
    68.     arrSheet(nRow, nCol) = CStr(varValue)
    69. End If
    70.     Next
    71.   Next
    72.   ' Close the workbook without saving
    73.   Call objExcel.ActiveWorkbook.Close(False)
    74.   ' Quit Excel
    75.   objExcel.Application.Quit
    76.   ' Return the sheet data to the caller
    77.   ReadExcelFile = arrSheet
    78. End Function
    复制代码
    附件: 您需要登录才可以下载或查看附件。没有帐号?注册
    阿瑟东

    返回列表
  • 广州市第十五届人大常委会会议网络直播 2019-04-20
  • “西瓜足迹”瞎掰与“晒的虚荣” 2019-04-20
  • 习近平两会“典”亮新时代 2019-04-07
  • 中国足球,就是笑博士的“责权利平滑对接”改革的必然结果! 2019-04-03
  • 重庆高校陆续公布招生计划、专业设置情况和新政策 2019-04-03
  • 新时代 新气象 新作为 2019-03-30
  • 《中国地方志佛道教文献汇纂》——开辟佛道教研究新领域 2019-03-29
  • 拉萨市墨竹工卡县全力打造“绿色矿山” 2019-03-29
  • 习近平要求把这项工作作为重大政治任务 2019-03-24
  • 充分发挥重要平台和有效载体作用 以特色小镇建设促进乡村振兴 2019-03-18
  • 脸每天都洗,但你真的洗对了吗? 2019-03-18
  • 港珠澳大桥珠海口岸停车场智慧停车系统启用在即 2019-03-14
  • 以实际行动诠释忠诚 以实干实政维护核心 2019-03-14
  • 天津市津南区严打校园周边“五毛食品” 2019-03-11
  • 设计众议院:新时代消费观念造就的全新第八代凯美瑞 2019-03-11