qq_42678477
码龄4年
  • 133,458
    被访问
  • 157
    原创
  • 1,082,861
    排名
  • 23
    粉丝
关注
提问 私信
  • 加入CSDN时间: 2018-07-12
博客简介:

qq_42678477的博客

博客描述:
代码记录
查看详细资料
个人成就
  • 获得26次点赞
  • 内容获得14次评论
  • 获得147次收藏
创作历程
  • 4篇
    2021年
  • 41篇
    2020年
  • 45篇
    2019年
  • 72篇
    2018年
成就勋章
TA的专栏
  • GO
    2篇
  • VBA
    21篇
  • Python
    9篇
  • C#
    19篇
  • SQLSERVER
    7篇
  • Java
    4篇
兴趣领域 设置
  • 微软技术
    c#asp.net.net
  • 最近
  • 文章
  • 资源
  • 问答
  • 帖子
  • 视频
  • 课程
  • 关注/订阅/互动
  • 收藏
搜TA的内容
搜索 取消

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.
原创
发布博客 2021.03.14 ·
337 阅读 ·
0 点赞 ·
0 评论

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(.
原创
发布博客 2021.03.14 ·
140 阅读 ·
0 点赞 ·
0 评论

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.
原创
发布博客 2021.01.07 ·
110 阅读 ·
0 点赞 ·
0 评论

鼠标右键新建.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.
原创
发布博客 2021.01.07 ·
366 阅读 ·
1 点赞 ·
0 评论

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\.
原创
发布博客 2020.12.27 ·
95 阅读 ·
0 点赞 ·
1 评论

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.
原创
发布博客 2020.11.27 ·
186 阅读 ·
0 点赞 ·
1 评论

xlwings操作Excel

import osimport shutilimport datetimefrom string import Templateimport xlwings as xw# 整个流程测试# 1. 打开报表 (目前仅考虑单工作表)reportSheetdef getreportfilename(reportpath): # 如果模板文件不存在,如何抛出异常 if not os.path.exists(reportpath): raise '报表模板不存在' .
原创
发布博客 2020.11.25 ·
123 阅读 ·
0 点赞 ·
0 评论

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.
原创
发布博客 2020.10.17 ·
137 阅读 ·
0 点赞 ·
0 评论

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 .
原创
发布博客 2020.09.16 ·
673 阅读 ·
0 点赞 ·
0 评论

单Sqlserver数据库配置器

/// <summary> /// 单Sqlserver数据库配置器 /// </summary> public class SingleSqlServerConfiguration { public SingleSqlServerConfiguration(string appid, string prjid = null,string dbName = null) { //首字母大...
原创
发布博客 2020.09.16 ·
48 阅读 ·
0 点赞 ·
0 评论

快速查找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)); ...
原创
发布博客 2020.09.07 ·
208 阅读 ·
0 点赞 ·
0 评论

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.
原创
发布博客 2020.09.05 ·
372 阅读 ·
0 点赞 ·
0 评论

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.
原创
发布博客 2020.09.03 ·
1616 阅读 ·
0 点赞 ·
0 评论

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.
原创
发布博客 2020.09.03 ·
457 阅读 ·
1 点赞 ·
0 评论

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.
原创
发布博客 2020.09.02 ·
352 阅读 ·
0 点赞 ·
0 评论

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 .
原创
发布博客 2020.08.29 ·
1915 阅读 ·
0 点赞 ·
0 评论

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 .
原创
发布博客 2020.08.28 ·
264 阅读 ·
0 点赞 ·
0 评论

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 =.
原创
发布博客 2020.08.27 ·
1416 阅读 ·
1 点赞 ·
0 评论

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.
原创
发布博客 2020.08.06 ·
234 阅读 ·
0 点赞 ·
0 评论

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 (...
原创
发布博客 2020.08.06 ·
138 阅读 ·
0 点赞 ·
0 评论
加载更多