|
最初のほうも、出力範囲を[B2:D15]にして。。。
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(1)
myCSV = .Range("A1").Value & .Range("B1").Value & ".csv"
v = .Range("B2:D15").Value
.UsedRange.ClearContents
.Range("A1").Resize(14, 3).Value = v
End With
.SaveAs myPath & myCSV, xlCSV
.Save
.Close False
End With
MsgBox "出力しました", , myCSV
End Sub
|
|