Excel VBA質問箱 IV

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

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


54150 / 76732 ←次へ | 前へ→

【27382】Re:繰り返し処理で名をつけてファイル保存
回答  かみちゃん  - 05/8/7(日) 19:18 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>元データのファイルから順番に一行ずつコピーし、雛型の別ファイルへそのデー
>タをペイスト。で、そのファイルを名前をA列にある名称で保存していく、とい
>うのを繰り返すというもの。

「マクロの記録」である程度まではできます。
そして、For 〜 Next で繰り返し処理を加えると、こんな感じになります。
Option Explicit
Sub Macro1()
 Dim Wb2 As Workbook
 Dim LastRowNo As Long
 Dim RowNo As Long
 
 '雛形ブックを指定(あらかじめオープンしておく)
 Set Wb2 = Workbooks("Test0807_2.xls")
 
 'A列の最終列を取得
 LastRowNo = Range("A65536").End(xlUp).Row
 For RowNo = 1 To LastRowNo
  If Range("A" & RowNo).Value <> "" Then
   'A1:D1を雛形ブックのSheet1のA1セルにコピーする。
   Range("A" & RowNo & ":D" & RowNo).Copy Destination:=Wb2.Sheets("Sheet1").Range("A1")
   '雛形ブックのSheet1のA1セルの名前で保存する。
   '保存先フォルダは、このマクロブック(ThisWorkbook)と同じフォルダ
   Wb2.SaveAs Filename:= _
      ThisWorkbook.Path & "\" & Wb2.Sheets("Sheet1").Range("A1").Value & ".xls"
  End If
 Next
 Set Wb2 = Nothing
 MsgBox "終了しました。"
End Sub
0 hits

【27381】繰り返し処理で名をつけてファイル保存 apple 05/8/7(日) 18:41 質問
【27382】Re:繰り返し処理で名をつけてファイル保存 かみちゃん 05/8/7(日) 19:18 回答
【27385】Re:繰り返し処理で名をつけてファイル保存 apple 05/8/7(日) 22:07 お礼
【27383】Re:繰り返し処理で名をつけてファイル保存 Hirofumi 05/8/7(日) 21:57 回答
【27384】Re:繰り返し処理で名をつけてファイル保存 apple 05/8/7(日) 22:05 お礼
【27386】Re:繰り返し処理で名をつけてファイル保存 Hirofumi 05/8/7(日) 22:13 回答
【27387】Re:繰り返し処理で名をつけてファイル保存 apple 05/8/7(日) 22:19 お礼

54150 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free