摘要：
' 'フォルダーのオールエクセルファイルを取得して、'ファイル名を変更し、シート名を変更する' Sub getExcelFile() Application.ScreenUpdating = False Dim sFolderPath As StringDim f As StringDim file 阅读全文
摘要：
Sub ShowFileList() Dim fs, f, f1, fc, s Dim folderspec As String folderspec = "C:\Users\ofu1\Desktop\Ａ帳票設計書修正\設計書_SRA16_BK" Set fs = CreateObject("Scr 阅读全文