Cria um arquivo de texto com o nome de uma célula que contém outros dados da célula

1

Eu tentei usar o código abaixo para o programa Excel no meu 'Mac Mini usando o OS X versão 10.7.2 e ele continua dizendo erro devido ao nome do arquivo / caminho: (o arquivo Excel eu Estou criando vai ser um modelo com minhas fórmulas e macros instaladas que serão usadas repetidamente).

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

O que estou tentando fazer:

1º objetivo

  1. Eu gostaria de ter os seguintes dados para serem usados para criar um arquivo de texto. A: A é o que eu preciso do nome do arquivo a ser. B: 2 é o conteúdo que preciso no arquivo de texto.

    Então, A2 - "reparo-video-game-Glassboro-NJ-08028.txt" é o nome do arquivo e B2 para ser o conteúdo do arquivo. Em seguida, A3 é o nome do arquivo e B3 é o conteúdo do arquivo, etc. Uma vez que o conteúdo lê o que está na célula A16 e B16 (o tamanho irá variar), a criação do arquivo deve parar, senão posso excluir os arquivos adicionais criado.

  2. Esta folha nunca será alterada. Existe uma maneira de estabelecer a macro do Excel para ir sempre a esta planilha em vez de selecioná-la com o mouse para identificar o ponto de partida?

2º objetivo

  1. Eu gostaria de ter os seguintes dados para serem usados para criar um arquivo de texto. A: 1 é o que eu preciso do nome do arquivo a ser. B: B é o conteúdo que eu quero no arquivo.

    Portanto, A2 - é o nome do arquivo "geo-sitemap.xml" e B: B é o conteúdo do arquivo (ignore a extensão de arquivo .xml na foto). UMA VEZ que a célula de conteúdo lê o que está na célula "B16" (o tamanho irá variar), a criação do arquivo deve parar, senão eu posso ajustar as células que precisam de conteúdo (o conteúdo que você vê na imagem é pré-configurado para 500 linhas) .

  2. Esta folha nunca será alterada. Existe uma maneira de estabelecer a macro do excel para ir sempre a esta planilha em vez de selecioná-la com o mouse para identificar o ponto de partida?

Eu posso fornecer o conteúdo nas células que são preenchidas por fórmulas do Excel que não devem ser incluídas nos arquivos .txt. Tudo bem se não for possível. Eu posso excluir as células extras que não estão preenchidas (com base na folha de dados).

Por favor, deixe-me saber se você precisa de mais alguma informação adicional ou clareza e eu ficarei feliz em fornecê-lo.

    
por Beginner_programmer 29.06.2012 / 03:49

1 resposta

1

Então aqui está o código que estou usando. Está configurado para rodar a partir de qualquer página (como em você não precisa estar na página, configure a página no 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

O comprimento do arquivo não pode ser maior que 32 caracteres.

    
por 16.08.2012 / 05:23