Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - Rinominare i file con dati in tabella excel..
Forum - C# / VB.NET - Rinominare i file con dati in tabella excel.. - Pagina 2

Pagine: [ 1 2 3 ] Precedente | Prossimo
Avatar
sps84 (Normal User)
Expert


Messaggi: 202
Iscritto: 11/02/2009

Segnala al moderatore
Postato alle 0:15
Martedì, 17/02/2009
porta pazienza ma il mio livello di conoscenza del vb è pari al capitolo 10 della guida da te pubblicata:-| ...(ringrazio dio di avermi fatto trovare la tua guida)

PM Quote
Avatar
sps84 (Normal User)
Expert


Messaggi: 202
Iscritto: 11/02/2009

Segnala al moderatore
Postato alle 9:44
Martedì, 17/02/2009
Guarda seguendo il primo metodo sono arrivato a ciò ma ora mi dice che ws non è diciarato...
Codice sorgente - presumibilmente VB.NET

  1. Imports microsoft.Office.Interop.Excel
  2. Public Class Form1
  3.     Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Integer, ByRef lpdwProcessId As IntPtr) As IntPtr
  4.  
  5.     Private Function seFileEsiste(ByVal nomeCompFile As String) As Boolean
  6.  
  7.         Dim F As New System.IO.FileInfo(nomeCompFile)
  8.         If F.Exists Then
  9.             seFileEsiste = True
  10.         Else
  11.             seFileEsiste = False
  12.         End If
  13.  
  14.     End Function
  15.  
  16.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  17.  
  18.         Dim percorso As String = "\Files\"
  19.         Dim nomefile As String = "Elenco.xls"
  20.         Dim appExcel As New Microsoft.Office.Interop.Excel.Application
  21.         Dim wb As Microsoft.Office.Interop.Excel.Workbook = appExcel.Workbooks.Open(nomefile)
  22.         Dim ws As Microsoft.Office.Interop.Excel.Worksheet = wb.Worksheets.("Foglio1")
  23.         appExcel.Visible = False
  24.  
  25.         Dim i As Integer = 0
  26.         Try
  27.             For i = 1 To 3
  28.                 If seFileEsiste(ws.range("A" & i).Text) Then
  29.                     My.Computer.FileSystem.RenameFile(ws.range("A" & i).Text, ws.range("B" & i).Text)
  30.                 End If
  31.             Next
  32.  
  33.         Catch ex As Exception
  34.         Finally
  35.         End Try
  36.     End Sub
  37. End Class



Mi sono un po impegnato e forse ho fatto qualcosa?:dhttp://

Ultima modifica effettuata da sps84 il 17/02/2009 alle 9:47
PM Quote
Avatar
Il Totem (Admin)
Guru^2


Messaggi: 3635
Iscritto: 24/01/2006

Segnala al moderatore
Postato alle 17:34
Martedì, 17/02/2009
ws è dichiarato, e non vedo come potrebbe non esserlo: forse c'è un errore nella compilazione o a runtime, o magari il codice di inizializzazione non è corretto.
Ripeto: è molto meglio l'altro metodo.

PM Quote
Avatar
sps84 (Normal User)
Expert


Messaggi: 202
Iscritto: 11/02/2009

Segnala al moderatore
Postato alle 20:02
Martedì, 17/02/2009
Testo quotato

Postato originariamente da Il Totem:

ws è dichiarato, e non vedo come potrebbe non esserlo: forse c'è un errore nella compilazione o a runtime, o magari il codice di inizializzazione non è corretto.
Ripeto: è molto meglio l'altro metodo.



adesso mi impegno con l'altro metodo anche se sarà una strada in salita...:)

PM Quote
Avatar
Il Totem (Admin)
Guru^2


Messaggi: 3635
Iscritto: 24/01/2006

Segnala al moderatore
Postato alle 19:02
Mercoledì, 18/02/2009
Testo quotato

Postato originariamente da sps84:
adesso mi impegno con l'altro metodo anche se sarà una strada in salita...:)


Meno di quanto pensi...

PM Quote
Avatar
sps84 (Normal User)
Expert


Messaggi: 202
Iscritto: 11/02/2009

Segnala al moderatore
Postato alle 0:38
Venerdì, 27/02/2009
Testo quotato

Postato originariamente da Il Totem:

No. Mi chiedo perchè le persone non leggano mai quello che scrivo.

Codice sorgente - presumibilmente VB.NET

  1. 'Ammettiamo che R sia uno StreamReader
  2. Dim Linea As String
  3. Linea = R.ReadLine()
  4. Dim Parti() As String = Linea.Split(";")


Linea = "uno;due;tre" > Parti = {"uno", "due", "tre"}



Totem porta pazienza mi spegheresti meglio come far funzionare split()????
Sto impazzendo...:asd:

PM Quote
Avatar
Il Totem (Admin)
Guru^2


Messaggi: 3635
Iscritto: 24/01/2006

Segnala al moderatore
Postato alle 20:40
Venerdì, 27/02/2009
Split spezza una stringa. Accetta un parametro di tipo stringa (separatore), che indica il punto in cui spezzare. Restituisce un array di stringhe costituito da tutte le sottostringhe che sono poste fra due separatori o fra un separatore e l'inizio (o la fine) della stringa. Come scritto nell'esempio, precedente, che mi sembrava molto chiaro, se hai una stringa del tipo "uno;due;tre", richiamare Split(";") su questa ti restituirà un array formato dalle stringhe "uno", "due", "tre", ossia tutte le parti comprese tra i punti e virgola.

PM Quote
Avatar
sps84 (Normal User)
Expert


Messaggi: 202
Iscritto: 11/02/2009

Segnala al moderatore
Postato alle 22:40
Venerdì, 27/02/2009
adesso mi funziona, non avevo capito di usare un array per i valori  :-|:hail::hail:

PM Quote
Pagine: [ 1 2 3 ] Precedente | Prossimo