Sub 产品图片导出重新对应命名()
Dim Ad$, FileName$, sfolder$, Shp As Shape, FSO
Application.ScreenUpdating = False
On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")
转载
2023-06-27 21:59:20
206阅读
VBA 生成文件方法：使用 ADODB.Stream 生成文件，通过控制文件的后缀，应该是什么文件都可以生成。Dim WriteStream2 As Object '定义一个对象
Set WriteStream2 = CreateObject("ADODB.Stream") '创建一个 ADODB.Stream 对象
With WriteStream2
.Type = 2
转载
2024-05-19 08:30:50
175阅读
Hello，大家好，今天有一个粉丝留言问到excel中如何设置自动排序。想要达到自动排序的效果最完美的方法就是使用vba来设置，但是vba对于大多数人来说既看不懂，也学不会，今天就跟大家分享2种简单的方法，都能实现自动排序的效果 一、使用power query如下图我们想要根据总分来为数据进行排序，首先我们点击数据的任何一个区域，然后在数据功能组找到自表格，勾选数据包含标题，点击确定，
转载
2024-04-18 10:12:06
211阅读
关于VBA编辑word自动生成报告这适合于图比较多，表比较多，并且报告格式单一，但每天需要大量出word报告的情况-工具使用 -难点 -功能块参考文件工具如图片所示,虽然版本可以不同，但库的类别相差不大 难点输入划分一般word文档中的输入是 图和表，如果将输入按照对象类型来划分不同的文件夹，通过划分文件类型，降低了对象处理难度.由此需要1个函数来读取文件路径并存储。输入处理图和表都是需要插入
转载
2024-05-04 15:32:52
325阅读
目录1. 前言2. 创建&编辑文档3. 读取文档1. 前言Apache POI是Apache开源的用以Java操作Microsoft Office套件档案进行读写的API库。版本
HSSF：支持Excel 97～2003版本的.xls文档操作，不过局限性较大，单个sheet最多65536行256列。XSSF：支持Excel 2007版本往后.xlsx文档，单个sheet最多1048576行
转载
2024-07-11 21:17:53
55阅读
'
'Date: 2012/05/04
'Author: xi wei cheng
'
'Option Explicit
Public Sub SqlInsert()
Dim flg As Boolean
flg = Worksheets("SQL-Tool&
原创
2012-05-10 09:24:33
3114阅读
视频地址：https://www.bilibili.com/video/BV1Q5411p71p 在Excel种需要打开【开发工具】和【启用所有宏】两点打开开发工具选项宏启用 菜单栏才会有开发工具选项点击VisualBasic，编写第一个VBA程序右键新建一个模块以编写程序 第一个VBA程序代码Sub 第一个VBA程序()
Dim 姓名 As St
转载
2023-06-27 22:00:08
180阅读
分享成果，随喜真能量。大家好，今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码，第NO.118-NO.120则，内容是：在复制单元格区域时，如何仅复制单元格区域的数值、使用直接赋值的方法选择性粘贴数值、在单元格区操作时，如何对字体格式进行设置等内容。 VBA过程代码118：在复制单元格区域时，如何仅复制单元格区域的数值Sub mynz() Sheets("6"
转载
2024-03-18 20:30:17
128阅读
Option Compare Database
Private Sub Combo4_AfterUpdate()
Dim index As String
Dim county As String
index = Me.Combo4
county = Me.Combo8
itemtype = Me.Combo10
If (coun
转载
2024-05-18 19:12:09
362阅读
一. 这种方式比较复杂,因为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阅读
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阅读
生成JSON：var
json: ISuperObject;
i: Integer;
jsonList, jsonRow: ISuperObject;
begin
json := SO();
jsonList := SO('[]');
try
try
for I := 0 to EventList.Count - 1 do
begin
转载
2023-07-03 15:03:13
126阅读
JSON数据的生成与解析。首先先到网上下载一个json jar包，我用的是org.json演示样例代码：package json;
import org.json.JSONArray;
import org.json.JSONObject;
public class Main {
/**
* 生成Json数据
*/
public static String createJson()
转载
2023-07-03 15:30:29
110阅读
官方生成方法：1）需要什么就给什么，要属性就给属性，要对象就给对象，要集合就给集合
2）添加都是使用put（）方法要求：1.生成如下JSON数据：
{“age”:4,”name”:”zhagnsan”}2.生成如下JSON数据：
[{“age”:4,”name”:”zhangsan”},{“age”:5,”name”:”lis”},{“age”:6,”name”:”wangw”}]3.生成如
转载
2023-07-03 14:33:21
93阅读
在本系列文章的第一篇中，您将了解如何使用 Smarty 模板为 Ajax 请求生成 JSON、XML 和 HTML 响应。这些技术允许您在开发 PHP 代码时关注于应用逻辑，而这些应用逻辑是与 Ajax 客户端和服务器之间通信所使用的数据格式分离的。 您还将了解如何创建两个版本的表单，其中一个提供输入域让用户输入数据，另一个使用隐藏域并以不可编辑形式显示数据。通过单击一个按钮，用户能够切换两个版本
转载
2023-12-11 22:56:33
45阅读
String生成的json数据有两种1String json="[{'name':'tom','age':12},{'name':'jack','age':13}]";
JSONArray a = new JSONArray(json);
System.out.println(a.toString());2String json2="{'json':[{'name':'tom','age':14}
转载
2023-06-08 01:24:19
133阅读
Json常用代码
FastJson依赖包：<!-- fastjson依赖 -->
<dependency>
<groupId>com.alibaba</groupId>
<artifactId>fastjson</artifactId>
&l
转载
2023-07-03 15:11:05
109阅读
--------------siwuxie095 工程名：TestCreateJSON 包名：com.siwuxie095.json 类名：CreateJSON.java &nb
转载
2023-07-04 13:19:04
55阅读
同一个WorkBook 中生成一个目录代码 Excel 中使用 ALT + F11 打开编辑窗口插入一个窗体 ： 插入》用户窗体打开的窗体 拖入...
原创
2022-04-22 16:55:29
992阅读
这几天在word里面写宏，想解析服务器传过来的json串。但是Set oSC = CreateObjectx86("MSScriptControl.ScriptControl")这个方法一直创建不了对象。最后再网上看到说，word分为32位的和64位的这个方法只有在32位的word里面才可以使用，在64位的里面是实现不了的（不能创建对象）于是在网上找各种的方案解决。最后找到一个方法，自己重写这个方
转载
2023-06-11 10:46:20
605阅读
