COPIA TABELLA WORD

Hai un problema con Excel?

Nuova discussione

COPIA TABELLA WORD
di nicola (utente non iscritto) data: 12/04/2013 14:51:15
Ci siamo quasi, con questo codice riesco ad ottenere quello che desidero.
Voglio soltanto che mi permetta di copiare i successivi dati dei file di word selezionati (con la finestra apri) in successione sulle righe del (foglio excel) sottostanti senza saltarne una. Chiedo pertanto l'aiuto di un esperto per la risoluzione della mia problematica.
Ringrazio e (saluto) per l'aiuto.
P.s. per cortesia (se lo desiderate) commentate il codice postato per il miglior apprendimento (per me autodidatta e appassionato di programmazione vb/vba ecc.).

Sub TuttaTabella()

  'COPIA SIA l' IntestazionE CHE I DATI

  Dim mioWord As New Word.Application
  Dim ultima_riga As Long

  mioWord.Visible = True

  mioWord.Documents.Open "C:Documents and Settingsx880588DesktopB.doc"

  Dim mioDoc As Document

  Set mioDoc = mioWord.Documents(1)

  Set Tabella = mioDoc.Tables(1)

  Dim Riga As Row, Cella As Cell, Valore As String

  Dim i As Integer, j As Integer

  For Each Riga In Tabella.Rows

    i = i + 1

    For Each Cella In Riga.Cells

        j = j + 1

      Valore = Cella.Range

      Valore = Left(Valore, Len(Valore) - 2) '(2)
           
      
      
      
      
      If Right(Valore, 1) = "%" Then

        Valore = Left(Valore, Len(Valore) - 1)

      End If

      If IsNumeric(Valore) Then

        If InStr(1, Valore, ",") Then

          Mid(Valore, InStr(1, Valore, ",")) = "."

        End If

        Range("A1")(i, j).Value = Val(Valore)

      Else

        Range("A1")(i, j).Value = Valore

      End If

    Next

    j = 0

  Next

  ' Adatta larghezza colonne

  With Range("A1")

    Range(.Cells(1, 1), .End(xlToRight)).Columns.AutoFit

  End With

  mioDoc.Close

  mioWord.Quit

  Set mioWord = Nothing

End Sub

SET VARIABILE = NOTHING
di maxp72 data: 12/04/2013 15:00:59
Ciao A tutti
Salve ho un quesito, nel modulo vba ho inserito le istruzioni:

Public Indirizzo_Cella As String
Public MACHINE_NUMBER As Byte

Nello stesso modulo ho una macro che ne richiama una seconda.
All'interno della seconda macro ho definito le due variabili con i valori che devono prendere.
- [vedi codice sotto] -

Infine al termina della prima macro ho inserito il codice :
Set MACHINE_NUMBER = Nothing
Set Indirizzo_Cella = Nothing
per azzerare le variabili, ma mi ritorna un errore:
"Errore di compilazione: necessario oggetto"
perche'?

Sub STAMPA_02()
       
Sheets("Stampa").Select
Range("B11").Select

        Do While ActiveCell.Value <> ""
        ActiveCell.Offset(20, 0).Select '19
        MACHINE_NUMBER = MACHINE_NUMBER + 1
        Loop
        
Indirizzo_Cella = ActiveCell.Address
End Sub

di Vecchio Frac data: 12/04/2013 18:02:44
@maxp72
Non continuare una discussione di un altro utente con una problematica diversa... apri una nuova discussione.
di Vecchio Frac data: 12/04/2013 18:10:23
@nicola
questa è la stessa discussione già avviata?
Ho preso visione del file doc da te postato.
Rispondo nell'altra discussione, e medito di chiudere questa, altrimenti facciamo confusione.

Vuoi Approfondire?