- 博客(12)
- 资源 (40)
- 收藏
- 关注
原创 【办公-excel】VBA拼接字段内容
'A1 B2 C3 D4 E5 F6 G7 H8 I9 J10'K11 L12 M13 N14 O15 P16 Q17 R18'S19 T20 U21 V22 W23 X24 Y25 Z26Public Sub Connect() Dim KqData, i Dim result(1 To 10000, 1 To 2) KqData = Intersect(Acti...
2018-05-17 18:06:58 1136 1
转载 【办公-excel】VBA 选择文件、文件夹
1、选择单个文件Sub SelectFile() '选择单一文件 'www.okexcel.com.cn With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False '单选择 .Filters.Clear '清除文...
2018-05-16 22:20:20 12934
转载 【SolidWorks宏】选择文件夹
Rem 选择文件夹Public Sub SG_BrowseForFolder() '** 使用Shell.Application对象来选择文件夹 Dim objShell Dim objFolder Dim strPath As String Set objShell = CreateObj...
2018-05-16 20:54:51 3206
转载 【SolidWorks宏】VBA 选择文件
Rem 选择文件-从注册表中获取Function SG_BrowseForFileFromReg() Dim shell: Set shell = CreateObject("WScript.Shell") Dim fso: Set fso = CreateObject("Scripting.FileSystemObject") Dim tempFolder: Set t...
2018-05-16 20:53:15 3641
转载 【HTML应用程序hta】选择文件对话框
1、将选择的文件保存到注册表<html> <head> <title>Browse</title> </head> <body> <input type='file' id='f' /> <script type='text/javascript'> var f
2018-05-16 20:46:32 984
原创 【办公-excel】VBA 统计考勤信息
窗体-MainFormPrivate Sub CommandButton1_Click() AnalysisAttendance TextBoxDayFliter.TextEnd SubPrivate Sub UserForm_Click()End Sub模块RunProgramSub main1()'MsgBox day(DateSerial(2018, 3, 0)) ...
2018-05-16 14:43:14 2900 1
原创 【SolidWorks宏】VBA操作SolidWorks程序对象
Rem 获取SolidWorks的标题并解析Private Sub SldWorks_GetTitle() Dim SwApp As Object Dim TitleStr As String Dim PartStr() As String Dim Part1 As String Dim Part2 As String Dim Swmodel As...
2018-05-12 00:15:29 10818
原创 【SolidWorks宏】将文件数据一行一行添加到ListBox
Rem 将文件数据一行一行添加到ListBoxPublic Sub LoadFileToListBox(filePath As String, lb As ListBox) '声明 Rem Dim filePath As String Dim fs As Object Dim otf As Object Dim localylp As Double ...
2018-05-11 23:24:41 946
原创 【SolidWorks宏】向指定的文件写入一行数据
Rem 向指定的文件写入一行数据Public Sub WriteFirstLineDataToFile(filePath As String, content As String) '声明 Dim fs As Object Dim ctf As Object '执行过程 Set fs = CreateObject("Scripting.FileS...
2018-05-11 22:47:29 771
原创 【SolidWorks宏】读取文件的第一行数据
Rem "读取文件的第一行数据"Public Function ReadFirstLineDataFromFile(fileName) As String '声明 Dim filePath As String Dim fs As Object Dim otf As Object '执行过程 filePath = fileName ...
2018-05-11 22:39:35 1542
原创 【SolidWorks宏】VBA 获取数组的长度
REM "获取数组长度"Public Function ArrayLength(ByVal ary) As Integer ArrayLength = UBound(ary) - LBound(ary) + 1End FunctionREM "调用示例"Sub SplitSample() '声明 Dim temp() As String Dim EgStr...
2018-05-11 22:20:18 29077
原创 【语言-c#】程序A的窗口Form1向程序B的窗口Form2 发送消息
一、获取程序B的ClassName1、程序B非自己开发使用vs ->工具(T)->spy++(+)->监视(S)->查找窗口(F)...->查找程序工具2、程序B是自己开发可以使用GetClassName获取B程序Form2的ClassName,将其存入指定的注册表位置、配置文件或数据库等等,这里我简单介绍存入注册表的用法。using System.Runtime.I...
2018-05-07 16:52:38 671
MFC CDialogEx 自绘非客户区(自绘边框、标题栏和系统按钮)
2017-01-10
Devcon 10.0.14393.0 x86/x64 支持win7到win10的系统
2016-12-09
源周率π-自然常数e计算程序源码 vs2010
2016-07-01
depends 64位
2013-07-15
depend 32位
2013-07-15
TCP-IP详解卷3:TCP事务协议,HTTP,NNTP和UNIX域协议
2013-03-25
C# A2-3 跳动的皮球
2022-06-06
按设备名称识别扫描内容,一台电脑多个扫描抢多个软件
2020-10-13
HTML5 WebGL水面水波荡漾特效 可多视角展示 超逼真 webgl-water.rar
2019-10-22
字符舞蹈 Java源码
2019-10-12
MFC CDialogEx 自绘非客户区(自绘边框、标题栏和系统按钮) v0.2
2019-08-31
Language-Integrated Query (LINQ) 电子书 (PDF).rar
2019-04-26
BlueScreenView_1.5.5.0 蓝屏诊断工具
2019-03-12
Microsoft.DirectX V9.15.779.0 C# 9个dll
2018-05-18
FileTool.exe win7系统下Vc++6.0修补工具
2017-05-20
Tif 图像标签添加或修改源码
2017-03-17
FreeImage 3.13.1
2017-02-21
DPInst 2.1.0.0 (x&64)
2017-02-21
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人