[문제]
-엑셀에서 계산 결과를 텍스트 파일로 저장하고 싶다.
[해법1] Write 함수를 사용 (큰따옴표로 묶인 문자열)
자료의 문자열을 큰따옴표가 있는 텍스트 파일로 쓴다.
|
1 2 3 4 5 6 7 |
Dim fileName As String, textData As String, textRow As String, fileNo As Integer fileName = "C:\test.txt" fileNo = FreeFile '사용하지 않는 파일 번호를 가져온다. textData ="Hello World!" Open fileName For Output As #fileNo Write #fileNo, textData Close #fileNo |
이 프로그램의 실행결과는 다음과 같다.
|
1 |
"Hello, World!" |
문자열을 큰따옴표로 묶인다는 점을 잊지 말자.
[해법2] Print 함수를 사용 (큰따옴표가 없는 문자열)
|
1 2 3 4 5 6 7 |
Dim fileName As String, textData As String, textRow As String, fileNo As Integer fileName = "C:\test.txt" fileNo = FreeFile '사용하지 않는 파일 번호를 가져온다. textData ="Hello World!" Open fileName For Output As #fileNo Print #fileNo, textData Close #fileNo |
이 프로그램의 실행결과는 다음과 같다.
|
1 |
Hello, World! |
아마도 Print함수를 쓸 경우가 많을 것이다.
[참고]
Excerpted from http://analystcave.com/vba-write-file-vba/