Excel VBA質問箱 IV

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

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


38322 / 76732 ←次へ | 前へ→

【43548】シートのコピーについて
質問  りこ  - 06/10/19(木) 10:04 -

引用なし
パスワード
   すみません。どなたか教えてください。行き詰っております。
現在、既存のファイル(10月)にコードを書き込んでおります。
コードは下記の通り


Sub Test3()
  Dim myf As Variant
  Dim MyB As Workbook
  Dim i As Integer, bcnt As Integer, SCnt As Integer
  Dim fname As Worksheet 

  With Application
   myf = .GetOpenFilename("エクセルブック(*.xls),*.xls", , , , True)
   If VarType(myf) = 11 Then Exit Sub
   bcnt = UBound(myf)
   SCnt = .SheetsInNewWorkbook
   .SheetsInNewWorkbook = bcnt
   .ScreenUpdating = False   
  End With
  Set MyB = Workbooks.Add
  For i = 1 To bcnt
   Workbooks.Open myf(i)
   ActiveWorkbook.Worksheets(3) _
   .Cells.Copy MyB.Worksheets(i).Range("A1")
   ActiveWorkbook.Close False  
  Next i
  With Application
   .SheetsInNewWorkbook = SCnt
   .ScreenUpdating = True
  End With

 
  Set MyB = Nothing
End Sub

Worksheets(3)の全てのシートをコピーし、新しいブックに貼り付けるというコードです。
この「Worksheets(3)」を「"内訳書*"」という風にワイルドカードを使って参照したいのです。If文を使用したり、名前を定義したりしてみたんですが、いまひとつ
うまくいきません。
どなたかご回答をお願いいたします。 <(_ _)>

0 hits

【43548】シートのコピーについて りこ 06/10/19(木) 10:04 質問
【43551】Re:シートのコピーについて へっぽこ 06/10/19(木) 10:28 回答
【43553】Re:シートのコピーについて りこ 06/10/19(木) 10:35 お礼
【43557】Re:シートのコピーについて Jaka 06/10/19(木) 11:02 発言

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