頂き物にちょこちょこ手を加えてとりあえず動くようになりました。 Sub CSVtoXLSandCalc() ''XL97,XL2000で確認済み by 渡辺ひかる -Last Update-2002/12/24-13:01 Dim myFS As FileSearch Dim mySvWb As Workbook Dim i As Long Dim ChDir As Variant ChDir…