Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

16168 / 76807

←次へ　｜　前へ→


	【66110】Re:範囲指定のCSV出力について

kanabun - 10/7/31(土) 0:30 -


	引用なし

	パスワード

▼VBA初心者さん：

>A1～E100までデータが記載してあり、下記のコード
>を実行してA2～A100までとE2～E100までの２列のデータ
>のみを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
　'シート１枚のBookを追加
　Set newSheet = Workbooks.Add(6).Worksheets(1)
　'そこへ元シートの２列だけ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

0 hits

▼

【66068】範囲指定のCSV出力について VBA初心者 10/7/23(金) 17:25