Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

macro importa le date in formato diverso

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

macro importa le date in formato diverso

Postdi maucla » 24/03/15 10:39

Buongiorno a tutti.
Vi espongo questo problema. Intanto premetto che sono totalmente inesperto in materia di Macro/VBa e ho provato a crearne una seguendo la procedura guidata in excel/ registra macro.
La mia necessità è di importare un file .txt in .xls più volte al giorno. Come ho detto ho seguito la procedura registra macro, impostando le delimitazioni, punto e virgola... ecc ecc.
Appena terminata la procedura e provata funziona tutto perfettamente.
Il file di origine ha una colonna con il calendario di tutto l'anno in formato gg/mm/aa.
Al primo utilizzo però l'importazione sbaglia tutte le date dal giorno 1 al 12 di ogni mese convertendole in formato mm/gg/aa e quindi il file finale è inutilizzabile. Inoltre mi segnala "errore di run-time 9 - indice non incluso nell'intervallo"
Ho provato a controllare il formato celle ma non riesco a trovare la soluzione.
Vi invio il codice che ho creato.
Grazie in anticipo per l'aiuto

Sub Macro1()
'
' Macro1 Macro
'
' Scelta rapida da tastiera: CTRL+a
'
ChDir "R:\Ricevimento\OPI\Marzo\16\14"
Workbooks.OpenText Filename:= _
"R:\Ricevimento\OPI\Marzo\16\14\resfutureoccupancy1532224.txt", Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:= _
False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1) _
, Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _
Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array( _
16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), _
Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), Array(28, 1), Array( _
29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), Array(35, 1), _
Array(36, 1), Array(37, 1), Array(38, 1), Array(39, 1), Array(40, 1), Array(41, 1), Array( _
42, 1), Array(43, 1), Array(44, 1), Array(45, 1), Array(46, 1), Array(47, 1)), _
DecimalSeparator:=".", ThousandsSeparator:=" ", TrailingMinusNumbers:= _
True
Cells.Select
Selection.Copy
Windows("TemplateImport_FCST2015 (2).xlsx").Activate
ActiveSheet.Paste
End Sub
maucla
Newbie
 
Post: 2
Iscritto il: 24/03/15 10:23

Sponsor
 

Re: macro importa le date in formato diverso

Postdi Anthony47 » 24/03/15 15:21

Ciao maucla, benvenuto nel forum.

Ripeti la registrazione della macro, pero':
Nello step 3 di 3 dell' importazione guidata di un file txt hai la possibilita' di selezionare ognuna delle colonne e impostarne il formato; seleziona la colonna con le date, specifica che e' un campo Data nel formato GMA; completa l' importazione.
Credo che la riga ChDir non sia necessaria, quindi il codice cosi' ottenuto dovrebbe essere pronto per essere riutilizzato (in sostituzione di quello che hai pubblicato)

Per l' errore run time 9 dovresti indicare in quale riga succede.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: macro importa le date in formato diverso

Postdi maucla » 26/03/15 19:37

Grazie, sono 2 giorni che lo utilizzo e funziona. E' anche sparito l'errore run time 9.
Grazie veramente.
maucla
Newbie
 
Post: 2
Iscritto il: 24/03/15 10:23


Torna a Applicazioni Office Windows


Topic correlati a "macro importa le date in formato diverso":


Chi c’è in linea

Visitano il forum: Nessuno e 10 ospiti