試しにマクロを組んでみました。
使えるところがあれば利用してください。
Sub test()
Dim myPath As String
Dim myDir As String
Dim myFile As String
Dim myWS As Worksheet
myPath = "D:\Exceldata\"
myFile = Dir(myPath, vbNormal)
Application.ScreenUpdating = False
Do Until myFile = ""
If myFile <> "." And myFile <> ".." Then
If (GetAttr(myPath & myFile) And 16) <> 16 Then
If myFile Like "教えて*" Then
Workbooks.Open myDir & myFile
For Each myWS In Workbooks(myFile).Worksheets
If myWS.Name Like "Sheet*" Then
MsgBox myFile & vbCrLf & _
myWS.Name & vbCrLf & _
"A1のデータ: " & myWS.Range("A1").Value
End If
Next
Workbooks(myFile).Close SaveChanges:=False
End If
End If
End If
myFile = Dir
Loop
Application.ScreenUpdating = True
End Sub
質問者
お礼
回答いただきありがとうございます。
>myPath = "D:\Exceldata\"
は、フォルダを入れればいいのですよね?
>If myFile Like "教えて*" Then
にはファイル名に含まれる文字列を入れればいいんですよね?
色々試してみましたがなかなか動きません。
というか私がコードを理解していないようです・・・・
もう少し色々試してみたいと思います。
ありがとうございます。
あと、すいません。使っているのはエクセル2000でした。
お礼
回答いただきありがとうございます。 >myPath = "D:\Exceldata\" は、フォルダを入れればいいのですよね? >If myFile Like "教えて*" Then にはファイル名に含まれる文字列を入れればいいんですよね? 色々試してみましたがなかなか動きません。 というか私がコードを理解していないようです・・・・ もう少し色々試してみたいと思います。 ありがとうございます。 あと、すいません。使っているのはエクセル2000でした。