[VB.Net] PROGRAMMA CHE RINOMINA FILE CON DATI IN EXCEL

[sps84]

Ciao a tutti ho un piccolo problema sto cercando di fare un programmino che rinomini dei file contenuti in una cartella in base ad un foglio di excel contenuto nella stessa dove la prima colonna contiene il nome del file, la seconda il nuovo nome con cui va rinominato il file... In giro ho trovato tanti listati ma sinceramente neanche uno mi ha funzionato allara volevo realizzarne uno per tutti e risolvere i problemi di tutti gli utenti...
pensavo ad una finestra di programma molto semplice.
Un primo pulsante per selezionare il file in excel qualora non si trovi nella stessa cartella.
Un secondo pulsante che mi permetta di selezionare la cartella in cui sono contenuti i file da ridenominare.
Un terzo pulsante per avviare il programma.

Eccezzioni:

se il programma non trova un file che è presente nella prima colonna lo srive in un semplice file txt o in una finestra in cui si possibile fare copia incolla....

che dite?? (sono un novizio in programmazione lo so)

[sps84]

ed il silenzio fu!

[MarcoGG]

Beh, dovresti dimostrare almeno di averci provato...

Comunque in VB è semplicissimo interfacciarsi ad applicativi Office e gestire il FileSystem.
Ti faccio un esempio che al 90% risolve il tuo problema :

Ho un file "Elenco.xls" che in A1, A2, A3 contiene 3 nomi di file esistenti ( nel mio esempio stanno nella dir "Files" che si trova nella dir dell'exe - percorso relativo ). In B1, B2, B3 ho i nomi corrispondenti da cambiare.

Ci sono diversi modi per leggere da VB in un file Xls. Userò il più classico, senza scomodare Ado :

-> Funzioni utilizzate dal codice principale :

   Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Integer, ByRef lpdwProcessId As IntPtr) As IntPtr

    Private Function seFileEsiste(ByVal nomeCompFile As String) As Boolean

        Dim F As New System.IO.FileInfo(nomeCompFile)
        If F.Exists Then
            seFileEsiste = True
        Else
            seFileEsiste = False
        End If

    End Function

-> Codice utilizzatore :

        Dim percorso As String = Application.StartupPath & "\Files\"
        Dim nomeFile As String = "Elenco.xls"
        Dim appExcel As New Excel.Application
        Dim WB As Excel.Workbook = appExcel.Workbooks.Open(percorso & nomeFile)
        Dim WS As Excel.Worksheet = WB.Worksheets("Foglio1")
        appExcel.Visible = False

        Dim i As Integer = 0
        Try
            For i = 1 To 3
                If seFileEsiste(percorso & WS.Range("A" & i).Text) Then
                    My.Computer.FileSystem.RenameFile(percorso & WS.Range("A" & i).Text, WS.Range("B" & i).Text)
                End If
            Next i
        Catch ex As Exception
            '...
        Finally
            'Chiusura oggetti Excel...
        End Try

E il gioco è fatto.
Ancora una volta il NameSpace My semplifica ulteriormente le cose.

[sps84]

guarda sinceramente uno alle prime armi è più pratico di me cercavo solo di risolvere un problema... ho provato ma mi ero fermato ad imparare come definire le variabili... e da quello che hai postato te capisco che non era per niente la buona strada... Dove hai imparato?

[sps84]

ma questo devo metterlo in visual studio 2005 o nell' editore vb di excel per capirsi???

[MarcoGG]

Soprattutto autodidatta !

Sì, lo devi usare in VB 2005.

[sps84]

anche io sono autodidatta ma ho un po di difficolta... di guide in giro ce ne sono molte ma esaurienti poche... consigli?

[MarcoGG]

Originariamente inviato da sps84

di guide in giro ce ne sono molte ma esaurienti poche... consigli?

Guide esaurienti su VB 2005 ? Stai scherzando ? E' un mondo sconfinato !
L'unica guida che si avvicina al concetto di "esauriente" sono le MSDN Library.
Un manuale ? Partirei con questo :
http://education.mondadori.it/Libri/...=88-04-54135-0
Ma con i manuali, per quanto belli, rischi sempre di spendere 70 € e di non trovarci mai quello che vuoi, quando ne hai bisogno...
Infine il web, secondo me resta sempre il miglior "manuale" di tutti...
Pensa a questo Forum : esiste un manuale che risponde alle domande ?

[sps84]

non mi funziona... dove devo inserirlo di preciso??

[MarcoGG]

Originariamente inviato da sps84

non mi funziona... dove devo inserirlo di preciso??

Ma sì che funziona.
Fai una Form ( nel mio caso Form2 ) e un pulsante.
Ti posto il codice completo della Form, più semplice di così... :

