摘要: 需要的引用: 下面的代码涉及excel对access数据库的增删改查,可以按照需要查找使用 1 '远程链接模块 2 Option Explicit 3 Dim con As New ADODB.Connection '创建连接对象 4 Dim rs As New ADODB.Recordset '声 阅读全文
posted @ 2023-11-07 14:57 color_bar 阅读(784) 评论(1) 推荐(0)
摘要: 完成后的图示,选择需要模拟的lighttools后,直接进行运行,点击开始模拟,即可逐个模拟完成 lighttools 连接代码: 1 Private m_ltServer As LTAPI 2 3 4 5 Public Function getLTAPIServer() As LTAPI 6 If 阅读全文
posted @ 2023-11-07 11:05 color_bar 阅读(135) 评论(0) 推荐(0)
摘要: 需要增加如下引用: While in the VBE select Tools>References>find and check "OLE Automation" 参考: VBA: LoadPicture Error for Image Userform - Microsoft Community 阅读全文
posted @ 2022-06-21 15:34 color_bar 阅读(487) 评论(0) 推荐(0)
摘要: 1 'Update 20140909 2 #If Win64 Then 3 Public Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal HWND As LongPtr, ByVal hwndinsertafter As LongP 阅读全文
posted @ 2021-12-27 15:37 color_bar 阅读(65) 评论(0) 推荐(0)
摘要: VBA计算两个三角形的交叠面积 1 Public Function crossarea(Rx, Ry, Gx, Gy, Bx, By, RefRx, RefRy, RefGx, RefGy, RefBx, RefBy) As Variant 2 '色坐标赋值 3 Dim crossline(1 To 6, 1 To 7) As D 阅读全文
posted @ 2021-11-27 11:49 color_bar 阅读(188) 评论(0) 推荐(0)
摘要: 1 #include <stdio.h> 2 #include <stdlib.h> 3 #include <string.h> 4 5 6 typedef unsigned char byte; 7 typedef unsigned short dbyte; 8 typedef long int 阅读全文
posted @ 2021-10-27 17:39 color_bar 阅读(249) 评论(0) 推荐(0)