De l'extraction de données à partir d'un classeur fermé macro

J'ai eu des questions concernant l'extraction de données à partir d'un classeur fermé l'aide d'une macro.

L'image ci-dessus est le principal classeur, je voudrais insérer la macro. Dans la cellule A1, vous pouvez voir qu'il y est un nom de lieu - c'est l'emplacement de la fermeture du secondaire classeur que je voudrais tirer les données.

Je voudrais que la macro pour prendre l'emplacement qui est présent dans la cellule A1, copier les cellules A1:J5000 dans le classeur fermé, et puis la coller dans ce classeur de départ en A7 (c'est à dire A7:J5007). La raison que le nom de fichier emplacement est présent dans A1 est dû au fait que ce sera en train de changer, cependant, je voudrais que la macro toujours de prendre l'emplacement de ce qui est montré dans A1 (par exemple, si A1 ont été de remplacer " ...\test00218_data.csv " à " ...\test00001_data.csv' ensuite, je voudrais que la macro pour prendre les données à partir du nouvel emplacement, test00001).

Depuis lors, j'ai écrit une macro qui, je crois, aurait ouvert toutes les Feuilles nommées "Données Brutes x" et collez les données requises dans les domaines de la primaire de la feuille; le code est comme suit:

Sub PullClosedData()

Dim filePath As String

For x = 1 To 1 Step 1

    filePath = Sheets("Raw Data " & x).Cells(1, 1).Value

    Workbooks.Open Filename:=filePath

    Sheets("Raw Data 1").Range("A7:J2113").Value = ActiveWorkbook.ActiveSheet.Range("A1:J2107")
Next x

End Sub

Lorsque je l'exécute mais j'ai une erreur d'Exécution 9 (hors de portée). Je crois que cela a quelque chose à voir avec la "ActiveWorkbook.ActiveSheet" une partie du script, mais je suis pas sûr de comment ré-écrire cela et d'éviter l'erreur.

OriginalL'auteur pmcgrath92 | 2014-07-25

6

Tout d'abord, ne pas coller le chemin d'accès dans une cellule que vous prévoyez sur l'écrasement. Au lieu de cela, créer une feuille séparée contenant l'essentiel des paramètres d'entrée (voir l'exemple ci-dessous; je vais appeler cette feuille "Système").

Le code ci-dessous extrait des données de la des classeurs de "Données Brutes 1" à "Raw Data 3" à partir du livre source.
- Assurez-vous de bien définir vos classeurs dans des variables (TargetWb et SourceWb).
- Lors de la référence à une feuille de calcul, toujours spécifier ce classeur il est situé dans lors de l'utilisation de plusieurs classeurs (par exemple TargetWb.ActiveWorksheet, pas seulement ActiveWorksheet)
.
```
Sub PullClosedData()

    Dim filePath As String
    Dim SourceWb As Workbook
    Dim TargetWb As Workbook

    Set TargetWb = ActiveWorkbook

    filePath = TargetWb.Sheets("System").Range("A1").Value
    Set SourceWb = Workbooks.Open(filePath)

    For i = 1 To 3
        SourceWb.Sheets("Raw Data " & i).Range("A1:J5000").Copy Destination:=TargetWb.Sheets("Raw Data " & i).Range("A1:J5000")
    Next i

    SourceWb.Close

    MsgBox "All done!"

End Sub
```
Génial, ça fonctionne, merci beaucoup! Juste un petit problème si vous pourriez m'aider une fois de plus... le nom de la feuille dans le SourceWb n'est pas "Données Brutes i", il est en fait "test00218_data", j'ai donc modifié le code en conséquence comme suit lien Mais est-il une telle façon que j'ai à écrire la macro de sorte que lorsque j'ai cliqué sur elle, elle a copié les fiches figurant à l'emplacement de l'A1:A18 et collé en Données Brutes 1 - Données Brutes de 18 ans?
c'est à dire le fichier les noms de lieux sont en A1:A18, les noms des feuilles sont de I1:I18 lien
Je pensais que ça aurait été quelque chose le long des lignes de ceci ; mais je suis rencontré avec un message d'erreur ici.
Je travaille maintenant! Merci pour l'aide, et de m'aider à y arriver sur les miens, j'ai utilisé ce de code! Une petite chose maintenant, quand il se termine le macro et le remplit en Données Brutes 1-18, il ne ferme la première SourceWB il a ouvert... c'est sûrement une petite chose que je suis absent à partir de la SourceWB.À proximité de la ligne?
incorporé le fermer dans la boucle et il fonctionne très bien maintenant. merci

OriginalL'auteur one angry researcher

Vous devez vous connecter pour publier un commentaire.