- 385 名前：デフォルトの名無しさん mailto:sage [2017/05/30(火) 19:06:30.89 ID:q6a+ppT10.net]
- >>360
ぐぐるんじゃなく自分で作れるようになると楽だよ
Sub foo()
Application.DisplayAlerts = False
For Each シート In ThisWorkbook.Worksheets
シート.Activate
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & シート.Name & ".csv", _
FileFormat:=xlCSV, CreateBackup:=False
Next
Application.DisplayAlerts = True
End Sub
>>371
エクセル＋vbaがいい
諦めなければ絶対に完成する。諦めるな
わからなくなったらいつでもおいで
