أهلا بأخوي ابو حنين واحمد زمان.
شكرا على الكود ولكنني تمكنت من جلب محتوى الملف النصي الى ورقة الاكسل بواسطة الماكرو1 بالنسبة للملف الاول والماكرو2 بالنسبة للملف الثاني :
Sub Macro1()'' Macro1 Macro'
' Workbooks.OpenText
Filename:="C:\Excel\test\test1.txt", Origin:=xlMSDOS,
_
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote,
_
ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, Comma:=False
_
, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array
_
(3, 1), Array(4, 1)), TrailingMinusNumbers:=True End
Sub
Sub Macro2()'' Macro2
Macro' Workbooks.OpenText
Filename:="C:\Excel\test\test2.txt", Origin:=xlMSDOS,
_
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote,
_
ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, Comma:=False
_
, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array
_
(3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers:=True End
Sub
ولكن يقي مسح كل السطور وجلب البيانات وحسابها.
الملفان الناتجان في المرفق.
شكراً.
test1.rar
test2.rar