|
こんばんは!
以下のコードで試しましたが、「インデックスが有効範囲にありません」。
やはりどこかに間違いあるのでしょうか?
変更点
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
|
|