|
ありがとうございます。
ご教授、有難うございます。
ご教授いただいたように試したのですが、出力したCSVが全項目出力
され、BCDのシートが削除されEシートの項目でエラーが起きてしまいます。
よろしくお願い致します。
________________________VBAソース_________________________________________
Private Sub csv_Click()
Dim fname$
fname = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\TEST.csv"
Application.ScreenUpdating = False
ActiveSheet.Copy
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
Rows(1).Delete
Columns("B:D").Delete
If Dir(fname) <> "" Then Kill fname
With ActiveWorkbook
.SaveAs fname, xlCSV
.Close False
End With
Application.ScreenUpdating = True
MsgBox "出力しました"
End Sub
▼mura さん:
>>記述が足りなく申し訳ないです。
>>B列〜D列の文字を合わせてE列を作成
>>している為(text関数)、削除するとE列がエラーに
>>なってしまいます。
>
>だったら、
> ActiveSheet.Copy の次行に
> ↓を入れるとか...
> ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
|
|