Excel VBA質問箱 IV

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

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


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

29047 / 76732

←次へ　｜　前へ→


	【52974】ファイルの出力（その２）

初心者Ｃ - 07/12/10(月) 18:43 -


	引用なし

	パスワード

色々処理しているのですがうまく行かないので
教えて下さい。
あと少しなのですが・・・・

シートのセルに指定した情報で新規に
ｅｘｃｅｌファイルを作成して、そこに
別シートで事前に編集した内容をコピーしたいのですが・・・

Range(Cells(i, 1), Cells(i, 17)).Copy Destination:=Sheets("s2").Cells(j, 1)

上記の

ｓ１＝ｃ：￥
ｓ２＝保存ファイル名＝そのシート名

↓の箇所の記述の方法が判らないので教えて下さい。

Destination:=Sheets("s2").Cells(j, 1)

あとは、loop関数で処理できそうなのでこの箇所
をお願いします。

'★編集指定---------------------------
　　Dim s1 As String
　　Dim s2 As String
'-------------------------------------
　　　
　　s1 = ActiveSheet.Range("D6").Value　'シート名情報１
　　s2 = ActiveSheet.Range("D7").Value　'シート名情報２

　　　
　　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)

1 hits

▼

【52974】ファイルの出力（その２） 初心者Ｃ 07/12/10(月) 18:43

≪