|
色々処理しているのですがうまく行かないので
教えて下さい。
あと少しなのですが・・・・
シートのセルに指定した情報で新規に
excelファイルを作成して、そこに
別シートで事前に編集した内容をコピーしたいのですが・・・
Range(Cells(i, 1), Cells(i, 17)).Copy Destination:=Sheets("s2").Cells(j, 1)
上記の
s1=c:¥
s2=保存ファイル名=そのシート名
↓の箇所の記述の方法が判らないので教えて下さい。
Destination:=Sheets("s2").Cells(j, 1)
あとは、loop関数で処理できそうなのでこの箇所
をお願いします。
'★編集指定---------------------------
Dim s1 As String
Dim s2 As String
'-------------------------------------
s1 = ActiveSheet.Range("D6").Value 'シート名情報1
s2 = ActiveSheet.Range("D7").Value 'シート名情報2
Workbooks.Add
Sheets("Sheet1").Select
Sheets("Sheet1").Name = s2
On Error Resume Next
Kill Pathname:=s1 & s2
On Error GoTo 0
Application.DisplayAlerts = False
'●ファイル保存
ActiveWorkbook.SaveAs Filename:=s1 & s2, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
'○データコピー
i = 1
j = 1
Do While Cells(i, 2) <> ""
Range(Cells(i, 1), Cells(i, 17)).Copy Destination:=Sheets("s2").Cells(j, 1)
|
|