2017年4月7日
获取文件夹下所有文件2
摘要： ' 'フォルダーのオールエクセルファイルを取得して、'ファイル名を変更し、シート名を変更する' Sub getExcelFile() Application.ScreenUpdating = False Dim sFolderPath As StringDim f As StringDim file 阅读全文
posted @ 2017-04-07 16:41 Ouka傅 阅读(144) 评论(0) 推荐(0) 编辑
获取文件夹下所有文件
摘要： Sub ShowFileList() Dim fs, f, f1, fc, s Dim folderspec As String folderspec = "C:\Users\ofu1\Desktop\Ａ帳票設計書修正\設計書_SRA16_BK" Set fs = CreateObject("Scr 阅读全文
posted @ 2017-04-07 16:40 Ouka傅 阅读(123) 评论(0) 推荐(0) 编辑