我對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