Punte di Excel
  1. Punte di Excel
  3. Copiare il valore da una cella in un foglio di lavoro in un intervallo di celle
Intereting Posts
Excel – Modifica del valore di field in base all'aggiornamento del field più recente Quando si scrive string in una cella, VBA inserisce singole virgolette aggiuntive Come compilare i file Python 3.4 e Excel in .exe VLOOKUP con criteri multipli che restituiscono valori in una sola cella Cambiare le size delle matrici usando le funzioni del foglio di calcolo, se utilizzate all'interno di SUMPRODUCT Due caselle di messaggio restituiscono VBA: Errore nel file non trovato SSIS – Spostare il file di Excel con la connessione OLEDB all'archivio rendi eccellente per capire il formato xml codificato Come vengono salvati i dati in excel? Come posso usare la function SUMIFS in excel 2010 attaccando una cella alla cella focalizzata Come modificare il valore delle celle in VB.net – utilizzando .Interop.Excel Esportre a Pentaho Report risultati su csv o excel Excel VBA: Passaggio di una raccolta da una class a un problema di module

Copiare il valore da una cella in un foglio di lavoro in un intervallo di celle

Ho intenzione di condurre una macro che apre una cartella di lavoro dal path specificato e loop attraverso i fogli di lavoro che hanno in particolare i nomi "Januari, Februari, Marte" per dedurre il valore da C34. C34 ha un valore registrato each volta, quindi non dovrebbe cambiare. Tuttavia voglio copiarlo nel foglio di lavoro corrente, where il primo objective dovrebbe essere a AA73, il secondo a AA74 ecc. Il mio codice è 

Sub Test() Dim myHeadings Dim i As Long Dim path As String path = "C:\pathtofile\file.xlsx" Dim currentWb As Workbook Set currentWb = ActiveWorkbook Dim openWb As Workbook Set openWb = Workbooks.Open(path) Dim openWs As Worksheet myHeadings = Array("Januari", "Februari", "Mars") For i = 0 To UBound(myHeadings) Set openWs = openWb.Sheets("&i") currentWb.Sheets("Indata").Range("AA73+Application.Match(i,Array,False)").Value = openWs.Range("C34").Value Next i End Sub

Tuttavia il compilatore dice che l'indice è fuori field alla fila con 

 Set openWs = openWb.Sheets("&i")

Qui ho cercato di fare "io", io, e io tra le altre cose, ma non sono cambiate. Inoltre ho cercato di usare "ThisWorkbook" invece di "ActiveWorkbook" ma non ne ha aiutato neanche. Qualcuno ha un input su come realizzarlo in modo più appropriato?

EDIT: Adattamento alla risposta di Dave, funziona per importre i fogli. Tuttavia riceve un errore in: 

 currentWb.Sheets("Indata").Range("AA73+Application.Match(i,Array,False)").Value = openWs.Range("C34").Value

Dove ottengo l'errore di automazione -2147221080 (800401a8) a detto snippet di codice.

Hai già messo i nomi dei fogli in un arrays, per cui puoi call il nome del foglio dall'arrays come: 

 Set openWs = openWb.Sheets(myHeadings(i))