Domanda Macro e Script con Visual Basic Code

FrancescoStrano

Nuovo utente
13 Aprile 2021
9
1
2010,2013
0
chi mi puo aiutare?

salve credo di aver risposto alla tua, a me non serve scrivere altro codice vba ma devo inserire quasta parte di trasferimento dati da txt a excel con vb6 un complesso codice gia' scritto dal mio precedente tecnico informatico spero sia chiari

i file txt sono formati da 12 campi e 22 line

ogni campo e' selezionato dal segno ^

ciao

Francesco

ps ti posto un po di codice mi manca solo la parte di modifica larghezza delle colonne

Visual Basic:
'Crea un array con 3 colonne e 100 righe
Dim DataArray(1 To 100, 1 To 3) As Variant
Dim r As Integer


Private Sub Form_Load()
'Beep
'Avvia una nuova cartella di lavoro in Excel
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add


'For r = 1 To 100
'DataArray(r, 1) = "ORD" & Format(r, "0000")
' DataArray(r, 2) = Rnd() * 1000
' DataArray(r, 3) = DataArray(r, 2) * 0.7
'Next

'Aggiungi intestazioni al foglio di lavoro nella riga 1
Set oSheet = oBook.Worksheets(1)

oSheet.Range("A1:J1").Value = Array("Nr.", "Tipo", "Matricola", "Anno Costruzione", "Messa in Esercizio", "Prossima Revisione", "Prossimo Collaudo", "Scadenza Estintore", "Matricola Operatore", " Note ")

'Trasferisci la matrice nel foglio di lavoro a partire dalla cella A
oSheet.Range("A2").Resize(100, 3).Value = DataArray

'Salva la cartella di lavoro ed esci da Excel
oBook.SaveAs "C:\DATI-EXCEL\BOOK1.xlsx"
oExcel.Quit
End Sub
questo funziona !!!
 
Ultima modifica di un moderatore:

FrancescoStrano

Nuovo utente
13 Aprile 2021
9
1
2010,2013
0
raga' non so come funziona qui ma se uno ha un piccolo quesito chiede in giro , e poi adire la verita' non e'molto chiaro questo forum ..molti click portano sempre alla stessa pagina..comunque mi chiedi un file txt da importare in excel , non e' questo il problema come dicevo fino al punto di importare nessun problema ,io ho chiesto come facci a regolare una sola volta la larghezza delle colonne ..questo e' il pezzo di codice che funziona ma senza controllo larghezza e a seguito anche se non serve un file txt..ciao e scusa
Francesco Strano

Visual Basic:
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object



'Crea un array con 10 colonne e 1000 righe
Dim DataArray(1 To 1000, 1 To 10) As Variant
Dim r As Integer


Private Sub Form_Load()
'Beep
'Avvia una nuova cartella di lavoro in Excel
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add



'For r = 1 To 100
'DataArray(r, 1) = "ORD" & Format(r, "0000")
' DataArray(r, 2) = Rnd() * 1000
' DataArray(r, 3) = DataArray(r, 2) * 0.7
'Next
'Call GRASSETTO
'Aggiungi intestazioni al foglio di lavoro nella riga 1
Set oSheet = oBook.Worksheets(1)



oSheet.Range("A1:J1").Value = Array("Nr.", "Tipo", "Matricola", "Anno Costruzione", "Messa in Esercizio", "Prossima Revisione", "Prossimo Collaudo", "Scadenza Estintore", "Matricola Operatore", " Note ")

'Trasferisci la matrice nel foglio di lavoro a partire dalla cella A
oSheet.Range("A2").Resize(100, 3).Value = DataArray

'Salva la cartella di lavoro ed esci da Excel
oBook.SaveAs "C:\DATI-EXCEL\BOOK1.xlsx"
oExcel.Quit
End Sub

IL TEXT....

PRIMA COMPONENTS SRL
09/02/2021^CONSORTILE^SILERIDI CAPO^SNO^81030^MO^
196^P6^022137^2021^01/2021^01/2024^2033^2039^^VEGA16^
171^P6^001074^2018^03/2018^03/2021^2030^2036^^VEGA16^
170^P6^002181^2018^03/2018^03/2021^2030^2036^^VEGA16^
169^P6^002157^2018^03/2018^03/2021^2030^2036^^VEGA16^
168^P6^002252^2018^03/2018^03/2021^2030^2036^^VEGA16^
167^P6^002313^2018^03/2018^03/2021^2030^2036^^VEGA16^
166^P6^001148^2018^03/2018^03/2021^2030^2036^^VEGA16^
165^P6^000130^2018^03/2018^03/2021^2030^2036^^VEGA16^
164^P6^002474^2018^03/2018^03/2021^2030^2036^^VEGA16^
163^P6^002331^2018^03/2018^03/2021^2030^2036^^VEGA16^
162^P6^000000^2018^03/2018^03/2021^2030^2036^^VEGA16^
172^K5^008515^2018^03/2018^03/2023^2028^2036^^VEGA16^
173^P30^000045^2018^03/2018^03/2021^2030^2036^^VEGA16^
174^P6^002364^2018^03/2018^03/2021^2030^2036^^VEGA16^
175^P6^001874^2018^03/2018^03/2021^2030^2036^^VEGA16^
176^P30^000040^2018^03/2018^03/2021^2030^2036^^VEGA16^
177^P6^002254^2018^03/2018^03/2021^2030^2036^^VEGA16^
178^P6^002330^2018^03/2018^03/2021^2030^2036^^VEGA16^
179^P6^001229^2018^03/2018^03/2021^2030^2036^^VEGA16^
180^P6^000072^2018^03/2018^03/2021^2030^2036^^VEGA16^
@
 
Ultima modifica di un moderatore:

muni

VBA Expert
Expert
25 Novembre 2018
917
45
Roma
2019
69
Non si capisce assolutamente nulla di quello che scrivi e a chi ti stai rivolgendo. Mi dispiace, ma non ti seguo.
 

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!