vb
nongcunqq
这个作者很懒,什么都没留下…
展开
-
应对ME23数据抓取时ID发生变化 SAP
User = session.findById("wnd[0]/usr") for i in range(User.Children.Count): print('i',i) name = User.Children(i).Name print('name', name)全部代码import win32com.client, wmi, os, jsonimport win32gui, win32con,..原创 2021-08-09 09:09:02 · 560 阅读 · 0 评论 -
vba 通过路径获取文件名
Sub tt()commit_path = Range("F18")Filename = Right(commit_path, Len(commit_path) - InStrRev(commit_path, "\"))MsgBox "222" & FilenameEnd SubDim strPath As StringstrPath = "C:\folder\folder\folder\file.txt"Dim strFile As StringstrFile =原创 2021-06-11 15:37:41 · 3459 阅读 · 0 评论 -
vba 弹出对话框 打开文件获取文件名
Sub open_file()filenameobj = Application.GetOpenFilename("Excel(*.xls, *.xlsx),*.xls,*.xlsx")MsgBox filenameobjEnd Sub参考https://blog.csdn.net/henryghx/article/details/26973319原创 2021-06-10 16:50:13 · 1193 阅读 · 0 评论 -
commit to gds 较完整vba 2021年6月10日
Sub find_filter_row_number()Dim gds_wkb As Excel.WorkbookDim gds_wks As Excel.WorksheetDim cell As RangeDim i, j As IntegerDim part, site As StringDim wkb As Excel.WorkbookDim wks As Excel.WorksheetDim path As StringDim rng, rngs As Rangethis_原创 2021-06-10 09:57:27 · 114 阅读 · 0 评论 -
vba根据列名获取列号 获取总列数 求和
Sub get() '获取总列数 MsgBox ActiveSheet.Range("IV1").End(xlToLeft).Column '获取单元格列号 MsgBox Range("AE1").Column '求和 Cells(2189, 33).Formula = Application.Sum(Range(Cells(901, 33), Cells(902, 33))) '另一种求和方式 Range("A1").Formula ="原创 2021-06-09 13:15:49 · 1868 阅读 · 0 评论 -
vba中的相对路径
Sub test() Dim path As String '先获取该工作簿的路径 this_workbook_path = ThisWorkbook.path '再获取目标路径的路径 target_workbook_path = this_workbook_path & "\全年核销.xlsx" Workbooks.Open (target_workbook_path)End Sub参考https://www.jianshu.com/p/e8原创 2021-06-08 18:40:59 · 2474 阅读 · 0 评论 -
excel vba区域求和 获取筛选后数据行号 获取筛选后行号总数
Sub mynz()Dim rng, rngs As RangeDim dSet rngs = Range("G9:H10")For Each rng In rngsIf rng > 0 Then d = d + rngNextMsgBox rngs.Address(0, 0) & "range sum" & dEnd Sub原创 2021-06-08 14:29:48 · 4239 阅读 · 0 评论 -
excel转成json格式 用vba转成json
Sub excelToJsonFileExample()Dim excelRange As RangeDim jsonItems As New CollectionDim jsonDictionary As New DictionaryDim jsonFileObject As New FileSystemObjectDim jsonFileExport As TextStreamDim i As LongDim cell As VariantSet excelRange = Cells(原创 2021-05-13 09:11:35 · 1860 阅读 · 3 评论 -
excel筛选后内容 另存xls 如果有文件 覆盖并且不提示
Sub エ栋17()'' エ栋17 エ栋''Application.DisplayAlerts = False Range("A1:E1764").Select Selection.Copy Sheets.Add After:=ActiveSheet ActiveSheet.Paste Sheets(2).Select Application.CutCopyMode = False Sheets(2).Move ActiveWork原创 2021-03-26 17:11:10 · 350 阅读 · 0 评论 -
vba 正则 提取excel当前文档名字中的字符串
Sub get_name() Dim reg As Object Dim mc As MatchCollection Dim m As Match Set reg = CreateObject("vbscript.regexp") ActivePath = ActiveWorkbook.Name s = ActivePath p = "EPDV-[A-Z]" reg.Pattern = p Set mc = reg.Execute(s) Range("a1") = A原创 2021-03-25 17:17:08 · 430 阅读 · 0 评论 -
vba 获取当前 路径
Sub get_path()Dim ActivePath As StringActivePath = ActiveWorkbook.PathRange("a1") = ActivePathEnd Sub参考看67433的回答https://zhidao.baidu.com/question/2117151906662330347.html原创 2021-03-19 17:17:21 · 3103 阅读 · 0 评论 -
vba 新建一个文本文档 发出signal 给 python
起因excel 运行宏的时候时间有点长,二十多秒,期间程序会出现假死,python调用vba时会报错。解决办法,写一个vba在目录下生成一个txt,python用while去循环检测,如果有文件执行保存关闭excel命令,没有的话延时等待vba运行结束。vba建txt代码Sub create_txt()Dim fso As ObjectSet fso = CreateObject("Scripting.FileSystemObject")Dim oFile As ObjectSet oFil原创 2021-03-19 09:45:53 · 190 阅读 · 0 评论 -
操作macro python 执行excel vba 宏 巨集
Sub del_mn()'' del_mn '' Columns("M:N").Select Selection.Delete Shift:=xlToLeftEnd SubSub cancel_hide_dj() '取消d-j隐藏,删除空列 Columns("D:J").Select Selection.EntireColumn.Hidden = False Range("E:E,F:F,H:H,J:J").Select Selec原创 2021-03-18 16:20:03 · 471 阅读 · 0 评论 -
生成工资条 恢复工资表 宏 巨集 vba
简体中文 宏繁体中文 巨集Sub gzb() Dim i As Integer For i = 3 To 50 If Range("A" & i) = "" Then Exit For End If Range("A" & i).Select Selection.EntireRow.Delete Next End S原创 2021-03-16 08:43:06 · 461 阅读 · 0 评论 -
vb 代码检查文件是否存在
If My.Computer.FileSystem.FileExists("c:\Check.txt") Then MsgBox("File found.")Else MsgBox("File not found.")End If参考https://docs.microsoft.com/en-us/dotnet/api/microsoft.visualbasic.fileio.filesystem.fileexists?view=net-5.0原创 2021-03-05 17:47:02 · 774 阅读 · 0 评论