Ｐａｇｅ 401 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼新規エクセルファイルにコピーする方法 rin-bon 02/11/26(火) 13:48 ┗Re:新規エクセルファイルにコピーする方法 よろずや 02/11/26(火) 23:31 ┗Re:新規エクセルファイルにコピーする方法 rin-bon 02/11/27(水) 10:21 ┗Re:新規エクセルファイルにコピーする方法 よろずや 02/11/27(水) 22:12 ┗Re:新規エクセルファイルにコピーする方法 rin-bon 02/11/28(木) 12:38 ─────────────────────────────────────── ■題名 ： 新規エクセルファイルにコピーする方法 ■名前 ： rin-bon ■日付 ： 02/11/26(火) 13:48 -------------------------------------------------------------------------
| 久しぶりに投稿します。 悩んでいるのでどなたか助けて下さい・・・。 マクロから、フォルダを作成し、新規エクセルシートをその中に作るとします。 それで、そのシートに現エクセルシートからの選んだセルだけを複数のシートに コピーしたいと考えています。 例えばAのフォルダにあるSheet1のA1とC1を BのフォルダにあるSheet1のB1とD1に貼り付ける。 例えばAのフォルダにあるSheet2のA1からD10を BのフォルダにあるSheet3のB1とE10に貼り付ける。 というような事をしたいのですが、 出来るでしょうか？ どのように作成すればいいのか教えて下さい。 |
| ▼rin-bon さん： >久しぶりに投稿します。 >悩んでいるのでどなたか助けて下さい・・・。 > >マクロから、フォルダを作成し、新規エクセルシートをその中に作るとします。 >それで、そのシートに現エクセルシートからの選んだセルだけを複数のシートに >コピーしたいと考えています。 フォルダとシートだけで、ブックのことが抜け落ちてますが、どういうことでしょうか？ |
| ▼よろずや さん： >フォルダとシートだけで、ブックのことが抜け落ちてますが、どういうことでしょうか？ すみません。言葉が足りなかったようです。 新規フォルダの中に新規ブックを作成し、その中のシートに・・・ です。 こんな感じで考えています。 filenum = FreeFile nameOut = "\新規\" '現在の場所へのPath Kijyun = Application.ActiveWorkbook.Path '新規フォルダが存在していなければフォルダ作成 If Dir(Kijyun & nameOut, vbDirectory) = "" Then MkDir Kijyun & nameOut End If '現在時刻でフォルダ作成 nameOut = nameOut & Format(Now, "yymmdd") & "_" & Format(Now, "hhmmss") & "\" strnameOut = Kijyun & nameOut MkDir strnameOut 'book作成 FileName = "新規.xls" filename = Kijyun & nameOut & FileName Open filename For Output As #filenum 'ここで処理？ Close #filenum 伝わるでしょうか・・・？ |
| > filename = Kijyun & nameOut & FileName > Open filename For Output As #filenum ブックは、Workbooks.add メソッドで作ります。 ヘルプファイルは無いのですか？ ヘルプに載ってることをいちいち質問してたら、日が暮れてしまいます。 ※ここで質問するなと言っているのではありませんよ。(^.^) Excel VBA のヘルプは、標準インストールでは入りません。 CD-ROM から追加インストールしましょう。 |
| ▼よろずや さん： >ブックは、Workbooks.add メソッドで作ります。 そうみたいですね・・・。すみません。 いろいろ調べてたら、分かりました。 テキストファイルを作る方法で出来るのかと思っていました。 >ヘルプファイルは無いのですか？ >ヘルプに載ってることをいちいち質問してたら、日が暮れてしまいます。 >※ここで質問するなと言っているのではありませんよ。(^.^) > >Excel VBA のヘルプは、標準インストールでは入りません。 >CD-ROM から追加インストールしましょう。 ないんですよ・・・。 ま、頑張って調べます。 ありがとうございました。 |