青竹小轩 - 博客园

2025年11月24日

摘要： Sub 获取所有文件名__后期绑定() Dim fso As Object, folder As Object, file As Object Dim i As Integer, folderPath As String folderPath = "D:\日常审核\新规汇集\新建文件夹" '修改为你阅读全文

posted @ 2025-11-24 17:46 青竹小轩阅读(4) 评论(0) 推荐(0)

合并各工作表内容

摘要： Sub 合并各sheet表内容() Dim ws As Worksheet, nws As Worksheet Set nws = Sheets.Add(after:=Sheets(Sheets.Count)) For Each ws In Sheets If ws.Name <> nws.Name 阅读全文

posted @ 2025-11-24 12:55 青竹小轩阅读(4) 评论(0) 推荐(0)

2025年11月21日

另存为PDF

摘要：默认将本工作簿下所有工作表导出另存为pdf文件 Sub 另存为PDF() Dim path As String path = ThisWorkbook.path & "" & ThisWorkbook.Name & "_完整版.pdf" 'FileName 要保存的文件的文件名。可以包括完整路径，阅读全文

posted @ 2025-11-21 17:30 青竹小轩阅读(4) 评论(0) 推荐(0)

2025年11月7日

地图上色

摘要：数据源地级市地区生产总值（GDP）苏州市 26727.00 南京市 18500.81 无锡市 16263.29 南通市 12421.90 常州市 10813.60 徐州市 10000.00 扬州市 7809.64 盐城市 7779.20 泰州市 7020.95 镇江市 5540.01 淮安市阅读全文

posted @ 2025-11-07 13:52 青竹小轩阅读(5) 评论(0) 推荐(0)

2025年11月5日

Dir

摘要： Sub 遍历文件1() Path = ThisWorkbook.Path & "\文件夹的创建与遍历" '注意路径最后要带 "" ss = Dir(Path) '遍历路径下所有文件,会排除隐藏属性的文件 Do Range("a1").Offset(n, 0) = ss ss = Dir n = n 阅读全文

posted @ 2025-11-05 23:57 青竹小轩阅读(0) 评论(0) 推荐(0)

聚光灯

摘要：方法一：条件格式 'Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' If Target.Count > 1 Then Exit Sub ' Sheet1.Cells.FormatConditions.Delete ' ' 阅读全文

posted @ 2025-11-05 23:57 青竹小轩阅读(2) 评论(0) 推荐(0)

ADODB查询

摘要： 'Public path As String Sub adodb_test1() '声明并初始化对象 Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset Rem 一、建立连接 Rem 连接access数据库: 'With cn 阅读全文

posted @ 2025-11-05 23:46 青竹小轩阅读(4) 评论(0) 推荐(0)

获取文件路径

摘要： 'FileFilter String 文件类型过滤器 "所有文件 (.), ." 'FilterIndex Integer 默认使用的过滤器索引 1 'Title String 对话框标题 "打开" 'ButtonText String 按钮显示文字（仅Mac） - 'MultiSelect Boo 阅读全文

posted @ 2025-11-05 23:46 青竹小轩阅读(2) 评论(0) 推荐(0)

对话框

摘要： Declare PtrSafe Function MessageBoxTimeout Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As Str 阅读全文

posted @ 2025-11-05 23:44 青竹小轩阅读(2) 评论(0) 推荐(0)

时间及自动删除

摘要： Sub 系统时间() Debug.Print Date '2025/11/1 Debug.Print Time '17:44:30 Debug.Print Now '2025/11/1 17:44:30 Debug.Print Timer '63870.97,一天86400秒 Debug.Print 阅读全文

posted @ 2025-11-05 23:43 青竹小轩阅读(3) 评论(0) 推荐(0)