Apri file in nuovo foglio

Hai un problema con Excel?

Nuova discussione

Apri file in nuovo foglio
di Caiannow data: 21/01/2014 09:22:39
Buongiorno,

sto cercando di aprire diversi file in uno solo e per ora sono riuscito a scrivere il codice che me li apre come nuovo file excel. Non ho mai modificato piú di tanto una parte simile e non so bene come fare!

Facciamo il caso che D (nel ciclo FOR) é uguale a 4.
Vorrei che al posto di aprirmi 5 (4 del FOR piú uno prima) files diversi me ne aprisse solo uno e creasse poi 4 nuovi foglio dove aprire gli altri files. I files che voglio aprire in veritá sono files .txt, non so se cambia qualcosa. Per ognuno di questi files c'é una tabella con dei valori che dopo vorrei copiare su un nuovo foglio e da la creare dei grafici, ma dovrei riuscire a fare da solo questa parte.

Sta di fatto che non so se si possa fare quello che ho appena descritto, avete qualche idea?

Sub Open_Text()

    Dim Project As String
    Dim relativePath As String
    Dim da As Integer
    
Set shD = Worksheets("Data")
Windows("progetto").Activate

Project = Sheets("Overview").Range("C3")
    relativePath = ThisWorkbook.Path
    Workbooks.OpenText Filename:=relativePath & "O_Files" & Project & ".out", Origin:=xlWindows, DataType:=xlDelimited, Tab:=True

For D = 1 To 10
If shD.Cells(36 + D, 21) = "" Then
Else
dat = shD.Cells(36 + D, 21).Value

Windows("progetto.xlsm").Activate
    Project = Sheets("Overview").Range("C3") & "_" & dat
    relativePath = ThisWorkbook.Path
    Workbooks.OpenText Filename:=relativePath & "O_Files" & Project & ".out", Origin:=xlWindows, DataType:=xlDelimited, Tab:=True

End If
Next D

End Sub

di patel data: 21/01/2014 09:50:38
allega il tuo fle excel + un file di testo
di Grograman (utente non iscritto) data: 21/01/2014 10:04:07
In linea generale, per aggiungere un foglio ad una cartella di lavoro:
Thisworkbook.worksheets.add
di Caiannow data: 21/01/2014 10:15:21
Allegata una cartella di esempio

Vuoi Approfondire?