Option Explicit Dim sql, tj As String, rnum As Double, r As Integer Private Sub CommandButton1_Click() '刷新库存 On Error Resume Next Dim rowcount As Doub
原创
2022-06-17 05:21:42
831阅读
'excel文件和工作簿
'excel文件就是excel工作簿，excel文件打开需要excel程的支持
'Workbooks 工作簿集合，泛指excel文件或工作簿
'1. 令文件A的第1个sheet中单元格A1等于100
Sub t1()
Workbooks("A.xls").Sheets(1).Range("a1") = 100 'Workbooks
转载
2024-09-09 10:02:50
113阅读
参考答案与解析(1)D【解析】组合框或列表框可以从一个表或查询中取得数据，或从一个值列表中取得数据，在输入时，我们从列出的选项值中选择需要的项，从而保证同一个数据信息在数据库中存储的是同一个值。所以选项D是正确的。(2)D【解析】在控件属性对话框中“事件”选项卡中列出的事件表示已经添加成功的事件，所以该题中选项D为正确答案。(3)A【解析】控件的焦点事件发生顺序为：Enter—GotFoCus_+
转载
2024-05-05 08:15:01
100阅读
关于VBA编辑word自动生成报告这适合于图比较多，表比较多，并且报告格式单一，但每天需要大量出word报告的情况-工具使用 -难点 -功能块参考文件工具如图片所示,虽然版本可以不同，但库的类别相差不大 难点输入划分一般word文档中的输入是 图和表，如果将输入按照对象类型来划分不同的文件夹，通过划分文件类型，降低了对象处理难度.由此需要1个函数来读取文件路径并存储。输入处理图和表都是需要插入
转载
2024-05-04 15:32:52
325阅读
# 如何用VBA做数据分析报表
## 整体流程
首先，我们来看一下整个实现“VBA做数据分析报表”的流程。下面是这个过程的步骤表格：
| 步骤 | 描述 |
| ----- | ----------- |
| 1 | 打开Excel，按下Alt + F11打开VBA编辑器 |
| 2 | 在VBA编辑器中插入一个新模块 |
| 3 | 编写VBA代码进行数据分析处理 |
| 4 | 运行VB
原创
2024-07-11 04:55:03
101阅读
报表就是用表格、图表等格式来动态显示数据，可以用公式表示为：“报表 ＝ 多样的格式 ＋ 动态的数据”。 分组报表，是所有报表当中最普通，最常见的报表类型，也是所有报表工具都支持的一种报表格式。从一般概念上来讲，分组报表就是只有纵向的分组。传统的分组报表制作方式是把报表划分为条带状，用户根据一个数据绑定向导指定分组，汇总字段，生成标准的分组报表。 分组报表的类型 分组报表的类型有：
适用范围：
Microsoft Office Excel 2003
摘要：寻找能够为 Excel 工作表增加额外功能的宏。只需稍加练习，您就可以扩展这些程序，使其适合您自己的应用程序。
本页内容
引言 引言
导出带有逗号和引号分隔符的文本文件 导出带有逗号和引号分隔符的文本文件
计算包含公式、
5.5 其他报表打印方案除了以上介绍的Excel报表打印方案、XML技术报表打印方案和Crystal Report水晶报表打印方案，在ASP程序中还可以应用其他技术来实现报表打印的功能。本节将介绍Word报表打印、自定义ActiveX组件打印Access报表、图形报表打印以及套打报表。5.5.1 Word报表打印Microsoft Word是微软公司推出的Microsoft
VB 是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。但由于VB与EXCEL由于分别属于不同的应用系统，如何把它们有机地结合在一起，是一个值得我们研究的课题。 一、 VB读写EXCEL表：能获取到表的行数的代码：xlSheet2.UsedRa
转载
2024-03-17 00:25:46
280阅读
1、使用POIA）下载地址http://poi.apache.org/download.htmlB）使用方式 1、准备一个简单的excel文档（静态的数据都先填写上去），放入到项目src路径下中 2、在action中读取excel文档，并创建一
转载
2024-02-27 15:52:26
96阅读
# 使用 MySQL 和 JSON 写报表
## 介绍
报表是一种用于展示数据的有效方式，可以帮助我们更好地理解和分析数据。MySQL 是一个流行的关系型数据库管理系统，而 JSON 是一种轻量级的数据交换格式。本文将介绍如何使用 MySQL 和 JSON 来编写报表，并提供代码示例。
## 报表设计
在编写报表之前，我们首先需要设计报表的结构。一个基本的报表通常包含一个表格，其中每一行代
原创
2023-09-09 12:35:46
71阅读
Sub Macro1()
Debug.Print "999"
Dim FilePath, strData
FilePath = "C:\Git\Test\JenProjects.json"
Open FilePath For Input As #1
Do While Not EOF(1)
Line Input #1, strData
Loop
Close #1
Debug
转载
2023-06-11 10:46:05
467阅读
一. 这种方式比较复杂,因为office版本的原因,所以要加其它函数1 Private Function parseScript(strJson As String)
2
3 Dim objJson As Object
4 'With CreateObject("msscriptcontrol.scriptcontrol") '在64位office里可能无法创建此对象,所以使用x
转载
2023-06-27 15:25:52
185阅读
1、jquery扩展方法（表单数据格式化为json对象）<script type="text/javascript">
// 将表单数据序列化为一个json对象，例如 {"name":"zs", "age":10}
// 使用：var jsonObj = $("#formId").serializeObject();
$.fn.serializeObject = function()
转载
2023-06-12 22:36:49
67阅读
在我们之前介绍种种VBA的使用，其实主要就是一个
数据处理过程，类比我们的工作很多时候人承担的也是一个信息处理的角色用户直接看到的Excel工作表整体可以分为四个部分
操作界面，就是使用者可以点击的一系列按钮
数据处理过渡表格(可选，可以直接在内存中处理)，就是一些计算借助了Excel工作表(类似于数组，看起来更直接)
数据库，计算完的数据保存到这些工作表之中，输出时会用到其
转载
2024-04-14 10:04:41
60阅读
这几天在word里面写宏，想解析服务器传过来的json串。但是Set oSC = CreateObjectx86("MSScriptControl.ScriptControl")这个方法一直创建不了对象。最后再网上看到说，word分为32位的和64位的这个方法只有在32位的word里面才可以使用，在64位的里面是实现不了的（不能创建对象）于是在网上找各种的方案解决。最后找到一个方法，自己重写这个方
转载
2023-06-11 10:46:20
605阅读
JSON：JavaScript 对象表示法（JavaScript Object Notation）和xml相似，都是文本形式（保存在文本文件中或字符串等形式），比如：jsstr = {"系别":"历史系","班级":"一班",
"学员":[
{"姓名":"张三","年龄":25,"性别":"男"},
转载
2023-06-01 15:51:14
218阅读
距离之前的三篇日志已经很久啦，今天终于完成了一个比较完整的自动化报表搭建过程基于公司数据保密原则，样板就不放到网上来了，简单说一下背景：这次access实现的功能包括：1）为部门整体搭建了一个员工基本资料数据库，里面包括从各个系统里获得的员工信息，如Zhang San,一个系统里叫San Zhang，一个系统叫sazhang，一个系统叫sun Zhang。这些信息汇总后，存在部门共享盘里，包括此次
转载
2024-08-26 14:45:50
86阅读
关键字：vba,json 9.4 vba解析json9.5 32/64位通用方法-直接获取key_valueSub 获取json_sub() Dim str As String
' str = "{""usrName"":""lili""}"
str = "{""code"":""0"",""data1"":{""expire"":7200000,""refre
转载
2023-07-01 19:11:06
586阅读
VBA 的 Format 函数与工作表函数 TEXT 用法基本相同，但功能更加强大，许多格式只能用于VBA 的 Format 函数，而不能用于工作表函数 TEXT ，以下是本人归纳的几点用法，希望对学习VBA有所裨益。Format(值,格式（可选参数))一、数字格式：1、General Number：普通数字，可以用来去掉千位分隔号和无效 0 。如：Format("1,234,567.80", "
转载
2024-03-22 10:55:46
246阅读
