我对vba还是比较陌生的,并且对数据导入有疑问。我有下面的代码(下面)来导入和转置文本文件中的数据,但是能够突出显示五个文件然后导入它们会很好。我想我需要多选,但我怎么让脚本运行通过所有选定的文件?如何从多个txt文件中导入数据
希望你能帮助医学。
问候
朗尼
FILOPEN = Application.GetOpenFilename("Files (*.txt; *.jpg; *.bmp;
*.tif),*.chr; *_chr.txt; *chr.txt; *.tif", _
, "Select Picture to Import")
On Error GoTo LastLine
Application.ScreenUpdating = False
Workbooks.OpenText Filename:=FILOPEN, _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
'name of file that is imported from
Dim z As String
z = ActiveWorkbook.Name
Windows(Left(z, Len(z))).Activate
'Copy Data
Range("c1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows(Left(f, Len(f))).Activate 'name of file that is imported into (original sheet)
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Selection.End(xlToLeft).Select
ActiveCell.Offset(0, 0).Range("A1").Select
很酷,工作,包裹它在我的整个脚本周围,一切都被导入和处理:)谢谢 – La82