Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5032 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【52974】ファイルの出力（その２） 初心者Ｃ 07/12/10(月) 18:43 質問[未読]
【52976】Re:ファイルの出力（その２） じゅんじゅん 07/12/10(月) 18:59 発言[未読]
【52998】Re:ファイルの出力（その２） 初心者Ｃ 07/12/11(火) 9:32 質問[未読]
【53000】Re:ファイルの出力（その２） じゅんじゅん 07/12/11(火) 10:01 発言[未読]
【53001】Re:ファイルの出力（その２） 初心者Ｃ 07/12/11(火) 10:53 お礼[未読]
【52996】Re:ファイルの出力（その２） かみちゃん 07/12/10(月) 22:23 発言[未読]
【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)
【52976】Re:ファイルの出力（その２）
発言  じゅんじゅん  - 07/12/10(月) 18:59 -
引用なし
パスワード
   >Destination:=Sheets("s2").Cells(j, 1)
これは、シート名”s2”であって、変数s2を使っているわけではないでしょう。

Destination:=Sheets(s2).Cells(j, 1)
とすべきではないのかな？
【52996】Re:ファイルの出力（その２）
発言  かみちゃん  - 07/12/10(月) 22:23 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

> あと少しなのですが・・・・

以下のご質問とは何か関係があるのでしょうか？
ｈｔｔｐ://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=52887;id=excel
もし、すでに解決しているならば、あちらのスレッドにその旨お知らせください。
【52998】Re:ファイルの出力（その２）
質問  初心者Ｃ  - 07/12/11(火) 9:32 -
引用なし
パスワード
   もう１点教えて下さい。
別のＥＸＣＥＬを別にコピーする場合を教えて下さい。

コピー元
AAAA.XLS
シート名　AAAA

コピー先
BBBB.XLS
シート名　BBBB
コピー先をS2の変数で指定している場合を教えて下さい。


Range(Cells(i, 1), Cells(i, 18)).Copy Destination:=Sheets(s2).Cells(j, 1)
【53000】Re:ファイルの出力（その２）
発言  じゅんじゅん  - 07/12/11(火) 10:01 -
引用なし
パスワード
   ▼初心者Ｃ さん：
>もう１点教えて下さい。
>別のＥＸＣＥＬを別にコピーする場合を教えて下さい。


【52996】のかみちゃんさんの質問にも回答して下さいね。
>> あと少しなのですが・・・・

>以下のご質問とは何か関係があるのでしょうか？
>ｈｔｔｐ://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=52887;id=excel
>もし、すでに解決しているならば、あちらのスレッドにその旨お知らせください。

例えばのサンプル。

Sub test()
　Dim WB1 As Workbook
　Dim WB2 As Workbook
　Dim ws1 As String
　Dim ws2 As String

　Set WB1 = Workbooks("Book1.xls")
　Set WB2 = Workbooks("Book2.xls")

　ws1 = "Sheet1"
　ws2 = "Sheet1"

　WB1.Sheets(ws1).Range("A1").Copy WB2.Sheets(ws2).Range("A1")
End Sub
Ｂｏｏｋ１のシート１のセルＡ１を、Ｂｏｏｋ２のシート１のセルＡ１に
コピペする一例です。
【53001】Re:ファイルの出力（その２）
お礼  初心者Ｃ  - 07/12/11(火) 10:53 -
引用なし
パスワード
   ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5032 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free