View Full Version : [VB.Net] PROGRAMMA CHE RINOMINA FILE CON DATI IN EXCEL
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):mc:
ed il silenzio fu!:stordita:
Beh, dovresti dimostrare almeno di averci provato... :D
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. :)
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?:confused:
ma questo devo metterlo in visual studio 2005 o nell' editore vb di excel per capirsi???:mbe:
Soprattutto autodidatta ! :D
Sì, lo devi usare in VB 2005. ;)
anche io sono autodidatta ma ho un po di difficolta... di guide in giro ce ne sono molte ma esaurienti poche... consigli?
di guide in giro ce ne sono molte ma esaurienti poche... consigli?
Guide esaurienti su VB 2005 ? Stai scherzando ? E' un mondo sconfinato ! :D
L'unica guida che si avvicina al concetto di "esauriente" sono le MSDN Library.
Un manuale ? Partirei con questo :
http://education.mondadori.it/Libri/SchedaLibro.asp?IdLibro=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 ? :D
non mi funziona... dove devo inserirlo di preciso??:cry:
non mi funziona... dove devo inserirlo di preciso??:cry:
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. :D
Buon Natale a tutti ! :hic: :ubriachi: :sbonk:
e come si per queste librerie a referenziarle??:confused:
come faccio a trovare ste librerie??
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... :stordita:
no... adesso mi sono messo di impegno nell' imparare, ma come vedi ho ancora molto davanti...:D
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. :D
Buon Natale a tutti ! :hic: :ubriachi: :sbonk:
forse ho sbagliato ma mi segna errore in
Exce.application dopo dim appExcel as new
e poi in Excel.Workbook e Excel.Worksheet
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... :O :D
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.:mbe: :help: :help: :help: :help: :help: :help: :help: :help: :help: :help: :help:
Ma nella finestra del codice rsta evidenziato Exce.Workbook Excel.Application Excel:worksheet
Certo che se li scrivi così non compilerà neanche a piangere... :rolleyes:
Cmq, devi aver combinato qualcosa di strano, perchè così come te l'ho spiegato non ci son santi che funziona.
Si li ho scritto io :doh: in fretta scusami... guarda nell'immagine allegata..:read:
http://www.sps84.net/err.bmp
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.
Gentilissimo marco ecco qui :confused:
http://www.sps84.net/err2.bmp
Hai le stesse References che ho io, inoltre hai Excel 2003 installato, giusto ?
1. Usi per caso qualche strana versione "Beta" di Visual Studio 2005 ?
2. Lascia perdere il copia/incolla del mio codice. Con quei riferimenti attivi, prova semplicemente a riscriverlo da zero. il Namespace Excel è di primo livello, insomma almeno cominciando a scrivere "Dim a As Ex" l'intellisense dell'Ide dovrebbe suggerire Excel :
:read:
http://thumbnails.imagebam.com/2607/60f9e726061788.gif (http://www.imagebam.com/image/60f9e726061788)
P.S.: cerca di linkare immagini .jpg ( non .bmp )... ;)
nell 'intellisense non compare excel...:confused: :confused: :help:
(sei gentilissimo:D )
Allora temo di aver finito i suggerimenti...
Mai avuto problemi di questo tipo, fin dai tempi del .Net 2003 ( a parte le varie versioni Beta, s'intende ).
Sto pensando a quale razza di impostazioni tu possa avere sul tuo VS... Mah. :nono:
e se usassimo ADO??
o magari un file in txt formattato cosi
primo nome;nuovo nome ??:stordita:
Guarda forse sono riuscito in qualcosa ma adesso mi dice che ws non è dichiarato...
Imports microsoft.Office.Interop.Excel
Public Class Form1
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 = "\Files\"
Dim nomefile As String = "Elenco.xls"
Dim appExcel As New Microsoft.Office.Interop.Excel.Application
Dim wb As Microsoft.Office.Interop.Excel.Workbook = appExcel.Workbooks.Open(nomefile)
Dim ws As Microsoft.Office.Interop.Excel.Worksheet = wb.Worksheets.("Foglio1")
appExcel.Visible = False
Dim i As Integer = 0
Try
For i = 1 To 3
If seFileEsiste(ws.ramge("A" & i).Text) Then
My.Computer.FileSystem.RenameFile(ws.ramge("A" & i).Text, ws.range("B" & i).Text)
End If
Next
Catch ex As Exception
Finally
End Try
End Sub
End Class
:help: :help:
Se il codice che hai postato è lo stesso identico che vuoi usare, non mi stupisce... Vedo diversi errori di sintassi... :(
Non avrai per caso disabilitato la notifica degli errori durante la digitazione, spero...
no, segna come errore wb che non è dichiarato dice...:confused:
vBulletin® v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.