Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

x_soldier

Macro em Excel

Mensagens Recomendadas

x_soldier

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 por apocsantos
geshi

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
acao

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 por acao

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
x_soldier

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

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
x_soldier

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 por apocsantos

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.