摘要：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 阅读全文