/ Excel VBA를 사용하여 텍스트 파일에서 데이터 읽기

Excel VBA를 사용하여 텍스트 파일에서 데이터 읽기

아래에서 우리는 Excel VBA텍스트 파일에서 데이터를 읽습니다.. 이 파일에는 Excel로 가져올 지리적 좌표가 포함되어 있습니다.

상태:

Excel VBA를 사용하여 텍스트 파일에서 데이터 읽기

1. 먼저 텍스트 파일을 다운로드하여 "C : test"에 추가합니다.

워크 시트에 명령 단추를 놓고 다음 코드 줄을 추가하십시오.

2. 우리는 4 개의 변수를 선언한다. String 유형의 myFile, String 유형의 텍스트, String 유형의 텍스트 행, Integer 유형의 posLat 및 Integer 유형의 posLong

Dim myFile As String, text As String, textline As String, posLat As Integer, posLong As Integer

3. myFile 변수를 전체 경로와 파일 이름으로 초기화해야합니다.

myFile = "C:testgeographical-coordinates.txt"

또는

Application 개체의 GetOpenFilename 메서드를 사용하여 표준 열기 대화 상자를 표시하고 실제로 파일을 열지 않고 파일을 선택합니다.

myFile = Application.GetOpenFilename()

참고 : 대괄호 사이의 빈 부분은 우리가 Excel VBA에 입력으로 아무것도주지 않는다는 것을 의미합니다. Visual Basic Editor에서 GetOpenFilename에 커서를 놓고 인수에 대한 도움말을 보려면 F1을 클릭하십시오.

4. 다음 코드 행을 추가하십시오.

Open myFile For Input As #1

주 :이 명령.은 파일을 읽을 수있게합니다. 코드의 나머지 부분에서는 # 1로 파일을 참조 할 수 있습니다.

5. 다음 코드 행을 추가하십시오.

Do Until EOF(1)
    Line Input #1, textline
    text = text & textline
Loop

노트 : 파일 끝 (EOF)까지 Excel VBA는 파일에서 한 줄을 읽고이를 텍스트 줄에 할당합니다. 우리는 & 연산자를 사용하여 모든 단일 행을 연결 (결합)하고 변수 텍스트에 저장합니다.

6. 파일을 닫으십시오.

Close #1

7. 다음으로 변수 텍스트에서 위도 및 경도 단어의 위치를 ​​검색합니다. 우리는 Instr 함수를 사용합니다.

posLat = InStr(text, "latitude")
posLong = InStr(text, "longitude")

8.이 위치와 Mid 함수를 사용하여 변수 텍스트에서 좌표를 추출하고 좌표를 A1 셀과 A2 셀에 씁니다.

Range("A1").Value = Mid(text, posLat + 10, 5)
Range("A2").Value = Mid(text, posLong + 11, 5)

9. 프로그램을 테스트하십시오.

결과:

텍스트 파일에서 데이터 읽기 결과

또한 읽으십시오 :