Scribd
Upload
6 views1 page

Macro

Uploaded by

KISEOK WOO
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
6 views1 page

Macro

Uploaded by

KISEOK WOO
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 1

Option Explicit

Sub import_Tab_Limited_Textfile()
Dim fileName As Variant '��� ���� ��� �����
Dim strInput As String '�� ���� ���‫���� ��� �ڸ‬
Dim i As Long '���� ����ŭ �‫���� ���ݺ‬
Dim r As Long '�‫�ؽ‬Ʈ���� ���� �ġ 1�� �÷��
����
Dim cnt As Integer '������ �ġ 8�� �÷�� ����
Dim c As Integer '���� �ġ 1�� �÷�� ����
Dim y As Long '���� �ġ 1�� �÷�� ����

ActiveSheet.UsedRange.ClearContents '��� ������ ���


fileName = Application.GetOpenFilename("Text Files (*.txt),*.txt", , _
"�‫�ؽ‬Ʈ����� ����", MultiSelect:=True) '�‫�ؽ‬Ʈ ����� ����

If TypeName(fileName) = "Boolean" Then Exit Sub '��� ���� �� ��ũ�� ���

For i = 1 To UBound(fileName) '������ ���� ����ŭ �‫�ݺ‬


Open fileName(i) For Input As #1 '�� ����� ����

For r = 1 To 15 '1 ~ 15���� �‫�ݺ‬


Line Input #1, strInput '�� ��� strInput�� ���

If EOF(1) Then '���� �‫�ؽ‬Ʈ���� ���� ���̸�


MsgBox "���� ���Դϴ�." '�޽��� ���
Exit Sub '��ũ�� ���
End If

If r > 8 And r < 14 Then '(������ �����)���ϴ� ���̸�


y = y + 1 '�� 1�� �÷��

For cnt = 25 To Len(strInput) Step 8


'Ư� �ġ���� 8�� �÷����� ü���� ���� ��ŭ �‫�ݺ‬
c = c + 1 '�� �ġ 1�� �÷��
Cells(y, c) = Mid(strInput, cnt, 8) '���� ������ ���‫� �ڸ‬ѷ���
Next cnt

c = 0 '���� ��Ͽ� �ʱ�ȭ


End If
Next r

Close #1 '��� ���� �‫�ݱ‬


Next i

Columns.AutoFit '���ʺ� �‫���� �ڵ‬


End Sub
[��ó] (1031) �‫�ؽ‬Ʈ ���ϳ� Ư��ġ ������ ������ (���� VBA ��ũ��)|�‫� ���ۼ‬ϲ

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy