ほとんど同じ名前のシート

Question

別のExcelファイルからシートのセルを開いてコピーしようとしています。私は必要なExcelファイルを開いたりコピーしたり閉じたりするのに問題ありません。この場合、私はWith x.Sheets("Documents").UsedRangeです。セルをコピーするために必要なほとんどのファイルには、シート名として「ドキュメント」がありますが、「ドキュメント」+別の異なる文字（「DocuemntsEX」など）を持つものがあります。コピーしようとすると、「DocumentEX」と「Document」が異なるため、「Subscript Out-of-range」が表示されます。ほとんどのファイルにその名前が付いているので、シートの特定の名前を保持できる方法はありますか？異なるシート名のシートにアクセスするのに役立つコードはありますか？あなたが明確化を必要とするなら、ちょうど私を打つ。

Answer 1

最初のシートを得るために、ワイルドカード文字を使用する：あなたのコードで

Function GetDocumentSheet(ByRef wb As Workbook) As Worksheet 

    For Each ws In wb.Sheets 
     If LCase$(ws.Name) Like "documents*" Then 
      Set GetDocumentSheet = ws 
      GoTo SheetFound: 
     End If 
    Next 

    Set GetDocumentSheet = Nothing 

SheetFound:  
End Function 

を：

Set mySheet = GetDocumentSheet(x) '// where 'x' is your workbook object 

その後、シートは同じインデックスにある場合、あなたが使用することができます

mySheet.UsedRange 

Answer 2

私がコメントで言ったように、あなたは数でシートを使用することができ、またはあなたが文字列と正規の文字にシート名を比較するときは、この

Sub findSheet() 

Dim sheetSubName As String 
sheetSubName = "fluff" 

Dim currentSheet As Worksheet 

For Each currentSheet In Sheets 

    If currentSheet.Name Like sheetSubName & "*" Then 
     MsgBox "do some stuff" 
    End If 

Next currentSheet 

End Sub 

のようなものを使用することができます（私の例では*その何でもそうは） 。したがって、このマクロはシートの毛羽立ちやふわふわのふわふわしたもので動作します。（すべてブック内のシート）でループし、その名前をLike（=など）で比較しますが、いくつかの基本正規表現を使用できます。