2ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Excel総合相談所 97

231 :名無しさん@そうだ選挙にいこう:2011/05/29(日) 15:14:40.89
>>226
ありがとうございます。
ws.SaveAsという部分は参考になりました。

>>230
例えば、1,2,3という3シートを持つブックで、下記のコードを走らせると、
元のブックはそのままで、3シートのcsvファイルを作成することができ、
結果としては問題ないのですが、処理中に新規ブックがチラチラし、
もしかしたらこのせいで遅いのかな?新規ブックを作成しないで実現できる
方法があったらそっちの方が早いのでは?と思ったのです。

Application.DisplayAlerts = False
Dim i As Integer
For i = 1 To 3

Sheets(i).Copy
ActiveWorkbook.SaveAs Filename:= _
Application.ThisWorkbook.Path & "\" & ActiveSheet.Name & ".csv", FileFormat:=xlCSV, _
CreateBackup:=False
ActiveWorkbook.Close

Next i
Application.DisplayAlerts = True

345 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.01.03 2014/02/20 Code Monkey ★
FOX ★ DSO(Dynamic Shared Object)