|
VBA初心者です。
Excelにて
A1〜E100までデータが記載してあり、下記のコード
を実行してA2〜A100までとE2〜E100までの2列のデータ
のみをTEST.csvとして出力しようとしております。
(出力CSVファイルのA列にA2〜A100、B列にB2〜B100を出力する)
下記のコードだとA1〜E100まですべてのデータが出力されてしまいます。
出力セルの範囲を指定してCSV形式で出力する仕方をご教授して
いただきたく書込みしました。
いくつか試したパターンは
With 〜 End Withまでに
Range("A2:A20,E2:E20").Select
Worksheets("sheet1").Range("A2:A20,E2:E20").Copyなど
いくつか思いつく命令を記載しましたが、「〜メソッドが失敗しました」
と表示されてしまいます。
お時間のある時ご教授をお願い致します。
_________________ソースコード__________________________________________
Private Sub csv_Click()
Dim myDir As String
Dim myFname As String
'デスクトップのパス
myDir = CreateObject("WScript.Shell").SpecialFolders("Desktop")
myFname = myDir & "\" & "TEST.csv"
'新規Bookにアクティブシートをコピー
ActiveSheet.Copy
'CSV形式で保存
With ActiveWorkbook
.SaveAs myFname, xlCSV
.Close False
End With
MsgBox "出力しました"
End Sub
________________________________________________________________________
|
|