qq_42678477的博客

原创 C#查找Excel()重复项

【代码】C#查找Excel()重复项。

原创 T-SQL 批量删除数据库

【代码】T-SQL 批量删除数据库。

原创 go桌面开发(walk)测试

1. 新建目录 ui2. go mod init ui3. 新建 main.gopackage mainimport ( . "github.com/lxn/walk/declarative")func main() { mw := MainWindow{ Title: "测试窗口", Size: Size{500, 500}, Layout: VBox{MarginsZero: true}, Children: []Widget{ TextLabe.

原创 golang测试写入excel

1. 创建目录xcel_test2. go evn 查询是否开启module管理set GO111MODULE=onset GOPROXY=https://goproxy.cn,direct3. 初始化项目go mod init excel_test4. 创建main.gopackage mainimport "github.com/360EntSecGroup-Skylar/excelize"func main() { f := excelize.NewFile(.

原创 python获取桌面路径

import winregimport osdef get_desktop(): subkey = r'Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders' key = winreg.OpenKey(winreg.HKEY_CURRENT_USER, subkey) (value, _) = winreg.QueryValueEx(key, 'Desktop') return value.

原创 鼠标右键新建.py文件(python操作注册表)

import winregkey = winreg.CreateKey(winreg.HKEY_CLASSES_ROOT, 'pyfile')winreg.SetValueEx(key, '', 0, winreg.REG_SZ, 'Python文件')key = winreg.CreateKey(winreg.HKEY_CLASSES_ROOT, '.py')winreg.SetValueEx(key, '', 0, winreg.REG_SZ, 'pyfile')key = winre.

原创 pyodbc操作Access2013

# 测试环境：32位python access database engine 32位# pyodbc文档 https://github.com/mkleehammer/pyodbc/wiki import pyodbc# 驱动程序for x in [x for x in pyodbc.drivers()]: if 'Access' in x and 'accdb' in x: print(x)# 连接Access2013数据库path = r'C:\Users\.

原创 xlwing操作excel(二）

import sysimport osimport tkinter as tkimport tkinter.filedialog as tkfimport xlwings as xwdef getbillfiles(path): list =os.listdir(path) result = [] for i in range(0,len(list)): temp = os.path.join(path,list[i]) if os.pa.

原创 xlwings操作Excel

import osimport shutilimport datetimefrom string import Templateimport xlwings as xw# 整个流程测试# 1. 打开报表 (目前仅考虑单工作表）reportSheetdef getreportfilename(reportpath): # 如果模板文件不存在,如何抛出异常 if not os.path.exists(reportpath): raise '报表模板不存在' .

原创 VBA读取XML文件形成二维表并写入到占位符区域

Option ExplicitSub main() Dim xmlfiles, i xmlfiles = GetXmlFiles(ThisWorkbook.path & "\Data\*.xml") If IsEmpty(xmlfiles) Then Exit Sub For i = LBound(xmlfiles) To UBound(xmlfiles) FillBlock xmlfiles(i) Next End Su.

原创 SqlServer创建唯一索引

USE DhwcMainGOIF EXISTS (SELECT name from sys.indexes WHERE name = N'SHENG_IDX') DROP INDEX SHENG_IDX ON dbo.SHENG; GO CREATE UNIQUE INDEX SHENG_IDX ON dbo.SHENG(PROVINCE); GO IF EXISTS (SELECT name from sys.indexes .

原创 单Sqlserver数据库配置器

/// <summary> /// 单Sqlserver数据库配置器 /// </summary> public class SingleSqlServerConfiguration { public SingleSqlServerConfiguration(string appid, string prjid = null,string dbName = null) { //首字母大...

原创 快速查找excel两行数据差异

private void button1_Click(object sender, EventArgs e) { if (string.IsNullOrEmpty(txtA.Text) || string.IsNullOrEmpty(txtB.Text)) return; rA.Text = GetDiff(GenDict(txtA.Text), GenDict(txtB.Text)); ...

原创 nodejs简单几行代码即可将目录发布成网站

const http = require('http')const path = require('path')const fs = require('fs')const dir = 'D:/kb'const server = http.createServer()server.on('request', (req, res) => { let url = req.url let filePath = path.join(dir,'index.html') i.

原创 vba二维数组排序及转为一维数组

Option ExplicitSub test1() Dim sht Set sht = ActiveSheet Debug.Print GetDataXz(sht)End SubFunction GetDataXz(sht) Dim arr(1 To 8, 1 To 2), i, j, temp1, temp2, content '小组 For i = 1 To 8 arr(i, 1) = "'" & sht.Cells.

原创 VBA自定义类型示例

Option ExplicitType cwType xh As Integer xz As String cw As String sl As IntegerEnd TypeSub test() Debug.Print GetChaoShiTable(ActiveSheet)End SubFunction GetChaoShiTable(sht) Dim i, cwArr() As cwType, count, j, tableConte.

原创 VBA操作ACCESS

Option Compare DatabaseOption ExplicitSub Open_Ado_RS_Recordset() Dim rs As ADODB.Recordset, kfml, kfrq Set rs = New ADODB.Recordset rs.ActiveConnection = CurrentProject.Connection rs.CursorType = adOpenKeyset rs.LockType = adL.

原创 VBA代码方式实现自动筛选

Option ExplicitPrivate Sub Worksheet_Change(ByVal Target As Range) Excel.Application.EnableEvents = False Dim sht As Worksheet Set sht = Target.Parent If Target.Row = 1 And Target.Column = 10 Then If Target <> "" Then .

原创 VBA创建链接并实现图表工作表按钮返回

Option Explicit'输出Sub export() Dim sht As Worksheet, sql As String, sht1 As Worksheet, i, shtname, rng Set sht = ThisWorkbook.Worksheets("HZ") sql = "SELECT DISTINCT YF,SP,'' TB FROM CG order by yf,sp" exportdata sht, sql .

原创 VBA读写UTF8文本文件

Sub Test() Dim sht As Worksheet, scr, content As String, i, arr_acsp_xz(1 To 8), arr_acsp_xz_data(1 To 8), arr_wemzs(1 To 13), arr_wemzs_data(1 To 13), temp Set sht = ThisWorkbook.Worksheets("小组") scr = "<script>" + vbCrLf scr =.

原创 vba执行Sqlserver存储过程生成recordset填充到表格

Option ExplicitSub exportdata() Dim sht As Worksheet, conn, rs, i Set sht = ActiveSheet Set conn = CreateObject("ADODB.Connection") Set rs = CreateObject("Adodb.Recordset") conn.Open "Provider=sqloledb;server=127.0.0.1,1433\sqlexpres.

原创 openxml追加写入已存在的xlsx文件

private void m2(string fname, string sheetName, DataTable dt, Func<DataTable, DataTable> dealer = null) { if (null != dealer) dt = dealer(dt); //string sheetName = "Data1"; using (...

原创 导入数据后汇总分类再回写解决方法（sqlserver/sqlite)

DateTime time1 = DateTime.Now; MyCommon.ExecuteNonQueryBySql(configs[0], "delete from GHJEHZ where 1=1"); string sql = "SELECT gh,max(xm) xm,max(gw) gw,SUM(ysje) ysje,MIN(YJKSJ) yjksj FROM YSKBB GROUP BY GH"; ...

原创 VBA处理超百万数据(主要运用二维数组及字典)

class ImportorClass Option Explicit Private m_sht As Worksheet Private m_activecell As Range Private m_rowIndex As Long Private m_dictYjzh Private m_ksrq As Date Private m_jzrq As Date Private m_dictJsd Private m_r.

原创 vba查找某行指定底色的列字母

Option ExplicitSub test() Dim sht As Worksheet Set sht = ActiveSheet Debug.Print FindInterior(sht, 21, 65535)End SubFunction FindInterior(sht As Worksheet, line As Long, color As Long) Dim rng As Range, r, reg, col As Collection,.

原创 获取ATimeLogger数据并写入Sqlserver数据库

import requestsfrom requests.auth import HTTPBasicAuthimport jsonimport timeimport datetimeimport pymssqlimport uuiddef get_connection(): conn = pymssql.connect(server='127.0.0.1\sqlexpress',port=1433,user='xxx',password='xxx',database='xxxx'.

原创 vba冒泡排序与选择排序

1. vba冒泡排序Option ExplicitSub SelectionSort() Dim arr, i, j, temp arr = Array(1, 9, 10, 5, 4) PrintArr (arr) For i = LBound(arr) To UBound(arr) - 1 For j = LBound(arr) To UBound(arr) - 1 - i If arr(j) > arr(j + 1)

原创 vba项目实战（类模块、字典、集合、正则等）

class UserForm1 Option Explicit Private Sub btnBillDir_Click() Me.txtBillDir.Text = GetFolder() End Sub Private Sub btnCiam_Click() Dim fileNameObj fileNameObj = Excel.Application.GetOpenFilename("Excel文件(.

原创 vba操作工作表单元格

Sub CreateSheets() Dim i For i = 1 To 30 Step 1 Sheets.Add(after:=Sheets(Sheets.Count)).Name = "4月" & i NextEnd SubSub DeleteSheets() Dim sht Excel.Application.DisplayAlerts = False For Each sht In Sheets If .

原创 vba选择文件（正则、字典等综合应用）

Option ExplicitSub test() Dim path, dict, item, sht, i, yjh, dir path = GetFolder() If path = "" Then Exit Sub Set dict = GetFilesDict(path) dir = GetDeskTopTimeDir() Set sht = ActiveSheet sht.Range("b2:b" & sh.

原创 vba字典(dictionary)示例

option explicitsub test() dim dict,arr,i set dict = CreateObject("Scripting.Dictionary") '一组数据放到字典 arr = Range("A1").CurrentRegion for i = 2 to UBound(arr) step 1 dict(arr(i,1)) = arr(i,2) next arr = Range("D1:E" &am.

原创 echarts之gauge

<!DOCTYPE html><html lang="zh-CN"><head> <meta charset="UTF-8"> <meta name="viewport" content="width=device-width, initial-scale=1.0"> <meta http-equiv="X-UA-Compatible" content="ie=edge"> <title...

原创 批处理复制多文件夹

echo offd:cd d:\Ch\Git\baserem 删除所有文件del /s /q *.*rem 逐个文件夹复制文件for /d %%i in (*) do ( copy d:\Ch\AklibD\%%i\*.* .\%%i )pause

原创 c#获取某个目录下前20个较大的文件

using System;using System.Collections.Generic;using System.Linq;using System.Text;using System.Data;using AkImportService;using System.IO;namespace ConsoleApp1{ class Program { ...

原创 vba显示图片文件

Sub Button1_Click() Dim sht As Worksheet, rng As Range, picPath As String Set sht = ActiveSheet Set rng = ActiveCell If sht.Cells(1, rng.Column) <> "文件" Then Exit Sub picPa...

原创 c#邮件类

using System;using System.Collections.Generic;using System.Linq;using System.Net;using System.Net.Mail;using System.Text;namespace MailTest{ public class AkMail { public AkMai...

原创 vs2019web项目调试

原创 Excel设置数字格式为显示万元

[>100000000]#!,####!.#,;###!.#,

原创 openxml读取xlsx内容

var doc = new ExcelUntil().Open(filename, false); var shtContentDict = doc.GetSheetsContent(); int count = 0; foreach (var item in shtContentDict)...

原创 c#正则提取括号中的字符

using System;using System.Collections.Generic;using System.Linq;using System.Text;using System.Text.RegularExpressions;namespace ConsoleApp1{ class Program { static void Main(st...