Public Class Form2

    Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Integer, ByRef lpdwProcessId As IntPtr) As IntPtr

    Private Function seFileEsiste(ByVal nomeCompFile As String) As Boolean

        Dim F As New System.IO.FileInfo(nomeCompFile)
        If F.Exists Then
            seFileEsiste = True
        Else
            seFileEsiste = False
        End If

    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim percorso As String = Application.StartupPath & "\Files\"
        Dim nomeFile As String = "Elenco.xls"
        Dim appExcel As New Excel.Application
        Dim WB As Excel.Workbook = appExcel.Workbooks.Open(percorso & nomeFile)
        Dim WS As Excel.Worksheet = WB.Worksheets("Foglio1")
        appExcel.Visible = False

        Dim i As Integer = 0
        Try
            For i = 1 To 3
                If seFileEsiste(percorso & WS.Range("A" & i).Text) Then
                    My.Computer.FileSystem.RenameFile(percorso & WS.Range("A" & i).Text, WS.Range("B" & i).Text)
                End If
            Next i
        Catch ex As Exception
            '...
        Finally
            'Chiusura oggetti Excel...
        End Try

    End Sub

End Class

E ovviamente non devi dimenticare di referenziare le librerie di Excel ( Rif. COM : Microsoft Excel 11.0 Object Library ) !

Sospendo ufficialmente ogni mio intervento fino al nuovo anno.

Buon Natale a tutti !

[sps84]

e come si per queste librerie a referenziarle??

[sps84]

come faccio a trovare ste librerie??

[MarcoGG]

1. Apri il tuo progetto.

2. Menu Progetto / Proprietà di <nome progetto> /

3. Scegli la scheda "Riferimenti" / Aggiungi Riferimento / COM ...

> Microsoft Excel 11.0 Object Library

Pensavo ce l'avessi già fatta...

[sps84]

no... adesso mi sono messo di impegno nell' imparare, ma come vedi ho ancora molto davanti...

[sps84]

Originariamente inviato da MarcoGG

Ma sì che funziona.
Fai una Form ( nel mio caso Form2 ) e un pulsante.
Ti posto il codice completo della Form, più semplice di così... :

Public Class Form2

    Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Integer, ByRef lpdwProcessId As IntPtr) As IntPtr

    Private Function seFileEsiste(ByVal nomeCompFile As String) As Boolean

        Dim F As New System.IO.FileInfo(nomeCompFile)
        If F.Exists Then
            seFileEsiste = True
        Else
            seFileEsiste = False
        End If

    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim percorso As String = Application.StartupPath & "\Files\"
        Dim nomeFile As String = "Elenco.xls"
        Dim appExcel As New Excel.Application
        Dim WB As Excel.Workbook = appExcel.Workbooks.Open(percorso & nomeFile)
        Dim WS As Excel.Worksheet = WB.Worksheets("Foglio1")
        appExcel.Visible = False

        Dim i As Integer = 0
        Try
            For i = 1 To 3
                If seFileEsiste(percorso & WS.Range("A" & i).Text) Then
                    My.Computer.FileSystem.RenameFile(percorso & WS.Range("A" & i).Text, WS.Range("B" & i).Text)
                End If
            Next i
        Catch ex As Exception
            '...
        Finally
            'Chiusura oggetti Excel...
        End Try

    End Sub

End Class

E ovviamente non devi dimenticare di referenziare le librerie di Excel ( Rif. COM : Microsoft Excel 11.0 Object Library ) !

Sospendo ufficialmente ogni mio intervento fino al nuovo anno.

Buon Natale a tutti !

forse ho sbagliato ma mi segna errore in
Exce.application dopo dim appExcel as new

e poi in Excel.Workbook e Excel.Worksheet

[MarcoGG]

Ti da errore perchè non trova i riferimenti COM.

Per poter controllare Excel ed usare il mio codice, devi avere almeno questi 3 Riferimenti COM :
1. Da aggiungere manualmente : [COM] Microsoft Excel 11.0 Object Library
2. Aggiunto in automatico : [COM] Microsoft Office 11.0 Object Library
3. Aggiunto in automatico : [COM] Microsoft Visual Basic For Applications Extensibility 5.3

1. Lo devi aggiungere tu.
2. e 3. vengono aggiunti automaticamente dall'IDE di VB.

La versione di Office/Excel 11.0 si riferisce nel mio caso alla 2003.
Se hai Office XP sarà 10.0 e così via.

Spiegarlo meglio di così... a questo punto non saprei proprio cos'altro dire...

[sps84]

ho messo tutto come mi hai detto.....
Ma nella finestra del codice rsta evidenziato Exce.Workbook Excel.Application Excel:worksheet se ci passo sopra col mouse mi compare la scritta : Type 'Excel.Worksheet' is not defined.

[MarcoGG]

Originariamente inviato da sps84

Ma nella finestra del codice rsta evidenziato Exce.Workbook Excel.Application Excel:worksheet

Certo che se li scrivi così non compilerà neanche a piangere...

Cmq, devi aver combinato qualcosa di strano, perchè così come te l'ho spiegato non ci son santi che funziona.

[sps84]

Si li ho scritto io in fretta scusami... guarda nell'immagine allegata..

[MarcoGG]

Allora, in quella finestra vai su WindowsApplication2 ( in alto a destra, nel Solution Explorer ), clicca di destro e poi scegli Proprietà > dovrebbe aprirsi la finestra Proprietà di progetto.
Vai alla scheda "Riferimenti" ( References ), e postami l'immagine.