|
▼夜勤担当 さん:
> 一応、自動記録方法でVBコードを作りましたが、1.と2.の問題は残っています
>ので、前に進めないので、ご指導ください。
>1.セルA1&セルB2をファイル名にすることはできていない
を考慮すると、こんな風でしょうか?
Sub 範囲をCSV出力()
'対象シートをアクティブにして実行
Dim myPath As String
Dim myCSV As String
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"
.Rows(1).Delete
End With
.SaveAs myPath & myCSV, xlCSV
.Save
.Close False
End With
MsgBox "出力しました", , myCSV
End Sub
>2.作成範囲B2:D15の指定
のほうは、対応してません。
元のシートは 15行目以下にもデータがあるのですか?
|
|