1.功能介紹 本功能主要實現將同一個文件夾的相似Excel文件裏的內容彙總到同一個EXCEL文件中。 2.代碼實現 Sub ボタン3_Click() Dim dstSheet As Worksheet Set dstSheet = ThisWorkbook.Worksheets(1) Const Path As String = "D:\ou\Calibration\Result\" Dim buf As String Dim value As String Dim temp() As String '入力箇所 Const prefix = "result_" Const center_str = "Yaw" Const cnsDIR = "\" + prefix + center_str + "*.csv" buf = Dir(Path & cnsDIR, vbNormal) Dim i As Long Do While buf <> "" i = i + 1 Dim srcBook As Workbook Set srcBook = Workbooks.Open(Path + buf) Dim srcSheet As Worksheet Set srcSheet = srcBook.Worksheets(1) dstSheet.Cells(10, i).value = srcSheet.Cells(1, 1) srcBook.Close False 'ファイル名を分割 temp = Split(buf, "_") value = Mid(temp(1), Len(center_str) + 1, Len(temp(1)) - Len(center_str) - 4) dstSheet.Cells(9, i).value = value buf = Dir() Loop End Sub
vba實現文件內容彙總
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.