|
>お時間のあるときご教授下さい。
>▼mura さん:
>>>下記のコードだとA1〜E100まですべてのデータが出力されてしまいます。
>>
>>それはそうでしょう。そのようなコードになってますから。
>>SaveAsの前に 1行とB列〜D列を削除しましょう。
>> Rows(1).Delete
>> Columns("B:D").Delete
>> .SaveAs myFname, xlCSV
既に、SaveAsの前に 1行とB列〜D列を削除 と答えの1つを示していますが...
Private Sub csv_Click()
Dim fname$
fname = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\test.csv"
Application.ScreenUpdating = False
ActiveSheet.Copy
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
|
|