open folders

**slcnrtm** · 01-26-2009, 02:38 PM

hi all,

i have some folders. they start 00001, 00002...... and end 00290, 00291. so folders names are in array. these folders have struct1.str and struct2.str files. i need to open these folders and use struct1.str and struct2.str files with macro.

thanks for your response

selcan

**shg** · 01-26-2009, 02:40 PM

Welcome to the forum.

No attachment.

**slcnrtm** · 01-26-2009, 03:26 PM

Thank you.

sorry i forgot the attachment. but it is ok now...

i am waiting for your response.

**shg** · 01-27-2009, 08:53 AM

So I see some text files with numeric names 0001, 0002, ..., and inside those, some references to struct1.str, struct2.str. Interestingly, you have lots of files with the same name and different contents in the zip file; how did you do that - Windows isn't going to allow those to be in the same directory.

Assuming that gets sorted, what is it you want to do?

**slcnrtm** · 01-27-2009, 02:35 PM

Originally Posted by shg

So I see some text files with numeric names 0001, 0002, ..., and inside those, some references to struct1.str, struct2.str. Interestingly, you have lots of files with the same name and different contents in the zip file; how did you do that - Windows isn't going to allow those to be in the same directory.

Assuming that gets sorted, what is it you want to do?

these are test results. all folders are different name like (00001, 00002...) but files in these folders have same name (struct1.str, struct2.str). i try to copy a part of (struct1.str, struct2.str). i am trying to make below codes to all of them.

sub macro5 ()

Workbooks.OpenText Filename:= _
"C:\Selcan\AAPTP proje ile ilgili belgeler\UTEP_slab\UTEP_Slab\Delaminated_slab_test1\00001\struct1.str" _
, Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers:=True

Range(Cells.Find(what:="wavelength", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Offset(1, -2), Cells.Find(what:="Thickness", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Offset(-2, -1)).Activate

Selection.Copy
Windows("calling2.xlsm").Activate
ActiveWindow.SmallScroll Down:=-15
Range("A4").select
ActiveSheet.Paste
Windows("struct1.str").Activate
ActiveWindow.Close

Workbooks.OpenText Filename:= _
"C:\Selcan\AAPTP proje ile ilgili belgeler\UTEP_slab\UTEP_Slab\Delaminated_slab_test1\00001\struct2.str" _
, Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers:=True

Range(Cells.Find(what:="wavelength", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Offset(1, -2), Cells.Find(what:="Thickness", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Offset(-2, -1)).Activate

Selection.Copy
Windows("calling2.xlsm").Activate
ActiveWindow.SmallScroll Down:=-15
ActiveCell.select
ActiveCell.Offset(0, 2).select
ActiveSheet.Paste
Windows("struct2.str").Activate
ActiveWindow.Close

Workbooks.OpenText Filename:= _
"C:\Selcan\AAPTP proje ile ilgili belgeler\UTEP_slab\UTEP_Slab\Delaminated_slab_test1\00002\struct1.str" _
, Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers:=True

Range(Cells.Find(what:="wavelength", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Offset(1, -2), Cells.Find(what:="Thickness", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Offset(-2, -1)).Activate

Selection.Copy
Windows("calling2.xlsm").Activate
ActiveWindow.SmallScroll Down:=-15
ActiveCell.select
ActiveCell.Offset(0, 2).select
ActiveSheet.Paste
Windows("struct1.str").Activate
ActiveWindow.Close

Workbooks.OpenText Filename:= _
"C:\Selcan\AAPTP proje ile ilgili belgeler\UTEP_slab\UTEP_Slab\Delaminated_slab_test1\00002\struct2.str" _
, Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers:=True

Range(Cells.Find(what:="wavelength", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Offset(1, -2), Cells.Find(what:="Thickness", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Offset(-2, -1)).Activate

Selection.Copy
Windows("calling2.xlsm").Activate
ActiveWindow.SmallScroll Down:=-15
ActiveCell.select
ActiveCell.Offset(0, 2).select
ActiveSheet.Paste
Windows("struct2.str").Activate
ActiveWindow.Close

End Sub