Arquivo de texto no VBA: Abrir / Localizar Substituir / Salvar Como / Fechar Arquivo
Aqui está o pseudocódigo para o que espero fazer:
<code>Open text File Find "XXXXX" and Replace with "YYYY" Save text File As Close text file </code>
Isto é o que eu tenho até agora
<code>Private Sub CommandButton1_Click() Dim sBuf As String Dim sTemp As String Dim iFileNum As Integer Dim sFileName As String ' Edit as needed sFileName = "C:\filelocation" iFileNum = FreeFile Open sFileName For Input As iFileNum Do Until EOF(iFileNum) Line Input #iFileNum, sBuf sTemp = sTemp & sBuf & vbCrLf Loop Close iFileNum sTemp = Replace(sTemp, "DIM A", "1.75") sTemp = Replace(sTemp, "DIM B", "2.00") sTemp = Replace(sTemp, "DIM C", "3.00") sTemp = Replace(sTemp, "DIM D", "4.00") 'Save txt file as (if possible) iFileNum = FreeFile Open sFileName For Output As iFileNum Print #iFileNum, sTemp Close iFileNum 'Close Userform Unload UserForm1 End Sub </code>
Mas, em vez de sobrescrever o arquivo de texto original, quero "salvar como" um novo arquivo.