精华内容
下载资源
问答
  • Word VBA读取Excel表格中的数据

    千次阅读 2020-10-30 09:14:13
    Word VBA读取Excel表格中的数据 前天有一个项目需要写详细设计报告,其中有一块重要内容是把Excel中的每一行数据做成一个Word中的表格。一共将近100行数据,如果我一行一行地手动去做,估计手就废了,于是采用Word...

    Word VBA中读取Excel表格中的数据

    前天有一个项目需要写详细设计报告,其中有一块重要内容是把Excel中的每一行数据做成一个Word中的表格。一共将近100行数据,如果我一行一行地手动去做,估计手就废了,于是采用Word VBA。

    基本编程思路

    1. 创建一个空word文档
    2. word文档中,编辑好一个示例表格,作为一个母表,后续所有的表格程序都是复制这张表,然后修改复制后的新表格的数据
    3. 打开Excel,遍历每一行数据
    4. 取这一行关键数据,复制母表,改变复制后的表格数据

    代码片段

    Dim wb As Document
    Set doc = Application.ActiveDocument
    
    Set xlapp = CreateObject("excel.application")
    Set wkBook = xlapp.Workbooks.Open("C:\Users\shenh\Desktop\VBA处理Excel表格\几何拓扑检查项.xlsx")
      For rowNum = 1 To 63
        CheckName = wkBook.Worksheets(1).Cells(rowNum, 3)
        meaning = wkBook.Worksheets(1).Cells(rowNum, 4)
        CheckName = CheckName & "项"
        
        paraCount = doc.Paragraphs.Count
        doc.Paragraphs(paraCount).Range.Text = CheckName & vbCrLf            '写标题
        
        paraCount = doc.Paragraphs.Count
        doc.Paragraphs(paraCount).Range.Text = CheckName & "详细定义见表" & rowNum + 75 & "所示" & vbCrLf         '写标题
        
        paraCount = doc.Paragraphs.Count
        doc.Paragraphs(paraCount).Range.Text = "表 " & rowNum + 75 & " " & CheckName & "定义表" & vbCrLf
    
        
        doc.Tables(1).Range.Copy
        Set endRange = ActiveDocument.Content
        endRange.Collapse Direction:=wdCollapseEnd
        endRange.Paste
        
        doc.Tables(rowNum + 1).Cell(1, 3).Range.Text = CheckName
        doc.Tables(rowNum + 1).Cell(1, 3).Range.Text = meaning
      Next
    MsgBox wkBook.Sheets(1).Cells(1, 5)
    wkBook.Close
    xlapp.Quit
    
    展开全文
  • VBA读取excel文件

    千次阅读 2020-09-23 21:18:43
    Sub 筛选并合并至新表格() Dim wb As Workbook Dim tongji As Workbook Dim shaixuan As Worksheet Set wb = Workbooks.Open("E:\福州项目\参数核查\输入输出表格\输入报表\基础参数\CheckResult_200_NR参数核查...
    Option Explicit
    
    Sub 筛选并合并至新表格()
        Dim wb As Workbook
        Dim tongji As Workbook
        Dim shaixuan As Worksheet
        Set wb = Workbooks.Open("E:\福州项目\参数核查\输入输出表格\输入报表\基础参数\CheckResult_200_NR参数核查导入模板_V3运营商基线_泉州网管_20200922151142.csv")
        Set tongji = Workbooks.Open("E:\福州项目\参数核查\输入输出表格\输出报表\SA参数核查统计-0922.xlsx")
        
        Set shaixuan = wb.Worksheets(1)
        MsgBox (shaixuan.Cells(2, 2))
        '如果满足条件,则
        'If shaixuan.Cells(2,5)=tongji.Cells(5,3) and (shaixuan.Cells(2,6)<-108 OR shaixuan.Cells(2,6)>-100)
        'Then 对应的地市+1
        End If
        
        
    End Sub
    
    展开全文
  • 将TXT文档的数据按照一定的格式写入Excel,并跟据日期或者特定条件可以查询数据,并自动绘制曲线图!不含任何空间,纯代代码,方便移植。
  • VBA读取其他Excel内容

    千次阅读 2020-11-07 22:48:36
    VBA读取其他Excel内容AccessDataBaseEngine安装Excel内容读取 采用Microsoft于2020/8/11新出的AccessDataBaseEngine(Microsoft Access 2016 数据库引擎可再发行程序包)在VBA中读取Excel内容。 AccessDataBase...

    VBA读取其他Excel内容


    采用Microsoft于2020/8/11新出的 AccessDataBaseEngineMicrosoft Access 2016 数据库引擎可再发行程序包)在VBA中读取Excel内容。

    AccessDataBaseEngine安装

    如何选择安装32位或64位AccessDataBaseEngine?打开Excel,点击文件 > 账户 > 关于Excel 查看。下载AccessDataBaseEngine并安装。AccessDataBaseEngine资源、及详细安装信息参见Microsoft官网

    Excel内容读取

    • 打开Excel保存格式选择为xlsmAlt + F11打开VBA,新建模块(Module)。
    • 点击工具 > 插入 > 引用找到Microsoft ActiveX Data Objects 6.1,目的使代码编写时有题词功能,当然CreateObject方法也可以使用。
    Public Sub ExcelReader
        Dim cnn As New ADODB.Connection
        Dim rst As ADODB.Recordset
        Dim path As String
        Dim row As Integer
        
        '被读取的Excel文件路径
        path = Environ("userprofile") & "\Desktop\InputExcel.xlsx"
        cnn.Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" & path
        
        '可在"$"后添加具体读取范围
        '例如"SELECT * FROM [Sheet1$A1:Y180]"
        Set rst = cnn.Execute("SELECT * FROM [Sheet1$]")
        
        '显示列名(读取范围的第一行)
        row = 1
        For i = 1 To rst.Fields.Count    
        	Cells(row, i) = rst(i - 1).Name
        
        Next
        
        '显示所有数据
        While Not rst.EOF
         	row = row + 1
         	
           	For i = 1 To rst.Fields.Count	    
       		Cells(row, i) = rst(i - 1)
        
       	 Next
        
        	rst.MoveNext
        Wend
        
        rst.Close
        cnn.Close
    End Sub
    

    最后回到刚保存的xlsm文件调用VBA,点击开发工具 > > 选择ExcelReader > 执行(没有开发工具选项可在文件 > 选项 > 自定义功能区 > 勾选开发工具 > 确定)。或者插入按钮绑定事件,点击即可。

    展开全文
  • 本文给大家汇总介绍了几种使用VBA处理EXCEL并生成JSON文件的方法和思路,非常的实用,有需要的小伙伴可以参考下。
  • excel VBA获取EXCEL中的行数和列数.
  • 读取Excel表格数据写入Word

    热门讨论 2010-10-01 15:58:34
    java实现读取Excel数据,根据一定格式写入Word,包含源代码,所需jar包及打包后的可执行jar文件,解压后将ExcelTrans直接导入MyEclipse即可,项目上可能会出现一个小叉,但是可以正常运行。
  • 通过一个按钮读取其它excel表格的内容的方法: 创建一个按钮 在excel表单插入按钮,进入design mode后双击按钮进入宏程序编辑 ``` Private Sub CommandButton3_Click() '调用读取外部表单的子程序 read_...

    Excel VBA 读取其它excel单元格内容详细案例

    通过一个按钮读取其它excel表格的内容的方法:

    • 创建一个按钮

      在excel表单插入按钮,进入design mode后双击按钮进入宏程序编辑

       ```
       Private Sub CommandButton3_Click()
           '调用读取外部表单的子程序
           read_from_ext_excel
           
       End Sub
    
    • 创建读取的子程序
      子程序需要完成的任务:
      -在本表的单元格内读取另一个excel表格路径
      -打开路径表格
      -读取表格内的A1,B1内容
      -关闭表格
      -在本表格将读取到的内容写入到M1,N1单元格。

    具体代码如下:

    Sub read_from_ext_excel()
    
        'define Excell applications定义excel应用
        Dim xlApp As Excel.Application
        Dim xlBook As Excel.Workbook
        Dim path As String
        
        'excel文件的路径从当前excel的G1单元格读取
        path = Range("G1").Value
        'path = "E:\I4.0\Access\SettlementList.xlsx"
        
        'get value from SettlementList创建读取应用并打开路径文档
        Set xlApp = New Excel.Application
        Set xlBook = xlApp.Workbooks.Open(path)
        
        'get sheet content创建表单应用并指定表单编号
        Dim sheet As Excel.Worksheet
        Set sheet = xlBook.Worksheets(1)
          
        'read A1 content读取表单A1的值和B1的值
        Dim tmp As String
        tmp = sheet.Range("A1")
        tmp1 = sheet.Range("B1")
        'close workbook读取完毕关闭工作表
        xlBook.Close
        
        'set M1 = value 将读取到的值填充到当前工作表的M1和N1
        Range("M1").Value = tmp
        Range("N1").Value = tmp1
    
    End Sub
    
    
    展开全文
  • VBA操作网页读取数据自动填入EXCEL表中
  • 本资源实现了用VBA(宏)代价遍历文件夹中的csv文件,修改代码也可遍历其他格式的excel文件,并实现了将遍历的结果整合到一个新的excel文件中。
  • 关于vba读取excel文件

    千次阅读 2016-02-26 17:19:34
    关于vba读取文件夹中的xlxs文件,如下代码就可以实现 //下面这段代码只适合文件夹中只有文件而没有其他文件夹的情况 Sub OpenCloseArray() '把文件夹中的文件看成一个数组,遍历数组即可  Dim MyFile As ...
  • 今天小编就为大家分享一篇Python读取Excel表格,并同时画折线图和柱状图的方法,具有很好的参考价值,希望对大家有所帮助。一起跟随小编过来看看吧
  • 这个文件是接着上一个,深化了一些,可以从excel中读出数据,写到word的格式化好的表格中。可以帮助大家好好的利用代码操作word,生成的word文档保存在d盘根目录下 文章介绍: ...
  • ## # 用ExcelVBA能够从Excel读取数据,也能够实现数据写入到单元格中,但是怎么实现在一个Function中实现先读取数据,再写到表的其他单元格呢?**__ Public Function test1() As String Dim strArray() As ...
  • 通过VBA 实现Excel 调用倍福PLC 变量显示并生成曲线图
  • Excel VBA读取 ACCESS 数据 连接

    万次阅读 2018-09-26 17:34:25
    Excel VBA读取 ACCESS 数据 连接 Sub access_test() Dim CONN As Object Dim RST As Object Dim SQL As String Sheets(&quot;Sheet1&quot;).Cells.Clear Set CONN = CreateObject(&quot;adodb....
  • 有个excel订单表 想在想读取 其中几个单元格里的数据 然后新增为一张表的几率 请教用access VBA 应该怎么做
  • False ''WORD打开不要显示出来 Set mDoc = mWord.Documents.Open(iFileName) ''一定要加上完整的路径 If mDoc.tables.Count 至少需要有一个表 MsgBox "文档中没有表格!", vbCritical GoTo err1 End If n = 1 On ...
  • 3 VBA读取word到excel

    千次阅读 2018-12-10 14:27:15
     set doc=w.documents.open("E:\公司\数据分析\聊天记录\聊天记录\" & i & ".docx")    将该文档的文字内容写入到EXCEL工作表dii行      cells(i,1)-doc.range.text  关闭该文档    doc.close    next i ...
  • 近日一直在研究Excel VBA,昨天看到了《处理外部数据和文件》这一章节,本来照猫画虎的抄代码可以一键过,没想到遇到了诸多问题,经过几个小时的搜索汇总,最终形成了以下几点经验(本机安装win7 office2016)。...
  • 这篇我们谈谈如何使用VBA打开另一个excel文件,并读取数据。那在此之前,我们测试一下,从当前excel文件读取数据的简单VBA代码。现在有一个九九乘法表的数据,如下图。 如果我们有两个乘数,需要从九九乘法表里面...
  • VBA读取电子称数据

    2014-08-14 17:44:47
    EXCEL进行电子称的读数,简单可靠,无需复杂的数据库技术支持!
  • 在word通过VBA打开excel数据文件 可以将excel的内容作为word doc文件读取的代码
  • 读取Excel 数据并写入到Word示例

    千次阅读 2019-10-14 19:44:05
    一个读取Excel 数据并写入到Word 的项目
  • EXCEL VBA 读取文本文件宏EXCEL VBA 读取文本文件宏EXCEL VBA 读取文本文件宏
  • VBA读取本地html.xlsm

    2020-08-12 17:49:32
    VBA通过Document属性去读取,HTML内容,是读取某个文件夹下面的所有的html文件,并根据条件获取对应的文本,或者标签数据,如果本地的 ieframe.dll是正常的,建议使用这个,否则不建议使用,如果抓取的是网页的数据...
  • 我们首先在Excel文件所在目录创建一个文件a...接着我们进行文件的读取,并且写入到Excel中,代码如下: Sub bb() Dim a, k%, i% Open "a.txt" For Input As #1 a = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCr
  • Excel工作表中的数据,可以直接处理,不过如果想快的话最好读入到数组处理。前面说过读入数组可以循环读取,也可以直接给数组赋值读取。虽然这个方式速度快,但只适合读取连续的列,对于分开的列,这种方法不可行,...
  • VBA技巧】不打开Excel读取数据

    千次阅读 2020-03-26 09:57:07
    换用VBA则可以快速打开后马上复制好,能节省不少时间和精力。 Workbooks.Open可以很方便地打开文件,但是当需要操作的文件过多的时候,状态栏堆满了打开的文件也不好看。下面介绍两种不用打开文件就能提取数据的...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 3,643
精华内容 1,457
关键字:

vba读取excel数据