精华内容
下载资源
问答
  • 将TXT文档的数据按照一定的格式写入Excel,并跟据日期或者特定条件可以查询数据,并自动绘制曲线图!不含任何空间,纯代代码,方便移植。
  • 本文给大家汇总介绍了几种使用VBA处理EXCEL并生成JSON文件的方法和思路,非常的实用,有需要的小伙伴可以参考下。
  • VBA读取excel文件

    2020-09-23 21:18:43
    Option Explicit Sub 筛选并合并至新表格() Dim wb As Workbook Dim tongji As Workbook Dim shaixuan As Worksheet Set wb = Workbooks.Open("E:\福州项目\参数核查\输入输出表格\输入报表\基础参数\...
    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
    
    展开全文
  • 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-11-07 22:48:36
    采用Microsoft于2020/8/11新出的AccessDataBaseEngine(Microsoft Access 2016 数据库引擎可再发行程序包)在VBA读取Excel内容。 AccessDataBaseEngine安装 如何选择安装32位或64位AccessDataBaseEngine?打开...

    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数据到word

    2014-09-14 01:37:55
    主要用来用于WORD文档的数据动态变化,可以自动更新数据
  • excel VBA获取EXCEL中的行数和列数.
  • 近日一直在研究Excel VBA,昨天看到了《处理外部数据和文件》这一章节,本来照猫画虎的抄代码可以一键过,没想到遇到了诸多问题,经过几个小时的搜索汇总,最终形成了以下几点经验(本机安装win7 office2016)。...

    近日一直在研究Excel VBA,昨天看到了《处理外部数据和文件》这一章节,本来照猫画虎的抄代码可以一键过,没想到遇到了诸多问题,经过几个小时的搜索汇总,最终形成了以下几点经验(本机安装win7 office2016)。
    1.早期绑定。通过“工具-引用”勾选Microsoft ActiveX Data Object 2.8 Library和Microsoft ActiveX Data Object Recordset 2.8 Library。
    2.连接字符串。Provider=Microsoft.ACE.OLEDB.12.0,Extended Properties=Excel 12.0
    3.ODBC。系统DSN-添加-Microsoft Excel Driver(.xls,xlsx,.xlsm,.xlsb),其中版本选12.0
    个人认为安装好数据库,驱动程序,使用的时候匹配好版本就可以了。

    展开全文
  • 本资源实现了用VBA(宏)代价遍历文件夹中的csv文件,修改代码也可遍历其他格式的excel文件,并实现了将遍历的结果整合到一个新的excel文件中。
  • VBA操作网页读取数据自动填入EXCEL表中
  • 通过VBA 实现Excel 调用倍福PLC 变量显示并生成曲线图
  • Excel VBA 读取其它excel单元格内容详细案例 通过一个按钮读取其它excel表格的内容的方法: 创建一个按钮 在excel表单插入按钮,进入design mode后双击按钮进入宏程序编辑 ``` Private Sub CommandButton3_...
  • VBA复制Excel数据速度过慢解决方法 在使用VBA语句实现对Excel文件自动化处理过程中,当所操作的数据量很大时,会发现程序执行起来很慢,而且Excel文件中行数越多,速度越慢,这时除了改进程序,编写得更加高效方法外...
  • 这个文件是接着上一个,深化了一些,可以从excel中读出数据,写到word的格式化好的表格中。可以帮助大家好好的利用代码操作word,生成的word文档保存在d盘根目录下 文章介绍: ...
  • 在word通过VBA打开excel数据文件 可以将excel的内容作为word doc文件读取的代码
  • 这篇我们谈谈如何使用VBA打开另一个excel文件,并读取数据。那在此之前,我们测试一下,从当前excel文件读取数据的简单VBA代码。现在有一个九九乘法表的数据,如下图。 如果我们有两个乘数,需要从九九乘法表里面...
  • 有个excel订单表 想在想读取 其中几个单元格里的数据 然后新增为一张表的几率 请教用access VBA 应该怎么做
  • 通过VBAexcel数据导入至word文档

    万次阅读 2016-05-11 16:20:21
    通过VBAexcel数据导入至word文档
  • 一个在Excel中使用VBA将所有sheet中的数据和sheet信息汇总到总表中的例子,使用VBA编写,在第一个sheet中的宏check,使用时需要打开excel的宏安全,执行时会在合计页填充所有其他sheet的sheet名称,链接,编号,合计...
  • 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....
  • ## # 用ExcelVBA能够从Excel读取数据,也能够实现数据写入到单元格中,但是怎么实现在一个Function中实现先读取数据,再写到表的其他单元格呢?**__ Public Function test1() As String Dim strArray() As ...
  • 8 excel vba 往多行写入数据

    千次阅读 2018-02-06 15:31:47
    由前面可知,我们要往一个单元格里写入数据,首先就要获得这个单元格的引用. 这样程序才知道在哪里写入数据.  比如我们要往单元格 A1 写入数据, 可以用 range("A1") ,来表示单元格A1 . 那么如果我们要表示多个...
  • Excel VBA CVR-100U/C 身份证记录程序 源代码为汽车站旅游线路记录个人记录使用 功能: 窗口界面:提供身份证信息显示,操作员信息,统计信息,全功能手动、自动、批量记录 记录功能:在表中自动按月记录数据 说明:...
  • 关于vba读取excel文件

    千次阅读 2016-02-26 17:19:34
    关于vba读取文件夹中的xlxs文件,如下代码就可以实现 //下面这段代码只适合文件夹中只有文件而没有其他文件夹的情况 Sub OpenCloseArray() '把文件夹中的文件看成一个数组,遍历数组即可  Dim MyFile As ...
  • VBA读写Excel文件报错Debug一、VBA简介二、VBA读写Excel文件参考文档 一、VBA简介 VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。...
  • 安捷伦6000系列excel实用VBA控制示波器读取数据,保存波形。
  • excel简单vba读写TXT的交互

    万次阅读 2018-07-05 11:04:33
    1.读取excel写TXT(VBA)Sub 导出Erwin参数文件() ' ' 导出Erwin参数文件 宏 ' 'Filename = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt") Filename = "logical_...
  • EXCEL VBA 读取文本文件宏EXCEL VBA 读取文本文件宏EXCEL VBA 读取文本文件宏
  • 文章目录1、背景首次签合同人员.xlsx模板:简易劳动合同.docx2、python代码问题3、word vba1) 根据模板批量生成文件2) 批量打印文件4、总结:5、PS: 1、背景 行政部的同事每次都要根据excel里面的信息,制作word版的...

空空如也

空空如也

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

vba读写excel数据