|
▼VBA初心者 さん:
>A1〜E100までデータが記載してあり、下記のコード
>を実行してA2〜A100までとE2〜E100までの2列のデータ
>のみをTEST.csvとして出力しようとしております。
こんにちは。
何だか皆さんのサンプルのいいとこ取りみたいで
ごめんなさいね
こういう方法ではどうでしょうか。
'標準モジュール
Sub SampleC()
Dim oldSheet As Worksheet
Dim newSheet As Worksheet
Dim myDir As String
Dim myFname As String
'デスクトップのパス
myDir = CreateObject("WScript.Shell").SpecialFolders("Desktop")
'ファイル名の指定
myFname = myDir & "\" & "TEST4.csv"
Set oldSheet = ActiveSheet
'シート1枚のBookを追加
Set newSheet = Workbooks.Add(6).Worksheets(1)
'そこへ元シートの2列だけCopy
oldSheet.Range("A2:A100,E2:E100").Copy newSheet.Cells(1)
'CSV形式で保存する
With ActiveWorkbook
.SaveAs myFname, xlCSV, Local:=True
.Close False
End With
End Sub
|
|