Excel VBA質問箱 IV

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

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


25942 / 76732 ←次へ | 前へ→

【56127】With ブロック変数がないと言われます
質問  RucA  - 08/6/3(火) 16:45 -

引用なし
パスワード
   あるBookからデータの範囲だけを抜き出して別のBookのシートに
まとめるプログラムをExcelのVBA(マクロ)で作成しています。

For文一周目はコピーできないとか言われますが普通に実行できるんですが
For文が二週目に入ると「オブジェクト変数またはWithブロック変数が設定されていません」
というエラーメッセージが出ます。
どうしたら出なくなるのでしょうか。

  Dim tgtFolder As String
  Dim outFolder As String
  Dim outBook As String
  Dim tmpBook As Workbook
  Dim i As Integer
  Dim Ans As String
 
  'フォルダの指定
  tgtFolder = ThisWorkbook.Path & "\フォルダ名"
  outFolder = ThisWorkbook.Path
  'ワークの削除
  Ans = outFolder & "*.*"
  buf = Dir(Ans)
  
  'フォルダ内のブックを転記
  With Application.FileSearch
   .LookIn = tgtFolder
   .Filename = "*.xls"
   .Execute
   
   '見つかった*.xlsファイルの数だけ処理を繰り返す
   For i = 1 To .FoundFiles.Count
   
    'ブックを開く
    Set tmpBook = Workbooks.Open(.FoundFiles(i))
    ThisWorkbook.Activate
    Sheets("テンプレート").Copy Before:=tmpBook.Sheets(i)
    
    Sheets("テンプレート").Select
    Cells(3, 2).Value = i
    buf = ActiveWorkbook.Name
    buf = Mid(buf, 1, 40)
    buf = Replace(buf, ".xls", "")
    Cells(3, 3).Value = buf
    Range("D3:D3").Select
      ActiveCell.FormulaR1C1 = "='集計したいシート'!R[8]C[-2]"
    Selection.Copy

    Range("D3:AU33").Select
    Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
      False, Transpose:=False
          
    ''選択したシートだけを別ブックに保存する
    outBook = outFolder & buf & "_c.xls"
    Worksheets("テンプレート").Copy
    ActiveWorkbook.SaveAs Filename:=outBook
    ActiveWindow.Close
    tmpBook.Close False
   Next
  End With
1 hits

【56127】With ブロック変数がないと言われます RucA 08/6/3(火) 16:45 質問
【56131】Re:With ブロック変数がないと言われます bykin 08/6/3(火) 22:17 回答

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