Excel VBA 小天地

摘要： Sub test() arr = pickfiles If arr(1) "None" Then For i = LBound(arr) To UBound(arr) Debug.Print arr(i) Next i End If End Sub Function pickfiles() ... 阅读全文

摘要： 预留 阅读全文

摘要： Public Sub PrintSelectRow() Dim Wb As Workbook Dim iSht As Worksheet Dim rSht As Worksheet Dim pSht As Worksheet Dim Rng As Range, ActiveRow As Long Dim Arr As Variant, Ar As ... 阅读全文

摘要： '2017年11月13日 'Next_Seven '功能：文件夹对话框指定文件夹下，合并（复制粘贴）每个Excel文件内的指定子表内容， '在名为"设置"的工作表A列 输入汇总子表的名称 在B列输入汇总子表的表头行数 'C列自动输出 有效汇总的sheet个数 Public Sub 指定文件夹多簿多表分表合并() AppSettings True Dim StartTime As... 阅读全文

摘要： import csv def get_lines(filepath): with open(filepath) as file_object: lines=set(file_object.readlines()) return lines def new_csv(lines): fileindex=0 count=len(lin... 阅读全文

摘要： Public Sub ModifyFileNames() Dim FolderPath As String Dim FileNames As Variant Dim dotPos As Long Dim ExtName As String Dim RealName As String Dim NewFile() As String Re... 阅读全文

摘要： Dim dFilePath As Object, OneKey Sub main_proc() Dim Wb As Workbook, Sht As Worksheet, Rng As Range Set Wb = Application.ThisWorkbook Set Sht = Wb.Worksheets(1) Set dFilePath = C... 阅读全文

摘要： Sub GetWordText改进() Dim Wb As Workbook Dim Sht As Worksheet Dim Rng As Range Dim wdApp As Object Dim wdDoc As Object Dim FilePaths Dim FilePath Dim Arr(1 To 10000... 阅读全文

摘要： C-EC-4B-CF-FC-37RegisterCodeStart/D8-12-65-C1-26-31/04:0E:3C:2F:E8:29/8C-EC-4B-CF-FC-37/00:1E:33:E4:AB:1E/D8:CB:8A:B4:0B:C1/00-FF-1C-69-60-02/A0:D3:C1 阅读全文

摘要： SubtotalByCQL Range("A1:E100").Value, "Select 1,2,Sum(4),Count(4) GroupBy 1,2", Range("J1"), True Sub SubtotalByCQL(ByVal Arr As Variant, ByVal CQL As String, ByVal DesRange As Range, Optional Header... 阅读全文