...D4,D5,F6的相应内容,保存到一个新的excel中)答:' If Right(fName, 4) = ".xls" Or Right(fName, 5) = ".xlsx" Or Right(fName, 5) = ".xlsm" Then Workbooks.Open (fPath & fName)'add sheet select statement if needed v(1, 1) = [a4]v(1, 2) = [d4]v(1, 3) = [d5]v(1, 4) = [f6]Workbooks(fName)...