나는 여전히 vba를 처음 사용하고 있으며 데이터 가져 오기와 관련하여 질문이 있습니다. 텍스트 파일에서 데이터를 가져오고 조 변경하려면 다음 코드를 (아래) 가지고 있지만 fx 다섯 개의 파일을 강조 표시 한 다음 가져올 수 있으면 좋을 것입니다. multiselect가 필요하지만 선택한 모든 파일을 실행하는 스크립트를 얻는 방법은 무엇입니까?여러 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