|
すみません。どなたか教えてください。行き詰っております。
現在、既存のファイル(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文を使用したり、名前を定義したりしてみたんですが、いまひとつ
うまくいきません。
どなたかご回答をお願いいたします。 <(_ _)>
|
|