☰

다른 셀 데이터가 포함된 셀 이름을 딴 텍스트 파일 만들기

tag-icon • tag-icon macos microsoft-excel macros
다른 셀 데이터가 포함된 셀 이름을 딴 텍스트 파일 만들기

OS X 버전 10.7.2를 사용하는 Mac Mini에서 Excel 프로그램에 대해 아래 코드를 사용해 보았지만 파일 이름/경로로 인해 오류가 발생했다는 메시지가 계속 표시됩니다.(내가 만들고 있는 Excel 파일은 계속해서 사용될 수식과 매크로가 설치된 템플릿이 될 것입니다.)

Sub CreateFile()
Do While Not IsEmpty(ActiveCell.Offset(0, 1))
    MyFile = ActiveCell.Value & ".txt"
    fnum = FreeFile()
    Open MyFile For Output As fnum
    Print #fnum, ActiveCell.Offset(0, 1) & " " & ActiveCell.Offset(0, 2)
Close #fnum
ActiveCell.Offset(1, 0).Select
Loop
End Sub

내가 하려는 일:

1차 목표

  1. 텍스트 파일을 만드는 데 다음 데이터를 사용하고 싶습니다. A:A는 파일 이름이 필요한 것입니다. B:2는 텍스트 파일에 필요한 내용입니다.

    따라서 A2 - "repair-video-game-Glassboro-NJ-08028.txt"는 파일 이름이고 B2는 파일의 내용입니다. 다음으로, A3은 파일 이름이고 B3은 파일의 내용입니다. 내용이 A16 및 B16 셀(길이는 다양함)에 있는 내용을 읽으면 파일 생성이 중지되어야 합니다. 그렇지 않은 경우 추가 파일을 삭제할 수 있습니다. 만들어진.

  2. 이 시트는 절대 바뀌지 않습니다. 시작점을 식별하기 위해 마우스로 선택하지 않고 항상 이 시트로 이동하도록 Excel 매크로를 설정하는 방법이 있습니까?

두 번째 목표

  1. 텍스트 파일을 만드는 데 다음 데이터를 사용하고 싶습니다. A:1은 파일 이름이 필요합니다. B:B는 파일에 내가 원하는 내용입니다.

    따라서 A2는 파일 이름이 "geo-sitemap.xml"이고 B:B는 파일의 콘텐츠입니다(사진에서 .xml 파일 확장자는 무시). 콘텐츠 셀이 "B16" 셀(길이는 다양함)의 내용을 읽으면 파일 생성이 중지되어야 합니다. 그렇지 않은 경우 콘텐츠가 필요한 셀을 조정할 수 있습니다(이미지에 표시되는 공식 콘텐츠는 500행으로 미리 설정되어 있습니다). .

  2. 이 시트는 절대 바뀌지 않습니다. 시작점을 식별하기 위해 마우스로 선택하지 않고 항상 이 시트로 이동하도록 Excel 매크로를 설정하는 방법이 있습니까?

.txt 파일에 포함되지 않는 Excel 수식으로 채워진 셀의 내용을 제공할 수 있습니다.불가능해도 괜찮습니다. 데이터 시트를 기준으로 채워지지 않은 추가 셀을 삭제할 수 있습니다.

추가 정보나 명확성이 필요한 경우 알려주시면 기꺼이 제공해 드리겠습니다.

답변1

그래서 여기에 내가 사용하는 코드가 있습니다. 모든 페이지에서 실행되도록 설정되어 있습니다(페이지에 있을 필요가 없고 코드에 페이지를 설정할 필요가 없으므로).

Sub CreateFile_KML()

Dim shtKML As Worksheet

Set shtKML = ThisWorkbook.Sheets("KML")

i = 2

    Do While Not IsEmpty(shtKML.Cells(i, 2))
        MyFile = "Macintosh HD:Users:cherryredspyder:Desktop:Testting:" & shtKML.Cells(i, 1).Value
        fnum = FreeFile
        Open MyFile For Output As fnum
        Print #fnum, shtKML.Cells(i, 2).Value
        Close fnum
        i = i + 1
    Loop

End Sub

파일 길이는 32자를 초과할 수 없습니다.

관련 정보