☰

Cree un archivo de texto con el nombre de una celda que contenga otros datos de celda

tag-icon • tag-icon macos microsoft-excel macros
Cree un archivo de texto con el nombre de una celda que contenga otros datos de celda

Intenté usar el siguiente código para el programa Excel en mi `Mac Mini usando OS X versión 10.7.2 y sigue diciendo Error debido al nombre/ruta del archivo:(El archivo de Excel que estoy creando será una plantilla con mis fórmulas y macros instaladas que se utilizará una y otra vez).

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

Lo que estoy tratando de hacer:

1er objetivo

  1. Me gustaría tener los siguientes datos para usar para crear un archivo de texto. R:A es lo que necesito que sea el nombre del archivo. B:2 es el contenido que necesito en el archivo de texto.

    Entonces, A2 - "repair-video-game-Glassboro-NJ-08028.txt" es el nombre del archivo y B2 es el contenido del archivo. A continuación, A3 es el nombre del archivo y B3 es el contenido del archivo, etc. UNA VEZ que el contenido lee lo que hay en las celdas A16 y B16 (la longitud variará), la creación del archivo debería detenerse; si no, puedo eliminar los archivos adicionales. creado.

  2. Esta hoja nunca cambiará. ¿Hay alguna manera de establecer la macro de Excel para ir siempre a esta hoja en lugar de tener que seleccionarla con el mouse para identificar el punto de partida?

2do Objetivo

  1. Me gustaría tener los siguientes datos para usar para crear un archivo de texto. A:1 es el nombre que necesito para el archivo. B:B es el contenido que quiero en el archivo.

    Entonces, A2 es el nombre del archivo "geo-sitemap.xml" y B:B es el contenido del archivo (ignore la extensión del archivo .xml en la foto). UNA VEZ que la celda de contenido lee lo que hay en la celda "B16" (la longitud variará), la creación del archivo debería detenerse; de ​​lo contrario, puedo ajustar las celdas que necesitan contenido (el contenido formulado que ves en la imagen está preestablecido para 500 filas) .

  2. Esta hoja nunca cambiará. ¿Hay alguna manera de establecer la macro de Excel para ir siempre a esta hoja en lugar de tener que seleccionarla con el mouse para identificar el punto de partida?

Puedo proporcionar el contenido de las celdas que se completan con fórmulas de Excel que no deben incluirse en los archivos .txt.Está bien si no es posible. Puedo eliminar las celdas adicionales que no están completas (según la hoja de datos).

Avíseme si necesita más información adicional o claridad y estaré encantado de proporcionársela.

Respuesta1

Así que aquí está el código que estoy usando. Está configurado para ejecutarse desde cualquier página (ya que no es necesario que esté en la página, configure la página en el código)

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

La longitud del archivo no debe superar los 32 caracteres.

información relacionada