Excel VBA質問箱 IV

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

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


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

24043 / 76807

←次へ　｜　前へ→


	【58119】Re:ExcelからシートのCSVファイルの出力

夜勤担当 - 08/10/3(金) 22:29 -


	引用なし

	パスワード

こんばんは！　
　以下のコードで試しましたが、「インデックスが有効範囲にありません」。
やはりどこかに間違いあるのでしょうか?

変更点
With .Sheets(検体)
v = .Range("A2:D15").Value
　　
Sub 範囲をCSV出力1()
　'対象シートをアクティブにして実行
　Dim myPath As String
　Dim myCSV As String
　Dim v
　 myPath = "C:\Documents and Settings\fumi_T\デスクトップ"
　If Right$(myPath, 1) <> "\" Then myPath = myPath & "\"
　 ActiveSheet.Copy
　With ActiveWorkbook
　　　With .Sheets(検体)　------＞対象シート名は検体のため、検体を入れた
　　　　　myCSV = .Range("A1").Value & .Range("B1").Value & ".csv"
　　　　　v = .Range("A2:D15").Value　　------＞吐き出し範囲はA2:D15
　　　　　.UsedRange.ClearContents
　　　　　.Range("A1").Resize(14, 3).Value = v
　　　End With
　　　.SaveAs myPath & myCSV, xlCSV
　　　.Save
　　　.Close False
　End With
　MsgBox "出力しました", , myCSV
End Sub

　　　　A　　　　　B　　　　C　　　　D
1　　　科目　　　　20081002　　　　　　　　
2　　　コード　　　　商品名　　　　単位　　　　数量
3　　　　　1　　　　1　　　　1　　　　1
4　　　　　2　　　　2　　　　2　　　　2
　　　　　・
　　　　　・
　　　　　・
15　　　　　13　　　　13　　　　13　　　　13

0 hits

▼

【58106】ExcelからシートのCSVファイルの出力 夜勤担当 08/10/2(木) 22:11