Macro em Excel

[x_soldier 0]

Boas pessoas,

Tenho esta macro que me abre um txt, copia e cola para dentro de uma sheet, só que cria uma nova sheet. Queria que coloca-se o conteúdo do txt numa sheet fixa.

Alguém pode dar uma ajudinha??

Sub Abrir_CFDFinance()

'Open and Copy CFDFinance
Sheets("Comandos").Select
'Path
Dim FilePath As String
FilePath = Range("I1")
Date = Range("F1")
'Open
Workbooks.Open Filename:=FilePath
   Dim oBook As Workbook
  Workbooks.Open FilePath
  Set oBook = ActiveWorkbook
  'Now do your processing on the newly imported sheet
  'Copy new sheet into this workbook
  oBook.Worksheets(1).Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
  'close text file, do not save changes
  oBook.Close False
  Set oBook = Nothing

'Text to Column
Sheets("Bookkeeping_01-11-2012").Select
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
	TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
	Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
	:=Array(1, 1), _
	DecimalSeparator:=".", ThousandsSeparator:=" ", TrailingMinusNumbers:=True

  End Sub

Editado 19 de Dezembro de 2012 por apocsantos
geshi

[acao 21]

boas

este tipo de solicitação é de dificil ajuda, porque analisando por alto deveria funcionar porque você dá indicação para fechar sem gravar «oBook.Close False».

use os breakspoints que ajudam a verificar o que está a correr mal.

contudo indico-lhe estes dois links talvez ajudem.

http://www.macoratti.net/excel_vb.htm

http://info.abril.com.br/forum/viewtopic.php?t=8782

cumps

acao

Editado 18 de Dezembro de 2012 por acao

[x_soldier 0]

boas

este tipo de solicitação é de dificil ajuda, porque analisando por alto deveria funcionar porque você dá indicação para salvar sem gravar «oBook.Close False».

use os breakspoints que ajudam a verificar o que está a correr mal.

contudo indico-lhe estes dois links talvez ajudem.

http://www.macoratti.net/excel_vb.htm

http://info.abril.com.br/forum/viewtopic.php?t=8782

cumps

acao

O código está bem implementado, a questão é eu não saber como fazer que ele abra sempre o txt numa aba especifica em vez de criar uma nova. Entendes?

Obrigado

[x_soldier 0]

Problema Resolvido

Se servir para alguém, ai vai:

'Open and Copy Bookkeeping
Sheets("Comandos").Select
'Path
Dim FilePath As String
FilePath = Range("I1")
'Open
Workbooks.Open Filename:=FilePath
Range("A:A").Select
Selection.Copy
Windows("Transformação CFDFinance.xlsm").Activate
Sheets("Bookkeeping").Select
Columns("A:A").Select
ActiveSheet.Paste

Editado 20 de Dezembro de 2012 por apocsantos