x_soldier Posted December 18, 2012 at 09:59 PM Report #487752 Posted December 18, 2012 at 09:59 PM (edited) 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 Edited December 19, 2012 at 12:43 AM by apocsantos geshi
acao Posted December 18, 2012 at 10:40 PM Report #487767 Posted December 18, 2012 at 10:40 PM (edited) 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 Edited December 18, 2012 at 10:48 PM by acao
x_soldier Posted December 18, 2012 at 10:47 PM Author Report #487770 Posted December 18, 2012 at 10:47 PM 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 Posted December 20, 2012 at 03:05 PM Author Report #487951 Posted December 20, 2012 at 03:05 PM (edited) 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 Edited December 20, 2012 at 05:49 PM by apocsantos
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now